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 / sys / show.plm < prev    next >
Text File  |  1999-03-24  |  1KB  |  49 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: show.plm,v 2.5 1998/12/20 02:25:19 hasegawa Exp $
  3. # copyright (c)1997-1998 Yoshinori Hasegawa <hasegawa@madoka.org>
  4.  
  5. package sys_show;
  6.  
  7. $_ = 'sys_show';
  8.  
  9. sub cs_show {
  10.   local($clientno, $prefix, $cmd, @params) = @_;
  11.   local($exec, $result);
  12.   $exec = join(' ', @params);
  13.   $result = eval($exec) || '0';
  14.   &'c_print($clientno, '', 'NOTICE', $'nick[$clientno], $result);
  15.   return ();
  16. }
  17.  
  18. __END__
  19. --><HTML><HEAD>
  20. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  21. <LINK REV="made" HREF="mailto:hasegawa@madoka.org">
  22. <TITLE>sys/show.plm</TITLE></HEAD><BODY>
  23.  
  24. $B%*%s%i%$%s%I%-%e%a%s%H(B
  25.  
  26.  
  27. <HR><H3>$BL>A0(B</H3>
  28.  
  29. sys/show.plm - $BG$0U$N(Bperl$B$NJ8$r<B9T$7$F7k2L$r%/%i%$%"%s%H$KAw$k(B
  30.  
  31.  
  32. <HR><H3>$B@bL@(B</H3>
  33.  
  34. show$B$H$$$&%3%^%s%I$rDI2C$7$^$9!#(B
  35. show$B%3%^%s%I$N0z?t$O(B1$B$D$G!"G$0U$N(Bperl$B$NJ8$r;XDj$7$^$9!#(B
  36. $B$3$NJ8$O(Bplum$B$K$h$C$F<B9T$5$l!"$=$N7k2L$r(BNOTICE$B$G%/%i%$%"%s%H$KAw$j$^$9!#(B
  37.  
  38.  
  39. <HR><H3>$B%W%m%Q%F%#(B</H3>
  40.  
  41.  
  42. <HR><H3>$B@_DjNc(B</H3>
  43.  
  44. <PRE>
  45. + sys/show.plm
  46. </PRE>
  47.  
  48. </BODY></HTML>
  49.