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
/
client.plm
next >
Wrap
Text File
|
1997-11-21
|
2KB
|
90 lines
# <!-- -*- perl -*-
# $Id: client.plm,v 2.5 1997/11/21 11:20:46 hasegawa Exp $
# copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
package user_away_client;
$_ = 'user_away_client';
sub client_open {
local($clientno) = @_;
local($userno);
$userno = $'userno[$clientno];
return unless $'server[$userno];
return unless $'avail[$'server[$userno]];
foreach $cno (&'array($'clientlist)) {
next unless $'avail[$cno];
return if $'userno[$cno] == $userno && $cno != $clientno;
}
&'s_print($'server[$userno], '', 'AWAY', '');
}
sub client_close {
local($clientno) = @_;
local($userno, $msg);
$userno = $'userno[$clientno];
return unless $'server[$userno];
return unless $'avail[$'server[$userno]];
$msg = &'property($userno, 'set');
return unless defined($msg);
foreach $cno (&'array($'clientlist)) {
next unless $'avail[$cno];
return if $'userno[$cno] == $userno;
}
&'s_print($'server[$userno], '', 'AWAY', $msg);
}
sub server_open {
local($serverno) = @_;
local($userno, $msg);
$userno = $'userno[$serverno];
$msg = &'property($userno, 'set');
return unless defined($msg);
foreach $cno (&'array($'clientlist)) {
next unless $'avail[$cno];
return if $'userno[$cno] == $userno;
}
&'s_print($serverno, '', 'AWAY', $msg);
}
__END__
--><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE> user/away/client.plm </TITLE></HEAD><BODY>
$B%*%s%i%$%s%I%-%e%a%s%H(B
<HR><H3> $BL>A0(B </H3>
user/away/client.plm - $B%/%i%$%"%s%H$H$N@\B3>uBV$K$h$C$F(BAWAY$B$r@_Dj$9$k(B
<HR><H3> $B@bL@(B </H3>
plum$B$K%/%i%$%"%s%H$,@\B3$5$l$F$$$k$+$I$&$+$K$h$C$F!"(B
AWAY$B$r@_Dj$7$?$j<h$j>C$7$?$j$7$^$9!#(B
plum$B$K%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$O(BAWAY$B$r@_Dj$7!"(B
$B%/%i%$%"%s%H$,@\B3$5$l$k$H(BAWAY$B$r<h$j>C$7$^$9!#(B
<HR><H3> $B%W%m%Q%F%#(B </H3>
<DL>
<DT> user.away.client.set $B%a%C%;!<%8(B
<DD> $B%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$K!"(B
$B$3$3$G;XDj$7$?(BAMAY$B$r@_Dj$7$^$9!#(B
</DL>
<HR><H3> $B@_DjNc(B </H3>
<PRE>
+ user/away/client.plm
user.away.client.set: $B$$$^$;$s(B
</PRE>
$B%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$K!"!V$$$^$;$s!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
$B%/%i%$%"%s%H$,@\B3$5$l$k$H!"$3$N(BAWAY$B$O<h$j>C$5$l$^$9!#(B
</BODY></HTML>