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 / server / info.plm next >
Text File  |  1999-03-24  |  5KB  |  188 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: info.plm,v 2.16 1999/01/31 07:51:47 hasegawa Exp $
  3. # copyright (c)1998-1999 Yoshinori Hasegawa <hasegawa@madoka.org>
  4.  
  5. package server_info;
  6.  
  7. $_ = 'server_info';
  8.  
  9. sub module_disable {
  10.   local($userno) = @_;
  11.   foreach $sno (&'array($'serverlist)) {
  12.     next unless $'avail[$sno];
  13.     next unless $userno == $'userno[$sno];
  14.     &clear_message($sno);
  15.   }
  16. }
  17.  
  18. sub server_close {
  19.   local($serverno) = @_;
  20.   &clear_message($serverno);
  21. }
  22.  
  23. sub clear_message {
  24.   local($no) = @_;
  25.   undef($msg002[$no]);
  26.   undef($msg003[$no]);
  27.   undef($msg004[$no]);
  28.   undef($msg251[$no]);
  29.   undef($msg252[$no]);
  30.   undef($msg253[$no]);
  31.   undef($msg254[$no]);
  32.   undef($msg255[$no]);
  33.   undef($msg372[$no]);
  34.   undef($msg375[$no]);
  35. }
  36.  
  37. sub client_open {
  38.   local($clientno) = @_;
  39.   local($sno, $name, $nick);
  40.   $sno = $'server[$clientno];
  41.   $name = $'servername[$clientno];
  42.   $nick = $'nick[$clientno];
  43.   if ($sno && $'avail[$sno]) {
  44.     &'c_print($clientno, $name, '002', $nick, &'array($msg002[$sno])) if $msg002[$sno];
  45.     &'c_print($clientno, $name, '003', $nick, &'array($msg003[$sno])) if $msg003[$sno];
  46.     &'c_print($clientno, $name, '004', $nick, &'array($msg004[$sno])) if $msg004[$sno];
  47.     &'c_print($clientno, $name, '251', $nick, &'array($msg251[$sno])) if $msg251[$sno];
  48.     &'c_print($clientno, $name, '252', $nick, &'array($msg252[$sno])) if $msg252[$sno];
  49.     &'c_print($clientno, $name, '253', $nick, &'array($msg253[$sno])) if $msg253[$sno];
  50.     &'c_print($clientno, $name, '254', $nick, &'array($msg254[$sno])) if $msg254[$sno];
  51.     &'c_print($clientno, $name, '255', $nick, &'array($msg255[$sno])) if $msg255[$sno];
  52.     if ($msg375[$sno]) {
  53.       &'c_print($clientno, $name, '375', $nick, &'array($msg375[$sno]));
  54.       foreach $msg (&'array($msg372[$sno])) {
  55.         &'c_print($clientno, $name, '372', $nick, $msg);
  56.       }
  57.     } else {
  58.       &'c_print($clientno, $name, '375', $nick, "- $name Message of the Day -");
  59.     }
  60.     &'c_print($clientno, $name, '376', $nick, 'End of /MOTD command.');
  61.   } else {
  62.     &'c_print($clientno, $name, '375', $nick, "- $name Message of the Day -");
  63.     &'c_print($clientno, $name, '376', $nick, 'End of /MOTD command.');
  64.   }
  65. }
  66.  
  67. sub ss_002 {
  68.   local($serverno, $prefix, $cmd, @params) = @_;
  69.   local(@msg);
  70.   @msg = @params;
  71.   shift(@msg);
  72.   $msg002[$serverno] = &'list(@msg);
  73.   return ($prefix, $cmd, @params);
  74. }
  75.  
  76. sub ss_003 {
  77.   local($serverno, $prefix, $cmd, @params) = @_;
  78.   local(@msg);
  79.   @msg = @params;
  80.   shift(@msg);
  81.   $msg003[$serverno] = &'list(@msg);
  82.   return ($prefix, $cmd, @params);
  83. }
  84.  
  85. sub ss_004 {
  86.   local($serverno, $prefix, $cmd, @params) = @_;
  87.   local(@msg);
  88.   @msg = @params;
  89.   shift(@msg);
  90.   $msg004[$serverno] = &'list(@msg);
  91.   return ($prefix, $cmd, @params);
  92. }
  93.  
  94. sub ss_251 {
  95.   local($serverno, $prefix, $cmd, @params) = @_;
  96.   local(@msg);
  97.   @msg = @params;
  98.   shift(@msg);
  99.   $msg251[$serverno] = &'list(@msg);
  100.   return ($prefix, $cmd, @params);
  101. }
  102.  
  103. sub ss_252 {
  104.   local($serverno, $prefix, $cmd, @params) = @_;
  105.   local(@msg);
  106.   @msg = @params;
  107.   shift(@msg);
  108.   $msg252[$serverno] = &'list(@msg);
  109.   return ($prefix, $cmd, @params);
  110. }
  111.  
  112. sub ss_253 {
  113.   local($serverno, $prefix, $cmd, @params) = @_;
  114.   local(@msg);
  115.   @msg = @params;
  116.   shift(@msg);
  117.   $msg253[$serverno] = &'list(@msg);
  118.   return ($prefix, $cmd, @params);
  119. }
  120.  
  121. sub ss_254 {
  122.   local($serverno, $prefix, $cmd, @params) = @_;
  123.   local(@msg);
  124.   @msg = @params;
  125.   shift(@msg);
  126.   $msg254[$serverno] = &'list(@msg);
  127.   return ($prefix, $cmd, @params);
  128. }
  129.  
  130. sub ss_255 {
  131.   local($serverno, $prefix, $cmd, @params) = @_;
  132.   local(@msg);
  133.   @msg = @params;
  134.   shift(@msg);
  135.   $msg255[$serverno] = &'list(@msg);
  136.   return ($prefix, $cmd, @params);
  137. }
  138.  
  139. sub ss_372 {
  140.   local($serverno, $prefix, $cmd, @params) = @_;
  141.   local($msg);
  142.   $msg = $params[1];
  143.   $msg372[$serverno] .= &'list($msg);
  144.   return ($prefix, $cmd, @params);
  145. }
  146.  
  147. sub ss_375 {
  148.   local($serverno, $prefix, $cmd, @params) = @_;
  149.   local(@msg);
  150.   @msg = @params;
  151.   shift(@msg);
  152.   $msg375[$serverno] = &'list(@msg);
  153.   $msg372[$serverno] = '';
  154.   return ($prefix, $cmd, @params);
  155. }
  156.  
  157. __END__
  158. --><HTML><HEAD>
  159. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  160. <LINK REV="made" HREF="mailto:hasegawa@madoka.org">
  161. <TITLE>server/info.plm</TITLE></HEAD><BODY>
  162.  
  163. $B%*%s%i%$%s%I%-%e%a%s%H(B
  164.  
  165.  
  166. <HR><H3>$BL>A0(B</H3>
  167.  
  168. server/info.plm - $B%/%i%$%"%s%H$N@\B3;~$K%5!<%P>pJs$rAw$k(B
  169.  
  170.  
  171. <HR><H3>$B@bL@(B</H3>
  172.  
  173. $B%/%i%$%"%s%H$r@\B3$7$?$H$-$K!"8=:_@\B3$7$F$$$k%5!<%P$N>pJs$rAw$j$^$9!#(B
  174. $B$3$l$i$N>pJs$O(Bplum$B$,%5!<%P$K@\B3$7$?;~$d!"(B
  175. $B%f!<%6$,L@<(E*$K?7$7$$>pJs$rLd$$9g$o$;$?$H$-$K99?7$5$l$^$9!#(B
  176.  
  177.  
  178. <HR><H3>$B%W%m%Q%F%#(B</H3>
  179.  
  180.  
  181. <HR><H3>$B@_DjNc(B</H3>
  182.  
  183. <PRE>
  184. + server/info.plm
  185. </PRE>
  186.  
  187. </BODY></HTML>
  188.