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