Changeset 681 for trunk/cgi-bin/IPDB.pm
- Timestamp:
- 01/20/15 11:26:58 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/IPDB.pm
r678 r681 81 81 our $domain = 'example.com'; 82 82 our $defcustid = '5554242'; 83 our $smtpsender = 'ipdb@example.com'; 83 84 # mostly for rwhois 84 85 ##fixme: leave these blank by default? … … 1848 1849 1849 1850 foreach my $recip (keys %reciplist) { 1850 $mailer->mail( "ipdb\@$domain");1851 $mailer->mail($smtpsender); 1851 1852 $mailer->to($recip); 1852 $mailer->data("From: \"$org_name IP Database\" < ipdb\@$domain>\n",1853 $mailer->data("From: \"$org_name IP Database\" <$smtpsender>\n", 1853 1854 "To: $recip\n", 1854 1855 "Date: ".strftime("%a, %d %b %Y %H:%M:%S %z",localtime)."\n",
Note:
See TracChangeset
for help on using the changeset viewer.