home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / plum2_33_1.lzh / module / channel / mode / oper / get.plm next >
Text File  |  1999-03-24  |  2KB  |  84 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: get.plm,v 2.13 1998/12/23 04:51:57 hasegawa Exp $
  3. # copyright (c)1997-1998 Yoshinori Hasegawa <hasegawa@madoka.org>
  4.  
  5. package channel_mode_oper_get;
  6.  
  7. $_ = 'channel_mode_oper_get';
  8.  
  9. sub ss_kick {
  10.   local($serverno, $prefix, $cmd, @params) = @_;
  11.   local($userno);
  12.   $userno = $'userno[$serverno];
  13.   if ($params[1] ne $'nick[$serverno]) {
  14.     if ($'nameslist{$serverno, $params[0]} eq &'list($'nick[$serverno]) || $'nameslist{$serverno, $params[0]} eq &'list("+$'nick[$serverno]")) {
  15.       &'s_print($serverno, '', 'PART', $params[0]);
  16.       &'s_print($serverno, '', 'JOIN', $params[0]);
  17.     }
  18.   }
  19.   return ($prefix, $cmd, @params);
  20. }
  21.  
  22. sub ss_part {
  23.   local($serverno, $prefix, $cmd, @params) = @_;
  24.   local($userno, $nick);
  25.   $userno = $'userno[$serverno];
  26.   $nick = &'prefix($prefix);
  27.   if ($nick ne $'nick[$serverno]) {
  28.     if ($'nameslist{$serverno, $params[0]} eq &'list($'nick[$serverno]) || $'nameslist{$serverno, $params[0]} eq &'list("+$'nick[$serverno]")) {
  29.       &'s_print($serverno, '', 'PART', $params[0]);
  30.       &'s_print($serverno, '', 'JOIN', $params[0]);
  31.     }
  32.   }
  33.   return ($prefix, $cmd, @params);
  34. }
  35.  
  36. sub ss_quit {
  37.   local($serverno, $prefix, $cmd, @params) = @_;
  38.   local($userno, $nick);
  39.   $userno = $'userno[$serverno];
  40.   $nick = &'prefix($prefix);
  41.   if (!($params[0] =~ /^[\w\-\*]+(\.[\w\-]+)+\s+[\w\-\*]+(\.[\w\-]+)+$/)) {
  42.     foreach $chan (&'array($'channellist[$serverno])) {
  43.       if ($'nameslist{$serverno, $chan} eq &'list($'nick[$serverno]) || $'nameslist{$serverno, $chan} eq &'list("+$'nick[$serverno]")) {
  44.         &'s_print($serverno, '', 'PART', $chan);
  45.         &'s_print($serverno, '', 'JOIN', $chan);
  46.       }
  47.     }
  48.   }
  49.   return ($prefix, $cmd, @params);
  50. }
  51.  
  52. __END__
  53. --><HTML><HEAD>
  54. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  55. <LINK REV="made" HREF="mailto:hasegawa@madoka.org">
  56. <TITLE>channel/mode/oper/get.plm</TITLE></HEAD><BODY>
  57.  
  58. $B%*%s%i%$%s%I%-%e%a%s%H(B
  59.  
  60.  
  61. <HR><H3>$BL>A0(B</H3>
  62.  
  63. channel/mode/oper/get.plm - $B%A%c%s%M%k%*%Z%l!<%?$rI|5"$9$k(B
  64.  
  65.  
  66. <HR><H3>$B@bL@(B</H3>
  67.  
  68. $B%A%c%s%M%k$K<+J,$7$+$$$J$$$K$b$+$+$o$i$:!"(B
  69. $B<+J,$,%A%c%s%M%k%*%Z%l!<%?$G$O$J$$>l9g!"(B
  70. $B0lEY%A%c%s%M%k$rH4$1$F:F$SF~$jD>$9$3$H$K$h$C$F!"(B
  71. $B%A%c%s%M%k%*%Z%l!<%?$K$J$j$^$9!#(B
  72.  
  73.  
  74. <HR><H3>$B%W%m%Q%F%#(B</H3>
  75.  
  76.  
  77. <HR><H3>$B@_DjNc(B</H3>
  78.  
  79. <PRE>
  80. + channel/mode/oper/get.plm
  81. </PRE>
  82.  
  83. </BODY></HTML>
  84.