home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 2.x / plum2_28_2.lzh / module / ctcp / finger.plm < prev    next >
Text File  |  1998-10-15  |  1KB  |  57 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: finger.plm,v 2.1 1998/10/06 04:05:18 hasegawa Exp $
  3. # copyright (c)1998 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package ctcp_finger;
  6.  
  7. $CLIENTINFO = 'FINGER';
  8.  
  9. $_ = 'ctcp_finger';
  10.  
  11. sub cpss_finger {
  12.   local($serverno, $prefix, $cmd, @params) = @_;
  13.   local($userno, $nick, $host);
  14.   $userno = $'userno[$serverno];
  15.   $nick = &'prefix($prefix);
  16.   foreach $cno (&'array($'clientlist)) {
  17.     next unless $'avail[$cno];
  18.     next unless $'server[$cno] == $serverno;
  19.     $host = (&'peername($cno))[2] ||  join('.', unpack('C4', pack('N', (&'peername($cno))[1])));
  20.     &'s_print($serverno, '', 'NOTICE', $nick, "\cA" . join(' ', $cmd, "$'nick[$cno] is <$'user[$cno]\@$host>") . "\cA");
  21.   }
  22.   return ($prefix, $cmd, $params);
  23. }
  24.  
  25. __END__
  26. --><HTML><HEAD>
  27. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  28. <LINK REV="made" HREF="mailto:hasegawa@agusa.nuie.nagoya-u.ac.jp">
  29. <TITLE>ctcp/finger.plm</TITLE></HEAD><BODY>
  30.  
  31. $B%*%s%i%$%s%I%-%e%a%s%H(B
  32.  
  33.  
  34. <HR><H3>$BL>A0(B</H3>
  35.  
  36. ctcp/finger.plm - CTCP FINGER$B$KH?1~$7$F%/%i%$%"%s%H$N>pJs$rAw$k(B
  37.  
  38.  
  39. <HR><H3>$B@bL@(B</H3>
  40.  
  41. CTCP FINGER$B$,Aw$i$l$F$-$?$H$-!"(B
  42. $B@\B3$5$l$F$$$k%/%i%$%"%s%H$N>pJs$rAw$jJV$7$^$9!#(B
  43. $B%/%i%$%"%s%H$N>pJs$O%K%C%/%M!<%`!"@\B3;~$N%f!<%6L>$H(B
  44. $B@\B385$N%[%9%HL>$G$9!#(B
  45.  
  46.  
  47. <HR><H3>$B%W%m%Q%F%#(B</H3>
  48.  
  49.  
  50. <HR><H3>$B@_DjNc(B</H3>
  51.  
  52. <PRE>
  53. + ctcp/finger.plm
  54. </PRE>
  55.  
  56. </BODY></HTML>
  57.