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