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 / ctcp / part.plm < prev    next >
Text File  |  1998-01-12  |  2KB  |  94 lines
  1. # <!-- -*- perl -*-
  2. # $Id
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package ctcp_part;
  6.  
  7. $CLIENTINFO = 'PART';
  8.  
  9. $_ = 'ctcp_part';
  10.  
  11. sub cpss_part {
  12.   local($serverno, $prefix, $cmd, $msg) = @_;
  13.   local($userno, $regex, $rchan, $nick);
  14.   $nick = &'prefix($prefix);
  15.   $userno = $'userno[$serverno];
  16.   foreach $channel (&'property($userno, 'channel')) {
  17.     foreach $name (split(/\,/, $channel)) {
  18.       $rchan = &'real($name);
  19.       if ("\L$rchan\E" eq "\L$msg\E") {
  20.         &'s_print($serverno, '', 'PART', $msg, $nick);
  21.         return ($prefix, $cmd, $msg);
  22.       }
  23.     }
  24.   }
  25.   foreach $not (&'property($userno, 'not')) {
  26.     $regex = &'regex($not);
  27.     return ($prefix, $cmd, $msg) if $prefix =~ /$regex/i;
  28.   }
  29.   foreach $user (&'property($userno, 'user')) {
  30.     $regex = &'regex($user);
  31.     if ($prefix =~ /$regex/i) {
  32.       &'s_print($serverno, '', 'PART', $msg, $nick);
  33.       return ($prefix, $cmd, $msg);
  34.     }
  35.   }
  36.   return ($prefix, $cmd, $msg);
  37. }
  38.  
  39. __END__
  40. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  41. <HTML><HEAD><TITLE> ctcp/part.plm </TITLE></HEAD><BODY>
  42.  
  43. $B%*%s%i%$%s%I%-%e%a%s%H(B
  44.  
  45.  
  46. <HR><H3> $BL>A0(B </H3>
  47.  
  48. ctcp/part.plm - CTCP PART$B$KH?1~$7$F%A%c%s%M%k$rH4$1$k(B
  49.  
  50.  
  51. <HR><H3> $B@bL@(B </H3>
  52.  
  53. CTCP PART$B$,Aw$i$l$F$-$?$H$-!"(B
  54. $B$=$l$KH?1~$7$F;XDj$5$l$?%A%c%s%M%k$rH4$1$^$9!#(B
  55.  
  56.  
  57. <HR><H3> $B%W%m%Q%F%#(B </H3>
  58.  
  59. <DL>
  60. <DT> ctcp.part.channel* ($B%A%c%s%M%k(B)
  61. <DD>    CTCP PART$B$,Aw$i$l$F$-$?$H$-!"(B
  62.         $B$=$l$,$3$3$G;XDj$5$l$?%A%c%s%M%k$J$i!"(B
  63.         $B$=$N%A%c%s%M%k$rH4$1$^$9!#(B
  64.         $B$3$N;XDj$OB>$N(B2$B$D$N%W%m%Q%F%#$h$jM%@h$5$l$^$9!#(B
  65. <DT> ctcp.part.not* $B%f!<%6%^%9%/(B
  66. <DD>    CTCP PART$B$rAw$C$??M$,$3$3$G;XDj$5$l$?$b$N$K%^%C%A$7$?$i!"(B
  67.         $B$=$N%A%c%s%M%k$+$i$OH4$1$^$;$s!#(B
  68.         $B$3$N;XDj$O!V(Bctcp.part.user$B!W$N;XDj$h$jM%@h$5$l$^$9!#(B
  69. <DT> ctcp.part.user* $B%f!<%6%^%9%/(B
  70. <DD>    CTCP PART$B$rAw$C$??M$,$3$3$G;XDj$5$l$?$b$N$K%^%C%A$7$?$i!"(B
  71.         $B$=$N%A%c%s%M%k$+$iH4$1$^$9!#(B
  72. </DL>
  73.  
  74.  
  75. <HR><H3> $B@_DjNc(B </H3>
  76.  
  77. <PRE>
  78. + ctcp/part.plm
  79. ctcp.part.channel: #$B$^$I$+(B
  80. </PRE>
  81.  
  82. $B!V(B#$B$^$I$+!W$rH4$1$k$h$&$K(BCTCP PART$B$,Aw$i$l$F$-$?>l9g!"!V(B#$B$^$I$+!W$rH4$1$^$9!#(B
  83.  
  84. <PRE>
  85. + ctcp/part.plm
  86. ctcp.part.user: pupu_j!*@*
  87. </PRE>
  88.  
  89. CTCP PART$B$,Aw$i$l$F$-$?$H$-!"$=$l$rAw$C$??M$,!V(Bpupu_j!*@*$B!W$K%^%C%A$7$?$i!"(B
  90. $B$=$N%A%c%s%M%k$rH4$1$^$9!#(B
  91.  
  92.  
  93. </BODY></HTML>
  94.