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