home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
1.x
/
plum10.lzh
/
plum10
/
version.plm
< prev
next >
Wrap
Text File
|
1997-08-13
|
403b
|
17 lines
package version;
$_ = 'version';
sub xss_version {
local($serverno, $prefix, $cmd, @params) = @_;
local($nick) = &'prefix($prefix);
¬ice($serverno, $nick, 'VERSION', $'NAME, $'VERSION, 'perl', sprintf('%1.3f', $]));
return ($prefix, $cmd, @params);
}
sub notice {
local($serverno, $nick, @params) = @_;
&'s_print($serverno, '', 'NOTICE', $nick, "\cA" . join(' ', @params) . "\cA");
}