File: show.plm

package info (click to toggle)
plum 1%3A2.33.1-11
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 2,056 kB
  • sloc: perl: 4,453; makefile: 2
file content (47 lines) | stat: -rw-r--r-- 1,053 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# $Id: show.plm,v 2.5 1998/12/20 02:25:19 hasegawa Exp $
# copyright (c)1997-1998 Yoshinori Hasegawa <hasegawa@madoka.org>

package sys_show;

$_ = 'sys_show';

sub cs_show {
  local($clientno, $prefix, $cmd, @params) = @_;
  local($exec, $result);
  $exec = join(' ', @params);
  $result = eval($exec) || '0';
  &'c_print($clientno, '', 'NOTICE', $'nick[$clientno], $result);
  return ();
}

__END__
--><HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
<LINK REV="made" HREF="mailto:hasegawa@madoka.org">
<TITLE>sys/show.plm</TITLE></HEAD><BODY>

$B%*%s%i%$%s%I%-%e%a%s%H(B


<HR><H3>$BL>A0(B</H3>

sys/show.plm - $BG$0U$N(Bperl$B$NJ8$r<B9T$7$F7k2L$r%/%i%$%"%s%H$KAw$k(B


<HR><H3>$B@bL@(B</H3>

show$B$H$$$&%3%^%s%I$rDI2C$7$^$9!#(B
show$B%3%^%s%I$N0z?t$O(B1$B$D$G!"G$0U$N(Bperl$B$NJ8$r;XDj$7$^$9!#(B
$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


<HR><H3>$B%W%m%Q%F%#(B</H3>


<HR><H3>$B@_DjNc(B</H3>

<PRE>
+ sys/show.plm
</PRE>

</BODY></HTML>