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 / first.plm < prev    next >
Text File  |  1998-01-06  |  3KB  |  89 lines
  1. # <!-- -*- perl -*-
  2. # $Id: first.plm,v 2.3 1998/01/06 22:24:28 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package channel_join_first;
  6.  
  7. $_ = 'channel_join_first';
  8.  
  9. sub server_open {
  10.   local($serverno) = @_;
  11.   local($userno) = $'userno[$serverno];
  12.   if (!defined($joinlist[$userno])) {
  13.     $joinlist[$userno] = '';
  14.     foreach $chan (&'property($userno, 'channel')) {
  15.       foreach $name (split(/\,/, $chan)) {
  16.         $joinlist[$userno] = &'add($joinlist[$userno], &'real($name));
  17.       }
  18.     }
  19.   }
  20.   &'s_print($serverno, '', 'JOIN', join(',', &'array($joinlist[$userno]))) if $joinlist[$userno];
  21. }
  22.  
  23. sub ss_join {
  24.   local($serverno, $prefix, $cmd, $chan) = @_;
  25.   local($name, $mode) = (split(/\cG/, $chan), '');
  26.   $joinlist[$'userno[$serverno]] = &'add($joinlist[$'userno[$serverno]], $name) if &'prefix($prefix) eq $'nick[$serverno];
  27.   return ($prefix, $cmd, $chan);
  28. }
  29.  
  30. sub ss_kick {
  31.   local($serverno, $prefix, $cmd, $chan, $who, $msg) = @_;
  32.   $joinlist[$'userno[$serverno]] = &'remove($joinlist[$'userno[$serverno]], $chan) if $who eq $'nick[$serverno];
  33.   return ($prefix, $cmd, $chan, $who,$msg);
  34. }
  35.  
  36. sub ss_part {
  37.   local($serverno, $prefix, $cmd, $chan, $msg) = @_;
  38.   $joinlist[$'userno[$serverno]] = &'remove($joinlist[$'userno[$serverno]], $chan) if &'prefix($prefix) eq $'nick[$serverno];
  39.   return ($prefix, $cmd, $chan, $msg);
  40. }
  41.  
  42. __END__
  43. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  44. <HTML><HEAD><TITLE> channel/join/first.plm </TITLE></HEAD><BODY>
  45.  
  46. $B%*%s%i%$%s%I%-%e%a%s%H(B
  47.  
  48.  
  49. <HR><H3> $BL>A0(B </H3>
  50.  
  51. channel/join/first.plm - $B%5!<%P$K@\B3$7$?$H$-$K;XDj$7$?%A%c%s%M%k$KF~$k(B
  52.  
  53.  
  54. <HR><H3> $B@bL@(B </H3>
  55.  
  56. $B%5!<%P$K@\B3$7$?$H$-$K!";XDj$7$?%A%c%s%M%k$KF~$j$^$9!#(B
  57. $B%5!<%P$H$N@\B3$,@Z$l$F:F$S@\B3$7D>$7$?$H$-$O!"(B
  58. $B;XDj$7$?%A%c%s%M%k$H$O4X78$J$/!"(B
  59. $B@\B3$,@Z$l$kA0$KF~$C$F$$$?%A%c%s%M%k$KF~$j$^$9!#(B
  60.  
  61.  
  62. <HR><H3> $B%W%m%Q%F%#(B </H3>
  63.  
  64. <DL>
  65. <DT> channel.join.first.channel* ($B%A%c%s%M%k(B)
  66. <DD>    $B%5!<%P$K@\B3$7$?$H$-$KF~$k%A%c%s%M%k$r;XDj$7$^$9!#(B
  67. </DL>
  68.  
  69.  
  70. <HR><H3> $B@_DjNc(B </H3>
  71.  
  72. <PRE>
  73. + channel/join/first.plm
  74. channel.join.first.channel: #$B$^$I$+(B
  75. </PRE>
  76.  
  77. $B%5!<%P$K@\B3$7$?$H$-$K!"!V(B#$B$^$I$+!W$KF~$j$^$9!#(B
  78.  
  79. <PRE>
  80. + channel/join/first.plm
  81. channel.join.first.channel: #$B$^$I$+(B:*.jp,#$B$W$i$`(B:*.jp
  82. channel.join.first.channel: #$B$W$i$`(B
  83. </PRE>
  84.  
  85. $B%5!<%P$K@\B3$7$?$H$-$K!"!V(B#$B$^$I$+(B:*.jp$B!W!"!V(B#$B$W$i$`(B:*.jp$B!W!"(B
  86. $B!V(B#$B$W$i$`!W$N(B3$B$D$N%A%c%s%M%k$KF~$j$^$9!#(B
  87.  
  88. </BODY></HTML>
  89.