$B$O!V(Bauto.answer.reply$B!W$K$7$?$N$G!"(B
$B$=$NCM$HH/8@$,Ey$7$$$+$I$&$+$rD4$Y$^$9!#(B
$B$^$?!"%W%m%Q%F%#$OJ#?t@_Dj$G$-$k$h$&$K$7$?$N$G!"(B
1$B$D$NH/8@$K$D$$$F$9$Y$F$N%W%m%Q%F%#$H$NHf3S$,I,MW$K$J$j$^$9!#(B
package auto_answer;
$_ = 'auto_answer';
sub ss_privmsg {
local($serverno, $prefix, $cmd, $chan, $msg) = @_;
local($userno);
$userno = $'userno[$serverno];
foreach $reply (&'property($userno, 'reply')) {
# $B$^$@:n$C$F$J$$ItJ,(B
}
return ($prefix, $cmd, $chan, $msg);
}
&'property$B$O0z?t$H$7$F%f!<%6(BNO$B$,I,MW$J$N$G!"(B$'userno[]$B$H$$$&G[NsJQ?t$G(B
$B$3$NH/8@$,$I$N%f!<%6$KB0$9$k$b$N$+$rD4$Y$F$$$^$9!#(B
$B$^$?!"%5%V%k!<%A%sFb$G;HMQ$9$kJQ?t$OI,$:(Blocal$B$r:n$C$F!"(B
$BB>$N%5%V%k!<%A%s$+$i8+$($J$$$h$&$K$7$F2<$5$$!#(B
$B%W%m%Q%F%#$O6uGr$G6h@Z$C$F!"H/8@$H$=$l$KBP$9$kJV;v$r=q$/$h$&$K$7$^$7$?!#(B
$B$=$3$G!"$=$l$>$l$N%W%m%Q%F%#$r6uGr$G6h@Z$C$F!"(B
$BH/8@$H0lCW$9$k$+$I$&$+$rHf3S$7$^$9!#(B
package auto_answer;
$_ = 'auto_answer';
sub ss_privmsg {
local($serverno, $prefix, $cmd, $chan, $msg) = @_;
local($userno, $str, $answer);
$userno = $'userno[$serverno];
foreach $reply (&'property($userno, 'reply')) {
($str, $answer) = split(/\s+/, $reply, 2);
if ($msg eq $str) {
# $B$^$@:n$C$F$J$$ItJ,(B
}
}
return ($prefix, $cmd, $chan, $msg);
}
$B$3$3$^$GMh$l$P$"$H>/$7$G$9!#$"$H$OBP1~$9$kJV;v$r$9$k$@$1$G$9!#(B
$BJV;v$OH/8@$N$"$C$?%A%c%s%M%k$K$9$l$P$$$$$N$G$9$,!"(B
$B>/$7LdBj$,$"$C$F!"<+J,$"$F$N%W%i%$%Y!<%H$JH/8@$N>l9g$O!"(B
$chan$B$K$O%A%c%s%M%kL>$NJQ$o$j$K<+J,$N%K%C%/%M!<%`$,F~$C$F$$$^$9!#(B
$B$=$3$G!"H/8@$,%A%c%s%M%k$KBP$7$F$N$b$N$J$N$+!"(B
$B<+J,$KBP$9$k$b$N$J$N$+$r6hJL$9$kI,MW$,$"$j$^$9!#(B
$B%A%c%s%M%kL>$OF,$KI,$:!V(B#$B!W!"!V(B&$B!W!"!V(B+$B!W!"!V(B-$B!W$N$I$l$+$,$D$/$N$G!"(B
$B$=$&$G$J$$$b$N$OL5;k$7$^$9!#(B
package auto_answer;
$_ = 'auto_answer';
sub ss_privmsg {
local($serverno, $prefix, $cmd, $chan, $msg) = @_;
local($userno, $str, $answer);
$userno = $'userno[$serverno];
if ($chan =~ /^[\#\&\+\-]/) {
foreach $reply (&'property($userno, 'reply')) {
($str, $answer) = split(/\s+/, $reply, 2);
if ($msg eq $str) {
&'s_print($serverno, '', 'PRIVMSG', $chan, $answer);
last;
}
}
}
return ($prefix, $cmd, $chan, $msg);
}
$BJV;v$O%5!<%P$KBP$7$F9T$o$J$1$l$P$J$j$^$;$s!#(B
$B$3$N>l9g$OH/8@$,$5$l$?%5!<%P$,$o$+$C$F$$$k$N$G!"(B
$BJV;v$b$=$N%5!<%P$KBP$7$F9T$$$^$9!#(B
$B$3$l$G$H$j$"$($:40@.$G$9!#$3$N%b%8%e!<%k$r;HMQ$9$k$?$a$K$O(B
plum.conf$B$K0J2<$N$h$&$K@_Dj$7$^$9!#(B
+ auto/answer.plm
auto.answer.reply: $B$3$s$K$A$O(B $B$3$s$K$A$O!A!y(B
$B$3$l$GC/$+$,!V$3$s$K$A$O!W$HH/8@$9$k$H!"!V$3$s$K$A$O!A!y!W$HJV;v$r$7$^$9!#(B
auto/answer.plm$B$H$$$&%U%!%$%k$O$9$G$KB8:_$7$F$$$^$9$,!"(B
$B$3$N%b%8%e!<%k$O/5!G=$,A}$($F$$$^$9$,!"(B
$B$"$kDxEY$o$+$C$F$7$^$($P%b%8%e!<%k$N2~B$$b4JC1$G$9!#(B