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 >
Wrap
Text File
|
1998-10-15
|
5KB
|
174 lines
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
# $Id: info.plm,v 2.10 1998/07/31 15:00:04 hasegawa Exp $
# copyright (c)1998 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
package server_info;
$_ = 'server_info';
sub server_close {
local($serverno) = @_;
$msg002[$serverno] = undef;
$msg003[$serverno] = undef;
$msg004[$serverno] = undef;
$msg251[$serverno] = undef;
$msg252[$serverno] = undef;
$msg253[$serverno] = undef;
$msg254[$serverno] = undef;
$msg255[$serverno] = undef;
$msg372[$serverno] = undef;
$msg375[$serverno] = undef;
}
sub client_open {
local($clientno) = @_;
local($sno, $name, $nick);
$sno = $'server[$clientno];
$name = $'servername[$clientno];
$nick = $'nick[$clientno];
if ($sno && $'avail[$sno]) {
&'c_print($clientno, $name, '002', $nick, &'array($msg002[$sno])) if $msg002[$sno];
&'c_print($clientno, $name, '003', $nick, &'array($msg003[$sno])) if $msg003[$sno];
&'c_print($clientno, $name, '004', $nick, &'array($msg004[$sno])) if $msg004[$sno];
&'c_print($clientno, $name, '251', $nick, &'array($msg251[$sno])) if $msg251[$sno];
&'c_print($clientno, $name, '252', $nick, &'array($msg252[$sno])) if $msg252[$sno];
&'c_print($clientno, $name, '253', $nick, &'array($msg253[$sno])) if $msg253[$sno];
&'c_print($clientno, $name, '254', $nick, &'array($msg254[$sno])) if $msg254[$sno];
&'c_print($clientno, $name, '255', $nick, &'array($msg255[$sno])) if $msg255[$sno];
if ($msg375[$sno]) {
&'c_print($clientno, $name, '375', $nick, &'array($msg375[$sno]));
foreach $msg (&'array($msg372[$sno])) {
&'c_print($clientno, $name, '372', $nick, $msg);
}
} else {
&'c_print($clientno, $name, '375', $nick, "- $name Message of the Day -");
}
&'c_print($clientno, $name, '376', $nick, 'End of /MOTD command.');
} else {
&'c_print($clientno, $name, '375', $nick, "- $name Message of the Day -");
&'c_print($clientno, $name, '376', $nick, 'End of /MOTD command.');
}
}
sub ss_002 {
local($serverno, $prefix, $cmd, @params) = @_;
local(@msg);
@msg = @params;
shift(@msg);
$msg002[$serverno] = &'list(@msg);
return ($prefix, $cmd, @params);
}
sub ss_003 {
local($serverno, $prefix, $cmd, @params) = @_;
local(@msg);
@msg = @params;
shift(@msg);
$msg003[$serverno] = &'list(@msg);
return ($prefix, $cmd, @params);
}
sub ss_004 {
local($serverno, $prefix, $cmd, @params) = @_;
local(@msg);
@msg = @params;
shift(@msg);
$msg004[$serverno] = &'list(@msg);
return ($prefix, $cmd, @params);
}
sub ss_251 {
local($serverno, $prefix, $cmd, @params) = @_;
local(@msg);
@msg = @params;
shift(@msg);
$msg251[$serverno] = &'list(@msg);
return ($prefix, $cmd, @params);
}
sub ss_252 {
local($serverno, $prefix, $cmd, @params) = @_;
local(@msg);
@msg = @params;
shift(@msg);
$msg252[$serverno] = &'list(@msg);
return ($prefix, $cmd, @params);
}
sub ss_253 {
local($serverno, $prefix, $cmd, @params) = @_;
local(@msg);
@msg = @params;
shift(@msg);
$msg253[$serverno] = &'list(@msg);
return ($prefix, $cmd, @params);
}
sub ss_254 {
local($serverno, $prefix, $cmd, @params) = @_;
local(@msg);
@msg = @params;
shift(@msg);
$msg254[$serverno] = &'list(@msg);
return ($prefix, $cmd, @params);
}
sub ss_255 {
local($serverno, $prefix, $cmd, @params) = @_;
local(@msg);
@msg = @params;
shift(@msg);
$msg255[$serverno] = &'list(@msg);
return ($prefix, $cmd, @params);
}
sub ss_372 {
local($serverno, $prefix, $cmd, @params) = @_;
local($msg);
$msg = $params[1];
$msg372[$serverno] .= $msg . $;;
return ($prefix, $cmd, @params);
}
sub ss_375 {
local($serverno, $prefix, $cmd, @params) = @_;
local(@msg);
@msg = @params;
shift(@msg);
$msg375[$serverno] = &'list(@msg);
$msg372[$serverno] = $;;
return ($prefix, $cmd, @params);
}
__END__
--><HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
<LINK REV="made" HREF="mailto:hasegawa@agusa.nuie.nagoya-u.ac.jp">
<TITLE>server/info.plm</TITLE></HEAD><BODY>
$B%*%s%i%$%s%I%-%e%a%s%H(B
<HR><H3>$BL>A0(B</H3>
server/info.plm - $B%/%i%$%"%s%H$N@\B3;~$K%5!<%P>pJs$rAw$k(B
<HR><H3>$B@bL@(B</H3>
$B%/%i%$%"%s%H$r@\B3$7$?$H$-$K!"8=:_@\B3$7$F$$$k%5!<%P$N>pJs$rAw$j$^$9!#(B
$B$3$l$i$N>pJs$O(Bplum$B$,%5!<%P$K@\B3$7$?;~$d!"(B
$B%f!<%6$,L@<(E*$K?7$7$$>pJs$rLd$$9g$o$;$?$H$-$K99?7$5$l$^$9!#(B
<HR><H3>$B%W%m%Q%F%#(B</H3>
<HR><H3>$B@_DjNc(B</H3>
<PRE>
+ server/info.plm
</PRE>
</BODY></HTML>