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 / channel / alias.plm next >
Text File  |  1999-03-24  |  2KB  |  108 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: alias.plm,v 2.8 1999/01/20 14:49:02 hasegawa Exp $
  3. # copyright (c)1997-1999 Yoshinori Hasegawa <hasegawa@madoka.org>
  4.  
  5. package channel_alias;
  6.  
  7. $_ = 'channel_alias';
  8.  
  9. sub cs_invite {
  10.   local($clientno, @message) = @_;
  11.   return &convert(3, @message);
  12. }
  13.  
  14. sub cs_join {
  15.   local($clientno, @message) = @_;
  16.   return &convert(2, @message);
  17. }
  18.  
  19. sub cs_kick {
  20.   local($clientno, @message) = @_;
  21.   return &convert(2, @message);
  22. }
  23.  
  24. sub cs_list {
  25.   local($clientno, @message) = @_;
  26.   return &convert(2, @message);
  27. }
  28.  
  29. sub cs_mode {
  30.   local($clientno, @message) = @_;
  31.   return &convert(2, @message);
  32. }
  33.  
  34. sub cs_names {
  35.   local($clientno, @message) = @_;
  36.   return &convert(2, @message);
  37. }
  38.  
  39. sub cs_notice {
  40.   local($clientno, @message) = @_;
  41.   return &convert(2, @message);
  42. }
  43.  
  44. sub cs_part {
  45.   local($clientno, @message) = @_;
  46.   return &convert(2, @message);
  47. }
  48.  
  49. sub cs_privmsg {
  50.   local($clientno, @message) = @_;
  51.   return &convert(2, @message);
  52. }
  53.  
  54. sub cs_topic {
  55.   local($clientno, @message) = @_;
  56.   return &convert(2, @message);
  57. }
  58.  
  59. sub cs_who {
  60.   local($clientno, @message) = @_;
  61.   return &convert(2, @message);
  62. }
  63.  
  64. sub convert {
  65.   local($idx, @message) = @_;
  66.   local(@list);
  67.   @list = ();
  68.   if (@message > $idx) {
  69.     foreach $chan (split(/\,/, $message[$idx])) {
  70.       push(@list, &'real($chan));
  71.     }
  72.     $message[$idx] = join(',', @list);
  73.   }
  74.   return @message;
  75. }
  76.  
  77. __END__
  78. --><HTML><HEAD>
  79. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  80. <LINK REV="made" HREF="mailto:hasegawa@madoka.org">
  81. <TITLE>channel/alias.plm</TITLE></HEAD><BODY>
  82.  
  83. $B%*%s%i%$%s%I%-%e%a%s%H(B
  84.  
  85.  
  86. <HR><H3>$BL>A0(B</H3>
  87.  
  88. channel/alias.plm - $B%A%c%s%M%k%(%$%j%"%9$rJQ49$9$k(B
  89.  
  90.  
  91. <HR><H3>$B@bL@(B</H3>
  92.  
  93. IRC$B$N%3%^%s%I$rAw$k$H$-$K!"%A%c%s%M%k%(%$%j%"%9$r;H$($k$h$&$K$7$^$9!#(B
  94. $B%A%c%s%M%kL>$N;XDj$,!V(B%$B%A%c%s%M%kL>!W$H$$$&7A<0$@$C$?>l9g$K!"(B
  95. $B$=$l$r!V(B#$B%A%c%s%M%kL>(B:*.jp$B!W$H$$$&7A<0$KJQ49$7$FAw$j$^$9!#(B
  96.  
  97.  
  98. <HR><H3>$B%W%m%Q%F%#(B</H3>
  99.  
  100.  
  101. <HR><H3>$B@_DjNc(B</H3>
  102.  
  103. <PRE>
  104. + channel/alias.plm
  105. </PRE>
  106.  
  107. </BODY></HTML>
  108.