Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-09 19:35:51 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Removed stupid debugging printf's.

Browse Source
This commit is contained in:
terry%mozilla.org 1999-07-23 18:50:07 +00:00
parent 7f0054e2ff
commit ce6e9b6a4c
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
webtools/bonsai/adminfuncs.pl
View File

@ -48,43 +48,26 @@ sub SendHookMail {
$pathname = DataDir() . "/$filename";
print 'a';
return unless $hooklist;
print 'b';
return unless -f $pathname;
print 'c';
return unless open(MAIL, "< $pathname");
print 'd';
$mail = join("", <MAIL>);
print 'e';
close (MAIL);
print 'f';
%substs = ();
print 'g';
$substs{'hooklist'} = $hooklist;
print 'h';
$mail = PerformSubsts($mail, \%substs);
print 'i';
%headers = ParseMailHeaders($mail);
print 'j';
%headers = CleanMailHeaders(%headers);
print 'k';
$body = FindMailBody($mail);
print 'l';
my $mail_relay = Param("mailrelay");
print 'm';
my $mailer = Mail::Mailer->new("smtp", Server => $mail_relay);
print 'n';
$mailer->open(\%headers)
or warn "Can't send hook mail: $!\n";
print 'o';
print $mailer "$body\n";
print 'p';
$mailer->close();
print 'q';
}