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