hpt/misc/filter-sample.pl

149           putMsgInArea("UNSECURE", $fromname, $toname, $fromaddr, $toaddr,
193         putMsgInArea("UNSECURE", $fromname, $toname, $fromaddr, $toaddr,
204           putMsgInArea("UNSECURE", $fromname, $toname, $fromaddr, $toaddr,
286   $toaddr   =~ s/\.0$//;
289   $toboss   = $toaddr;
294     { bounce($fromname, $fromaddr, $toname, $toaddr, $date, $subject, $text,
303       putMsgInArea("UNSECURE", $fromname, $toname, $fromaddr, $toaddr,
311       putMsgInArea("UNSECURE", $fromname, $toname, $fromaddr, $toaddr,
320       putMsgInArea("UNSECURE", $fromname, $toname, $fromaddr, $toaddr,
326     unless ($toaddr =~ /^(2:463\/68(\.\d+)?|2:46\/128(\.\d+)?|2:463\/59\.4|17:.*)$/)
327     { bounce($fromname, $fromaddr, $toname, $toaddr, $date, $subject, $text,
329       putMsgInArea("UNSECURE", $fromname, $toname, $fromaddr, $toaddr,
340     { $knownpoint = 1 if $_ eq $toaddr;
343     { bounce($fromname, $fromaddr, $toname, $toaddr, $date, $subject, $text,
345       putMsgInArea("BADMAIL", $fromname, $toname, $fromaddr, $toaddr,
352   if ($toaddr eq $myaddr[0])
359         putMsgInArea($_, $fromname, $toname, $fromaddr, $toaddr,
369         putMsgInArea("BADMAIL", $fromname, $toname, $fromaddr, $toaddr,
387 TO  :  $toname		$toaddr
404         putMsgInArea("BADMAIL", $fromname, $toname, $fromaddr, $toaddr,
517         putMsgInArea("BADMAIL", $fromname, $toname, $fromaddr, $toaddr,
527       { receipt($fromaddr, $toaddr, $fromname, $toname, $subject, $date);
529       putMsgInArea("GUL", $fromname, $toname, $fromaddr, $toaddr,
549       $key = sprintf("NETMAIL|%s|%s|%08x", $msgid, $toaddr, crc32($fromname . $toname . $subject));
578           putMsgInArea("LOOPS", $fromname, $toname, $fromaddr, $toaddr,
587     if (_route($toaddr, $attr, $text) eq $pktfrom)
589       putMsgInArea("LOOPS", $fromname, $toname, $fromaddr, $toaddr,
596     { arqcpt($fromaddr, $toaddr, $fromname, $toname, $subject, $date, $attr, $text);
614   if ($toaddr eq "")
646   $toboss   = $toaddr;
656     bounce($fromname, $fromaddr, $toname, $toaddr, $date, $subject, $text,
664   { putMsgInArea("I_SENT", $fromname, $toname, $fromaddr, $toaddr,
667   if ($toaddr eq $myaddr[0])
675     { putMsgInArea("GUL", $fromname, $toname, $fromaddr, $toaddr,
686     { $toaddr = "2:46/128";
706   return _route($toaddr, $attr, $text);
711   my ($toaddr, $attr, $text) = @_;
968   my($fromname, $fromaddr, $toname, $toaddr, $date, $subject, $text, $reason) = @_;
989 TO  :  $toname		$toaddr
996   putMsgInArea("", "Crazy Mail Robot", $fromname, "", $toaddr,
1101   my($fromaddr, $toaddr, $fromname, $toname, $subject, $date, $attr, $origtext) = @_;
1103   $route = _route($toaddr, $attr, $origtext);
1113  To:      $toname            $toaddr
1128   my($fromaddr, $toaddr, $fromname, $toname, $subject, $date) = @_;
1138  To:      $toname            $toaddr