home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 2.x / plum2_32_1.lzh / module / ctcp / dcc / cancel.plm next >
Text File  |  1999-02-20  |  1KB  |  57 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: cancel.plm,v 2.10 1998/12/20 02:21:37 hasegawa Exp $
  3. # copyright (c)1998 Yoshinori Hasegawa <hasegawa@madoka.org>
  4.  
  5. package ctcp_dcc_cancel;
  6.  
  7. $CLIENTINFO = 'DCC';
  8.  
  9. $_ = 'ctcp_dcc_cancel';
  10.  
  11. sub cpss_dcc {
  12.   local($serverno, $prefix, $cmd, @params) = @_;
  13.   local($nick, @msg);
  14.   $nick = &'prefix($prefix);
  15.   @msg = split(/\s+/, $params[1]);
  16.   if ("\L$msg[0]\E" eq 'chat') {
  17.     &'s_print($serverno, '', 'PRIVMSG', $nick, "\cA" . join(' ', $cmd, 'CANCEL', @msg[1, 2, 3]) . "\cA");
  18.     foreach $cno (&'array($'clientlist)) {
  19.       next unless $'avail[$cno];
  20.       next unless $'server[$cno] == $serverno;
  21.       &'c_print($cno, '', 'NOTICE', $'nick[$cno], "*** DCC canceled from $nick");
  22.     }
  23.     return ();
  24.   }
  25.   return ($prefix, $cmd, @params);
  26. }
  27.  
  28. __END__
  29. --><HTML><HEAD>
  30. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  31. <LINK REV="made" HREF="mailto:hasegawa@madoka.org">
  32. <TITLE>ctcp/dcc/cancel.plm</TITLE></HEAD><BODY>
  33.  
  34. $B%*%s%i%$%s%I%-%e%a%s%H(B
  35.  
  36.  
  37. <HR><H3>$BL>A0(B</H3>
  38.  
  39. ctcp/dcc/cancel.plm - DCC CHAT$B$r%-%c%s%;%k$9$k(B
  40.  
  41.  
  42. <HR><H3>$B@bL@(B</H3>
  43.  
  44. DCC CHAT$B$N%j%/%(%9%H$,$-$?$H$-$K!"$=$l$r%-%c%s%;%k$7$^$9!#(B
  45. DCC CHAT$B0J30$N(BDCC$B$K$D$$$F$O2?$b$7$^$;$s!#(B
  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/dcc/cancel.plm
  54. </PRE>
  55.  
  56. </BODY></HTML>
  57.