home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
2.x
/
plum2_32_1.lzh
/
module
/
user
/
away
/
nick.plm
< prev
Wrap
Text File
|
1999-02-20
|
2KB
|
84 lines
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
# $Id: nick.plm,v 2.5 1998/12/20 02:17:59 hasegawa Exp $
# copyright (c)1997-1998 Yoshinori Hasegawa <hasegawa@madoka.org>
package user_away_nick;
$_ = 'user_away_nick';
sub server_open {
local($serverno) = @_;
local($away);
$away = &getaway($'userno[$serverno], $'nick[$serverno]);
&'s_print($serverno, '', 'AWAY', $away);
}
sub ss_nick {
local($serverno, $prefix, $cmd, @params) = @_;
&'s_print($serverno, '', 'AWAY', &getaway($'userno[$serverno], $'nick[$serverno])) if $params[0] eq $'nick[$serverno];
return ($prefix, $cmd, @params);
}
sub getaway {
local($userno, $nick) = @_;
local($list, $away, $name);
foreach $set (&'property($userno, 'set')) {
($list, $away) = (split(/\s+/, $set, 2), '');
foreach $name (split(/\,/, $list)) {
return $away if "\L$name\E" eq "\L$nick\E";
}
}
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>user/away/nick.plm</TITLE></HEAD><BODY>
$B%*%s%i%$%s%I%-%e%a%s%H(B
<HR><H3>$BL>A0(B</H3>
user/away/nick.plm - $B%K%C%/%M!<%`$rJQ99$9$k$H$=$l$KBP1~$9$k(BAWAY$B$r@_Dj$9$k(B
<HR><H3>$B@bL@(B</H3>
$B%K%C%/%M!<%`$rJQ99$7$?$H$-$K!"$=$N%K%C%/%M!<%`$KBP1~$9$k(BAWAY$B$,(B
$B;XDj$5$l$F$$$l$P!"$=$N(BAWAY$B$r@_Dj$7$^$9!#(B
$B$=$&$G$J$1$l$P(BAWAY$B$r<h$j>C$7$^$9!#(B
<HR><H3>$B%W%m%Q%F%#(B</H3>
<DL>
<DT> user.away.nick.set* ($B%K%C%/%M!<%`(B) $B%a%C%;!<%8(B
</DT>
<DD> $B%K%C%/%M!<%`$HBP1~$9$k(BAWAY$B$r;XDj$7$^$9!#(B
$B%K%C%/%M!<%`$rJQ99$7$?$H$-$K!"(B
$B$=$N%K%C%/%M!<%`$,$3$3$G;XDj$5$l$?$b$N$J$i!"(B
$BBP1~$9$k(BAWAY$B$r@_Dj$7$^$9!#(B
$B%K%C%/%M!<%`$,;XDj$5$l$F$$$J$1$l$P(BAWAY$B$r<h$j>C$7$^$9!#(B
</DD>
</DL>
<HR><H3>$B@_DjNc(B</H3>
<PRE>
+ user/away/nick.plm
user.away.nick.set: pupu_Zzz $B$M$F$^$9(B
user.away.nick.set: pupu_work,pupu_job $B;E;vCf$G$9(B
</PRE>
$B%K%C%/%M!<%`$r!V(Bpupu_Zzz$B!W$KJQ99$9$k$H!"(B
$B!V$M$F$^$9!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
$B$^$?%K%C%/%M!<%`$r!V(Bpupu_work$B!W$+!V(Bpupu_job$B!W$KJQ99$9$k$H!"(B
$B!V;E;vCf$G$9!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
$B$=$l0J30$N%K%C%/%M!<%`$KJQ99$7$?>l9g$O(BAWAY$B$r<h$j>C$7$^$9!#(B
</BODY></HTML>