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