home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
plum2_33_1.lzh
/
module
/
user
/
away
/
client.plm
next >
Wrap
Text File
|
1999-03-24
|
2KB
|
95 lines
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
# $Id: client.plm,v 2.10 1998/12/20 02:18:10 hasegawa Exp $
# copyright (c)1997-1998 Yoshinori Hasegawa <hasegawa@madoka.org>
package user_away_client;
$_ = 'user_away_client';
sub client_open {
local($clientno) = @_;
local($sno);
$sno = $'server[$clientno];
if ($sno && $'avail[$sno]) {
foreach $cno (&'array($'clientlist)) {
next unless $'avail[$cno];
return if $'server[$cno] == $sno && $cno != $clientno;
}
&'s_print($sno, '', 'AWAY', '');
}
}
sub client_close {
local($clientno) = @_;
local($userno, $sno);
$userno = $'userno[$clientno];
$sno = $'server[$clientno];
if ($sno && $'avail[$sno]) {
$msg = &'property($userno, 'set');
return unless defined($msg);
foreach $cno (&'array($'clientlist)) {
next unless $'avail[$cno];
return if $'server[$cno] == $sno;
}
&'s_print($sno, '', '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 $'server[$cno] == $serverno;
}
&'s_print($serverno, '', 'AWAY', $msg);
}
__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/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
</DT>
<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
</DD>
</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>