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 / alias.plm
Text File  |  1997-11-16  |  4KB  |  164 lines
  1. # <!-- -*- perl -*-
  2. # $Id: alias.plm,v 2.1 1997/11/17 00:01:27 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package channel_alias;
  6.  
  7. $_ = 'channel_alias';
  8.  
  9. sub cs_invite {
  10.   local($clientno, $prefix, $cmd, $nick, $chan) = @_;
  11.   return () unless $nick;
  12.   return () unless $chan;
  13.   return ($prefix, $cmd, $nick, &'real($chan));
  14. }
  15.  
  16. sub cs_join {
  17.   local($clientno, $prefix, $cmd, $chans, $keys) = @_;
  18.   local(@chan) = ();
  19.   return () unless $chans;
  20.   foreach $chan (split(/\,/, $chans)) {
  21.     push(@chan, &'real($chan));
  22.   }
  23.   if (defined($keys)) {
  24.     return ($prefix, $cmd, join(',', @chan), $keys);
  25.   } else {
  26.     return ($prefix, $cmd, join(',', @chan));
  27.   }
  28. }
  29.  
  30. sub cs_kick {
  31.   local($clientno, $prefix, $cmd, $chans, $nicks, $msg) = @_;
  32.   local(@chan) = ();
  33.   return () unless $chans;
  34.   return () unless $nicks;
  35.   foreach $chan (split(/\,/, $chans)) {
  36.     push(@chan, &'real($chan));
  37.   }
  38.   if (defined($msg)) {
  39.     return ($prefix, $cmd, join(',', @chan), $nicks, $msg);
  40.   } else {
  41.     return ($prefix, $cmd, join(',', @chan), $nicks);
  42.   }
  43. }
  44.  
  45. sub cs_list {
  46.   local($clientno, $prefix, $cmd, $chans, $server) = @_;
  47.   local(@chan) = ();
  48.   if (defined($chans)) {
  49.     foreach $chan (split(/\,/, $chans)) {
  50.       push(@chan, &'real($chan));
  51.     }
  52.     if (defined($server)) {
  53.       return ($prefix, $cmd, join(',', @chan), $server);
  54.     } else {
  55.       return ($prefix, $cmd, join(',', @chan));
  56.     }
  57.   } else {
  58.     return ($prefix, $cmd);
  59.   }
  60. }
  61.  
  62. sub cs_mode {
  63.   local($clientno, $prefix, $cmd, $chan, @modes) = @_;
  64.   return () unless $chan;
  65.   if (defined(@modes)) {
  66.     return ($prefix, $cmd, &'real($chan), @modes);
  67.   } else {
  68.     return ($prefix, $cmd, &'real($chan));
  69.   }
  70. }
  71.  
  72. sub cs_names {
  73.   local($clientno, $prefix, $cmd, $chans) = @_;
  74.   local(@chan) = ();
  75.   if (defined($chans)) {
  76.     foreach $chan (split(/\,/, $chans)) {
  77.       push(@chan, &'real($chan));
  78.     }
  79.     return ($prefix, $cmd, join(',', @chan));
  80.   } else {
  81.     return ($prefix, $cmd);
  82.   }
  83. }
  84.  
  85. sub cs_notice {
  86.   local($clientno, $prefix, $cmd, $chan, $msg) = @_;
  87.   return () unless $chan;
  88.   return unless defined($msg);
  89.   return ($prefix, $cmd, &'real($chan), $msg);
  90. }
  91.  
  92. sub cs_part {
  93.   local($clientno, $prefix, $cmd, $chan, $msg) = @_;
  94.   return () unless $chan;
  95.   if (defined($msg)) {
  96.     return ($prefix, $cmd, &'real($chan), $msg);
  97.   } else {
  98.     return ($prefix, $cmd, &'real($chan));
  99.   }
  100. }
  101.  
  102. sub cs_privmsg {
  103.   local($clientno, $prefix, $cmd, $chan, $msg) = @_;
  104.   return () unless $chan;
  105.   return unless defined($msg);
  106.   return ($prefix, $cmd, &'real($chan), $msg);
  107. }
  108.  
  109. sub cs_topic {
  110.   local($clientno, $prefix, $cmd, $chan, $topic) = @_;
  111.   return () unless $chan;
  112.   if (defined($topic)) {
  113.     return ($prefix, $cmd, &'real($chan), $topic);
  114.   } else {
  115.     return ($prefix, $cmd, &'real($chan));
  116.   }
  117. }
  118.  
  119. sub cs_who {
  120.   local($clientno, $prefix, $cmd, $chan, $mask) = @_;
  121.   if (defined($chan)) {
  122.     if (defined($mask)) {
  123.       return ($prefix, $cmd, &'real($chan), $mask);
  124.     } else {
  125.       return ($prefix, $cmd, &'real($chan));
  126.     }
  127.   } else {
  128.     return ($prefix, $cmd);
  129.   }
  130. }
  131.  
  132. __END__
  133. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  134. <HTML><HEAD><TITLE> channel/alias.plm </TITLE></HEAD><BODY>
  135.  
  136. $B%*%s%i%$%s%I%-%e%a%s%H(B
  137.  
  138.  
  139. <HR><H3> $BL>A0(B </H3>
  140.  
  141. channel/alias.plm - $B%A%c%s%M%k%(%$%j%"%9$rJQ49$9$k(B
  142.  
  143.  
  144. <HR><H3> $B@bL@(B </H3>
  145.  
  146. IRC$B$N%3%^%s%I$rAw$k$H$-$K!"%A%c%s%M%k%(%$%j%"%9$r;H$($k$h$&$K$7$^$9!#(B
  147. $B%A%c%s%M%kL>$N;XDj$,!V(B%$B%A%c%s%M%kL>!W$H$$$&7A<0$@$C$?>l9g$K!"(B
  148. $B$=$l$r!V(B#$B%A%c%s%M%kL>(B:*.jp$B!W$H$$$&7A<0$KJQ49$7$FAw$j$^$9!#(B
  149.  
  150.  
  151. <HR><H3> $B%W%m%Q%F%#(B </H3>
  152.  
  153. <DL>
  154. </DL>
  155.  
  156.  
  157. <HR><H3> $B@_DjNc(B </H3>
  158.  
  159. <PRE>
  160. + channel/alias.plm
  161. </PRE>
  162.  
  163. </BODY></HTML>
  164.