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
48
49
50
51
52
53
54
|
# $Id: set.plm,v 2.5 1998/12/20 02:17:40 hasegawa Exp $
# copyright (c)1997-1998 Yoshinori Hasegawa <hasegawa@madoka.org>
package user_mode_set;
$_ = 'user_mode_set';
sub server_open {
local($serverno) = @_;
local($userno, $mode);
$userno = $'userno[$serverno];
$mode = &'property($userno, 'mode');
&'s_print($serverno, '', 'MODE', $'nick[$serverno], $mode) if defined($mode);
}
__END__
--><HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
<LINK REV="made" HREF="mailto:hasegawa@madoka.org">
<TITLE>user/mode/set.plm</TITLE></HEAD><BODY>
$B%*%s%i%$%s%I%-%e%a%s%H(B
<HR><H3>$BL>A0(B</H3>
user/mode/set.plm - $B%5!<%P$K@\B3$7$?$H$-$K%f!<%6%b!<%I$r@_Dj$9$k(B
<HR><H3>$B@bL@(B</H3>
$B%5!<%P$K@\B3$7$?$H$-$K!";XDj$5$l$?%f!<%6%b!<%I$r@_Dj$7$^$9!#(B
<HR><H3>$B%W%m%Q%F%#(B</H3>
<DL>
<DT> user.mode.set.mode $B%b!<%I(B
</DT>
<DD> $B@_Dj$9$k%f!<%6%b!<%I$r;XDj$7$^$9!#(B
</DD>
</DL>
<HR><H3>$B@_DjNc(B</H3>
<PRE>
+ usr/mode/set.plm
user.mode.set.mode: +i
</PRE>
$B%5!<%P$H@\B3$7$?$H$-$K!"%f!<%6%b!<%I$H$7$F!V(B+i$B!W$r@_Dj$7$^$9!#(B
</BODY></HTML>
|
