home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 1.x / plum11.lzh / plum11 / autojoin.plm < prev    next >
Text File  |  1997-08-28  |  1KB  |  39 lines
  1. package autojoin;
  2.  
  3. $_ = 'autojoin';
  4.  
  5. sub server_open {
  6.   local($serverno) = @_;
  7.   local($userno) = $'userno[$serverno];
  8.   foreach $channel (&'property($userno, 'autojoin')) {
  9.     $joinlist[$userno] = &'add($joinlist[$userno], &'rchan($channel));
  10.   }
  11.   &'s_print($serverno, '', 'JOIN', join(',', &'array($joinlist[$userno]))) if $joinlist[$userno];
  12. }
  13.  
  14. sub ss_join {
  15.   local($serverno, $prefix, $cmd, $chan) = @_;
  16.   local($name, $mode) = (split(/\cG/, $chan), '');
  17.   if (&'prefix($prefix) eq $'nick[$serverno]) {
  18.     $joinlist[$'userno[$serverno]] = &'add($joinlist[$'userno[$serverno]], $name);
  19.   }
  20.   return ($prefix, $cmd, $chan);
  21. }
  22.  
  23. sub ss_kick {
  24.   local($serverno, $prefix, $cmd, $chan, $who, $msg) = @_;
  25.   if ($who eq $'nick[$serverno]) {
  26.     &'s_print($serverno, '', 'JOIN', $chan);
  27.   }
  28.   return ($prefix, $cmd, $chan, $who, $msg);
  29. }
  30.  
  31. sub ss_part {
  32.   local($serverno, $prefix, $cmd, $chan, $msg) = @_;
  33.   if (&'prefix($prefix) eq $'nick[$serverno]) {
  34.     $joinlist[$'userno[$serverno]] = &'remove($joinlist[$'userno[$serverno]], $chan);
  35.   }
  36.   return ($prefix, $cmd, $chan, $msg);
  37. }
  38.  
  39.