home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
2.x
/
plum2_15_2.lzh
/
module
/
user
/
away
/
nick.plm
< prev
Wrap
Text File
|
1997-11-16
|
2KB
|
81 lines
# <!-- -*- perl -*-
# $Id: nick.plm,v 2.1 1997/11/17 00:17:14 hasegawa Exp $
# copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
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, $nick) = @_;
&'s_print($serverno, '', 'AWAY', &getaway($'userno[$serverno], $'nick[$serverno])) if $nick eq $'nick[$serverno];
return ($prefix, $cmd, $nick);
}
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__
--><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><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!"(B
$B$=$N%K%C%/%M!<%`$KBP1~$9$k(BAWAY$B$,;XDj$5$l$F$$$l$P!"(B
$B$=$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
<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
</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>