Lines Matching refs:addr
49 my($addr);
52 ($addr) = $hdr =~ m/<(.*)>/;
53 $addr =~ s/.*\@//;
54 return $addr;
56 if ($addr =~ /\s*\(/) {
57 ($addr) = $hdr =~ m/\s*(.*)\s*\(/;
58 $addr =~ s/.*\@//;
59 return $addr;
61 ($addr) = $hdr =~ m/\s*(.*)\s*/;
62 $addr =~ s/.*\@//;
63 return $addr;
74 my($addr, $from) = @_;
78 my($dest) = "postmaster\@" . parseaddr($addr);
196 my($addr, $sent);
197 foreach $addr (keys %{$addresses[2]}) {
199 syslog('info', "Trying to send to $addresses[2]{$addr} - $addresses[2]{\"From\"}");
201 $sent = send_bounce($addresses[2]{$addr}, $addresses[2]{"From"});
208 foreach $addr (keys %{$addresses[1]}) {
210 syslog('info', "Trying to send to $addresses[2]{$addr} - $addresses[2]{\"From\"}");
212 $sent = send_bounce($addresses[1]{$addr}, $addresses[2]{"From"});