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 / mode / set.plm
Text File  |  1999-03-24  |  2KB  |  73 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: set.plm,v 2.4 1999/03/15 14:14:52 hasegawa Exp $
  3. # copyright (c)1998 Yoshinori Hasegawa <hasegawa@madoka.org>
  4.  
  5. package channel_mode_set;
  6.  
  7. $_ = 'channel_mode_set';
  8.  
  9. sub ss_366 {
  10.   local($serverno, $prefix, $cmd, @params) = @_;
  11.   local($userno, $list, $mode);
  12.   if ($params[1] && $'nameslist{$serverno, $params[1]}) {
  13.     if ($'nameslist{$serverno, $params[1]} eq &'list("\@$'nick[$serverno]")) {
  14.       $userno = $'userno[$serverno];
  15.       foreach $line (&'property($userno, 'mode')) {
  16.         ($list, $mode) = split(/\s+/, $line, 2);
  17.         foreach $chan (split(/\,/, $list)) {
  18.           next unless &'real($chan) eq $params[1];
  19.           &'s_print($serverno, '', 'MODE', $params[1], split(/\s+/, $mode));
  20.           last;
  21.         }
  22.       }
  23.     }
  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>channel/mode/set.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. channel/mode/set.plm - $B%A%c%s%M%k$r:n@.$7$?$H$-$K%A%c%s%M%k%b!<%I$r@_Dj$9$k(B
  40.  
  41.  
  42. <HR><H3>$B@bL@(B</H3>
  43.  
  44. $B<+J,$,%A%c%s%M%k$KF~$k0JA0$K$O%A%c%s%M%k$,B8:_$;$:!"(B
  45. $B<+J,$,%A%c%s%M%k$KF~$k$3$H$K$h$C$F%A%c%s%M%k$r:n@.$7$?$H$-!"(B
  46. $B$=$N%A%c%s%M%k$N%A%c%s%M%k%b!<%I$r@_Dj$7$^$9!#(B
  47.  
  48.  
  49. <HR><H3>$B%W%m%Q%F%#(B</H3>
  50.  
  51. <DL>
  52. <DT>  channel.mode.set.mode* ($B%A%c%s%M%kL>(B) $B%b!<%I(B
  53. </DT>
  54. <DD>    $B%A%c%s%M%k$H$=$N%A%c%s%M%k$K@_Dj$9$k%A%c%s%M%k%b!<%I$r;XDj$7$^$9!#(B
  55. </DD>   
  56. </DL>
  57.  
  58.  
  59. <HR><H3>$B@_DjNc(B</H3>
  60.  
  61. <PRE>
  62. + channel/mode/set.plm
  63. channel.mode.set.mode: #$B$W$i$`(B +nt
  64. channel.mode.set.mode: #plum:*.jp,#plum +pmk plum
  65. </PRE>
  66.  
  67. $B%A%c%s%M%k!V(B#$B$W$i$`!W$r:n@.$7$?$H$-$K!"%A%c%s%M%k%b!<%I$H$7$F(B
  68. $B!V(B+nt$B!W$r@_Dj$7$^$9!#(B
  69. $B$^$?!V(B#plum:*.jp$B!W$b$7$/$O!V(B#plum$B!W$r:n@.$7$?$H$-$O!"(B
  70. $B%A%c%s%M%k%b!<%I$H$7$F!V(B+pmk plum$B!W$r@_Dj$7$^$9!#(B
  71.  
  72. </BODY></HTML>
  73.