home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 1.x / plum12.lzh / plum12 / makeoper.plm < prev    next >
Text File  |  1997-09-25  |  2KB  |  60 lines
  1. package makeoper;
  2.  
  3. $_ = 'makeoper';
  4.  
  5. sub ss_join {
  6.   local($serverno, $prefix, $cmd, $chan) = @_;
  7.   local($userno, $nick, $name, $mode);
  8.   $userno = $'userno[$serverno];
  9.   $nick = &'prefix($prefix);
  10.   ($name, $mode) = (split(/\cG/, $chan), '');
  11.   if ($nick eq $'nick[$serverno] && $mode !~ /o/i) {
  12.     if ($'nameslist{$userno, $name} eq "$;$nick$;" || $'nameslist{$userno, $name} eq "$;+$nick$;") {
  13.       &'s_print($serverno, '', 'PART', $name);
  14.       &'s_print($serverno, '', 'JOIN', $name);
  15.     }
  16.   }
  17.   return ($prefix, $cmd, $chan);
  18. }
  19.  
  20. sub ss_kick {
  21.   local($serverno, $prefix, $cmd, $chan, $who, $msg) = @_;
  22.   local($userno) = $'userno[$serverno];
  23.   if ($who ne $'nick[$serverno]) {
  24.     if ($'nameslist{$userno, $chan} eq "$;$'nick[$serverno]$;" || $'nameslist{$userno, $chan} eq "$;+$'nick[$serverno]$;") {
  25.       &'s_print($serverno, '', 'PART', $chan);
  26.       &'s_print($serverno, '', 'JOIN', $chan);
  27.     }
  28.   }
  29.   return ($prefix, $cmd, $chan, $who, $msg);
  30. }
  31.  
  32. sub ss_part {
  33.   local($serverno, $prefix, $cmd, $chan, $msg) = @_;
  34.   local($userno, $nick);
  35.   $userno = $'userno[$serverno];
  36.   $nick = &'prefix($prefix);
  37.   if ($nick ne $'nick[$serverno]) {
  38.     if ($'nameslist{$userno, $chan} eq "$;$'nick[$serverno]$;" || $'nameslist{$userno, $chan} eq "$;+$'nick[$serverno]$;") {
  39.       &'s_print($serverno, '', 'PART', $chan);
  40.       &'s_print($serverno, '', 'JOIN', $chan);
  41.     }
  42.   }
  43.   return ($prefix, $cmd, $chan, $msg);
  44. }
  45.  
  46. sub ss_quit {
  47.   local($serverno, $prefix, $cmd, $msg) = @_;
  48.   local($userno, $nick);
  49.   $userno = $'userno[$serverno];
  50.   $nick = &'prefix($prefix);
  51.   foreach $chan (&'array($'chanlist[$userno])) {
  52.     if ($'nameslist{$userno, $chan} eq "$;$'nick[$serverno]$;" || $'nameslist{$userno, $chan} eq "$;+$'nick[$serverno]$;") {
  53.       &'s_print($serverno, '', 'PART', $chan);
  54.       &'s_print($serverno, '', 'JOIN', $chan);
  55.     }
  56.   }
  57.   return ($prefix, $cmd, $msg);
  58. }
  59.  
  60.