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 / channel / join / invite.plm < prev    next >
Text File  |  1997-11-16  |  3KB  |  103 lines
  1. # <!-- -*- perl -*-
  2. # $Id: invite.plm,v 2.1 1997/11/17 00:02:48 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package channel_join_invite;
  6.  
  7. $_ = 'channel_join_invite';
  8.  
  9. sub ss_invite {
  10.   local($serverno, $prefix, $cmd, $nick, $chan) = @_;
  11.   local($userno, $regex);
  12.   $userno = $'userno[$serverno];
  13.   foreach $channel (&'property($userno, 'channel')) {
  14.     foreach $name (split(/\,/, $channel)) {
  15.       if ("\L$name\E" eq "\L$chan\E") {
  16.         &'s_print($serverno, '', 'JOIN', $chan);
  17.         return ($prefix, $cmd, $nick, $chan);
  18.       }
  19.     }
  20.   }
  21.   foreach $not (&'property($userno, 'not')) {
  22.     $regex = &'regex($not);
  23.     return ($prefix, $cmd, $nick, $chan) if $prefix =~ /$regex/i;
  24.   }
  25.   foreach $user (&'property($userno, 'user')) {
  26.     $regex = &'regex($user);
  27.     if ($prefix =~ /$regex/i) {
  28.       &'s_print($serverno, '', 'JOIN', $chan);
  29.       return ($prefix, $cmd, $nick, $chan);
  30.     }
  31.   }
  32.   return ($prefix, $cmd, $nick, $chan);
  33. }
  34.  
  35. __END__
  36. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  37. <HTML><HEAD><TITLE> channel/join/invite.plm </TITLE></HEAD><BODY>
  38.  
  39. $B%*%s%i%$%s%I%-%e%a%s%H(B
  40.  
  41.  
  42. <HR><H3> $BL>A0(B </H3>
  43.  
  44. channel/join/invite.plm - $B>7BT$5$l$?%A%c%s%M%k$KF~$k(B
  45.  
  46.  
  47. <HR><H3> $B@bL@(B </H3>
  48.  
  49. $B%A%c%s%M%k$K>7BT$5$l$?$H$-$K!"$=$N%A%c%s%M%k$KF~$j$^$9!#(B
  50.  
  51.  
  52. <HR><H3> $B%W%m%Q%F%#(B </H3>
  53.  
  54. <DL>
  55. <DT> channel.join.invite.channel* ($B%A%c%s%M%k(B)
  56. <DD>    $B>7BT$5$l$?%A%c%s%M%k$,$3$3$G;XDj$5$l$F$$$l$P!"(B
  57.         $B$=$N%A%c%s%M%k$KF~$j$^$9!#(B
  58.         $B%A%c%s%M%kL>$O(B,$B$G6h@Z$C$FJ#?t;XDj$9$k$3$H$,$G$-$^$9!#(B
  59.         $B$3$N;XDj$OB>$N(B2$B$D$N%W%m%Q%F%#$h$jM%@h$5$l$^$9!#(B
  60. <DT> channel.join.invite.not* $B%f!<%6%^%9%/(B
  61. <DD>    $B>7BT$7$??M$,$3$3$G;XDj$5$l$?$b$N$K%^%C%A$7$?$i!"(B
  62.         $B>7BT$5$l$?%A%c%s%M%k$K$OF~$j$^$;$s!#(B
  63.         $B$3$N;XDj$O!V(Bchannel.join.invite.user$B!W$N;XDj$h$jM%@h$5$l$^$9!#(B
  64. <DT> channel.join.invite.user* $B%f!<%6%^%9%/(B
  65. <DD>    $B>7BT$7$??M$,$3$3$G;XDj$5$l$?$b$N$K%^%C%A$7$?$i!"(B
  66.         $B>7BT$5$l$?%A%c%s%M%k$KF~$j$^$9!#(B
  67. </DL>
  68.  
  69.  
  70. <HR><H3> $B@_DjNc(B </H3>
  71.  
  72. <PRE>
  73. + channel/join/invite.plm
  74. channel.join.invite.channel: #$B$^$I$+(B:*.jp
  75. channel.join.invite.channel: #$B$W$i$`(B
  76. </PRE>
  77.  
  78. $B>7BT$5$l$?%A%c%s%M%k$,!V(B#$B$^$I$+(B:*.jp$B!W$+!V(B#$B$W$i$`!W$@$C$?>l9g$K!"(B
  79. $B$=$N%A%c%s%M%k$KF~$j$^$9!#(B
  80.  
  81. <PRE>
  82. + channel/join/invite.plm
  83. channel.join.invite.channel: %$B$^$I$+(B,#$B$W$i$`(B
  84. channel.join.invite.user: pupu_j!*@*.jp
  85. channel.join.invite.user: pupu_d!*@*.jp
  86. </PRE>
  87.  
  88. $B>7BT$5$l$?%A%c%s%M%k$,!V(B%$B$^$I$+!W$+!V(B#$B$W$i$`!W$@$C$?>l9g$O!"(B
  89. $B$=$N%A%c%s%M%k$KF~$j$^$9!#(B
  90. $B$^$?!">7BT$7$??M$,!V(Bpupu_j!*@*.jp$B!W$+!V(Bpupu_d*!*@*.jp$B!W$K(B
  91. $B%^%C%A$7$?>l9g$O>7BT$5$l$?%A%c%s%M%k$K$G$bF~$j$^$9!#(B
  92.  
  93. <PRE>
  94. + channel/join/invite.plm
  95. channel.join.invite.not: *!*@*
  96. channel.join.invite.user: *!*@*
  97. </PRE>
  98.  
  99. $BC/$+$i$I$3$N%A%c%s%M%k$K>7BT$5$l$?$H$7$F$b!"(B
  100. $B$=$N%A%c%s%M%k$K$OF~$j$^$;$s!#(B
  101.  
  102. </BODY></HTML>
  103.