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 / ctcp / dcc / forward.plm < prev    next >
Text File  |  1999-03-24  |  2KB  |  83 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: forward.plm,v 2.12 1998/12/20 02:22:00 hasegawa Exp $
  3. # copyright (c)1998 Yoshinori Hasegawa <hasegawa@madoka.org>
  4.  
  5. package ctcp_dcc_forward;
  6.  
  7. $CLIENTINFO = 'DCC';
  8.  
  9. $_ = 'ctcp_dcc_forward';
  10.  
  11. sub cpss_dcc {
  12.   local($serverno, $prefix, $cmd, @params) = @_;
  13.   local($userno, $nick, $list, $no, $ch);
  14.   $nick = &'prefix($prefix);
  15.   $userno = $'userno[$serverno];
  16.   foreach $key (keys(%'nameslist)) {
  17.     ($no, $ch) = split(/$;/, $key);
  18.     next unless $no == $serverno;
  19.     $list = &'add($list, &'array($'nameslist{$key}));
  20.   }
  21.   foreach $item (&'property($userno, 'nick')) {
  22.     foreach $name (split(/\,/, $item)) {
  23.       next if "\L$name\E" eq "\L$'nick[$serverno]\E";
  24.       next unless &'exist($list, $name, "+$name", "\@$name");
  25.       &'s_print($serverno, '', 'PRIVMSG', $name, "\cA" . join(' ', $cmd, $params[1]) . "\cA");
  26.       foreach $cno (&'array($'clientlist)) {
  27.         next unless $'avail[$cno];
  28.         next unless $'server[$cno] == $serverno;
  29.         &'c_print($cno, '', 'NOTICE', $'nick[$cno], "*** DCC forwarded from $nick to $name");
  30.       }
  31.       return ();
  32.     }
  33.   }
  34.   return ($prefix, $cmd, @params);
  35. }
  36.  
  37. __END__
  38. --><HTML><HEAD>
  39. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  40. <LINK REV="made" HREF="mailto:hasegawa@madoka.org">
  41. <TITLE>ctcp/dcc/forward.plm</TITLE></HEAD><BODY>
  42.  
  43. $B%*%s%i%$%s%I%-%e%a%s%H(B
  44.  
  45.  
  46. <HR><H3>$BL>A0(B</H3>
  47.  
  48. ctcp/dcc/forward.plm - CTCP DCC$B$r;XDj$7$?%f!<%6$KE>Aw$9$k(B
  49.  
  50.  
  51. <HR><H3>$B@bL@(B</H3>
  52.  
  53. CTCP DCC$B$,Aw$i$l$F$-$?$H$-!"$=$l$r;XDj$7$?%f!<%6$KE>Aw$7$^$9!#(B
  54. $B$?$@$7E>Aw$9$k$H$-$KAw$j<g$,JQ$o$k$?$a!"E>Aw$5$l$?(BCTCP DCC$B$r(B
  55. $B%-%c%s%;%k$9$k$3$H$O$G$-$^$;$s!#(B
  56.  
  57.  
  58. <HR><H3>$B%W%m%Q%F%#(B</H3>
  59.  
  60. <DL>
  61. <DT>  ctcp.dcc.forward.nick* ($B%K%C%/%M!<%`(B)
  62. </DT>
  63. <DD>    CTCP DCC$B$rE>Aw$9$k%K%C%/%M!<%`!#A0$+$i=gHV$K8+$F$$$-!"(B
  64.         $BF1$8%A%c%s%M%k$K;XDj$7$?%K%C%/%M!<%`$N%f!<%6$,$$$l$P!"(B
  65.         $B$=$N%f!<%6$KE>Aw$7$^$9!#;XDj$7$?%K%C%/%M!<%`$N%f!<%6$,(B
  66.         $B$$$J$1$l$PE>Aw$O9T$$$^$;$s!#(B
  67. </DD>
  68. </DL>
  69.  
  70.  
  71. <HR><H3>$B@_DjNc(B</H3>
  72.  
  73. <PRE>
  74. + ctcp/dcc/forward.plm
  75. ctcp.dcc.forward.nick: pupu_j,pupu_d
  76. ctcp.dcc.forward.nick: pupu_ppp
  77. </PRE>
  78.  
  79. CTCP DCC$B$,Aw$i$l$F$-$?$H$-$K!"(Bpupu_j$B!"(Bpupu_d$B!"(Bpupu_ppp$B$N(B
  80. $B$I$l$+$N%K%C%/%M!<%`$N%f!<%6$,$$$l$P!"$=$N%f!<%6$K(BCTCP DCC$B$rE>Aw$7$^$9!#(B
  81.  
  82. </BODY></HTML>
  83.