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 / channel / mode / set.plm
Text File  |  1998-10-15  |  2KB  |  71 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: set.plm,v 2.1 1998/09/15 11:27:35 hasegawa Exp $
  3. # copyright (c)1998 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  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 ($'nameslist{$serverno, $params[1]} eq &'list("\@$'nick[$serverno]")) {
  13.     $userno = $'userno[$serverno];
  14.     foreach $line (&'property($userno, 'mode')) {
  15.       ($list, $mode) = split(/\s+/, $line, 2);
  16.       foreach $chan (split(/\,/, $list)) {
  17.         next unless &'real($chan) eq $params[1];
  18.         &'s_print($serverno, '', 'MODE', $params[1], split(/\s+/, $mode));
  19.         last;
  20.       }
  21.     }
  22.   }
  23.   return ($prefix, $cmd, @params);
  24. }
  25.  
  26. __END__
  27. --><HTML><HEAD>
  28. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  29. <LINK REV="made" HREF="mailto:hasegawa@agusa.nuie.nagoya-u.ac.jp">
  30. <TITLE>channel/mode/set.plm</TITLE></HEAD><BODY>
  31.  
  32. $B%*%s%i%$%s%I%-%e%a%s%H(B
  33.  
  34.  
  35. <HR><H3>$BL>A0(B</H3>
  36.  
  37. 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
  38.  
  39.  
  40. <HR><H3>$B@bL@(B</H3>
  41.  
  42. $B<+J,$,%A%c%s%M%k$KF~$k0JA0$K$O%A%c%s%M%k$,B8:_$;$:!"(B
  43. $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
  44. $B$=$N%A%c%s%M%k$N%A%c%s%M%k%b!<%I$r@_Dj$7$^$9!#(B
  45.  
  46.  
  47. <HR><H3>$B%W%m%Q%F%#(B</H3>
  48.  
  49. <DL>
  50. <DT>  channel.mode.set.mode* ($B%A%c%s%M%kL>(B) $B%b!<%I(B
  51. </DT>
  52. <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
  53. </DD>   
  54. </DL>
  55.  
  56.  
  57. <HR><H3>$B@_DjNc(B</H3>
  58.  
  59. <PRE>
  60. + channel/mode/set.plm
  61. channel.mode.set.mode: #$B$W$i$`(B +nt
  62. channel.mode.set.mode: #plum:*.jp,#plum +pmk plum
  63. </PRE>
  64.  
  65. $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
  66. $B!V(B+nt$B!W$r@_Dj$7$^$9!#(B
  67. $B$^$?!V(B#plum:*.jp$B!W$b$7$/$O!V(B#plum$B!W$r:n@.$7$?$H$-$O!"(B
  68. $B%A%c%s%M%k%b!<%I$H$7$F!V(B+pmk plum$B!W$r@_Dj$7$^$9!#(B
  69.  
  70. </BODY></HTML>
  71.