home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 1.x / plum10.lzh / plum10 / invite.plm < prev    next >
Text File  |  1997-08-13  |  379b  |  18 lines
  1. package invite;
  2.  
  3. $_ = 'invite';
  4.  
  5. sub ss_invite {
  6.   local($serverno, $prefix, $cmd, $nick, $chan) = @_;
  7.   local($regex);
  8.   foreach $invite (&'property($'userno[$serverno], 'invite')) {
  9.     $regex = &'regex($invite);
  10.     if ($chan eq $invite || $prefix =~ /$regex/i) {
  11.       &'s_print($serverno, '', 'JOIN', $chan);
  12.       last;
  13.     }
  14.   }
  15.   return ($prefix, $cmd, $nick, $chan);
  16. }
  17.  
  18.