home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 2.x / plum2_15_2.lzh / module / auto / answer.plm next >
Text File  |  1997-11-21  |  2KB  |  75 lines
  1. # <!-- -*- perl -*-
  2. # $Id: answer.plm,v 2.3 1997/11/22 02:59:50 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package auto_answer;
  6.  
  7. $_ = 'auto_answer';
  8.  
  9. sub ss_privmsg {
  10.   local($serverno, $prefix, $cmd, $chan, $msg) = @_;
  11.   local($userno, $nick, $str, $answer);
  12.   $userno = $'userno[$serverno];
  13.   $nick = &'prefix($prefix);
  14.   foreach $reply (&'property($userno, 'reply')) {
  15.     ($str, $answer) = split(/\s+/, $reply, 2);
  16.     next unless $str eq $msg;
  17.     if ($chan =~ /^[\#\&\+\-]/) {
  18.       &'s_print($serverno, '', 'PRIVMSG', $chan, $answer);
  19.     } else {
  20.       &'s_print($serverno, '', 'PRIVMSG', $nick, $answer);
  21.     }
  22.     foreach $cno (&'array($'clientlist)) {
  23.       next unless $'avail[$cno];
  24.       next unless $'userno[$cno] == $userno;
  25.       if ($chan =~ /^[\#\&\+\-]/) {
  26.         &'c_print($cno, &'user($cno), 'PRIVMSG', $chan, $answer);
  27.       } else {
  28.         &'c_print($cno, &'user($cno), 'PRIVMSG', $nick, $answer);
  29.       }
  30.     }
  31.     last;
  32.   }
  33.   return ($prefix, $cmd, $chan, $msg);
  34. }
  35.  
  36. __END__
  37. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  38. <HTML><HEAD><TITLE> auto/answer.plm </TITLE></HEAD><BODY>
  39.  
  40. $B%*%s%i%$%s%I%-%e%a%s%H(B
  41.  
  42.  
  43. <HR><H3> $BL>A0(B </H3>
  44.  
  45. auto/answer.plm - $BFCDj$NH/8@$KH?1~$7$FBP1~$9$kH/8@$r$9$k(B
  46.  
  47.  
  48. <HR><H3> $B@bL@(B </H3>
  49.  
  50. $BFCDj$N%a%C%;!<%8$,H/8@$5$l$k$H!"$=$l$KBP1~$9$k%a%C%;!<%8$rH/8@$7$^$9!#(B
  51. $B$9$Y$F$N%a%C%;!<%8$KH?1~$9$k$?$a!"F1$8H/8@$r2?EY$b7+$jJV$92DG=@-$,$"$j$^$9!#(B
  52.  
  53.  
  54. <HR><H3> $B%W%m%Q%F%#(B </H3>
  55.  
  56. <DL>
  57. <DT> auto.answer.reply* $B%a%C%;!<%8(B $B%a%C%;!<%8(B
  58. <DD>    $BH/8@$H$=$l$KBP$9$kJV;v$r;XDj$7$^$9!#(B
  59.         $BH?1~$9$kH/8@$K$O6uGr$r4^$a$k$3$H$O$G$-$^$;$s!#(B
  60. </DL>
  61.  
  62.  
  63. <HR><H3> $B@_DjNc(B </H3>
  64.  
  65. <PRE>
  66. + auto/answer.plm
  67. auto.answer.reply: $B$3$s$K$A$O(B $B$3$s$K$A$O!A!y(B
  68. auto.answer.reply: $B$3$s$P$s$O(B $B$3$s$P$s$O!A!y(B
  69. </PRE>
  70.  
  71. $B!V$3$s$K$A$O!W!"!V$3$s$P$s$O!W$H$$$&H/8@$,$"$C$?$H$-$K!"(B
  72. $B$=$l$>$l!V$3$s$K$A$O!A!y!W!"!V$3$s$P$s$O!A!y!W$HH/8@$7$^$9!#(B
  73.  
  74. </BODY></HTML>
  75.