diff -ru ../../code/bugzilla-2.14/Bug.pm ./Bug.pm
--- ../../code/bugzilla-2.14/Bug.pm Thu Oct 24 12:18:04 2002
+++ ./Bug.pm Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/CGI.pl ./CGI.pl
--- ../../code/bugzilla-2.14/CGI.pl Thu Oct 24 12:18:04 2002
+++ ./CGI.pl Tue Oct 29 16:15:17 2002
@@ -735,9 +735,8 @@
"login" => $login,
"password" => $password});
- open SENDMAIL, "|/usr/lib/sendmail -t";
- print SENDMAIL $msg;
- close SENDMAIL;
+# Win32 sendmail functionality
+ntsendmail($login . Param('emailsuffix'), $msg);
print "The password for the e-mail address\n";
print "$login has been e-mailed to that address.\n";
@@ -1176,7 +1175,7 @@
AppendComment($id, DBID_to_name($who),
"*** This bug has been confirmed by popular vote. ***");
print "<TABLE BORDER=1><TD><H2>Bug $id has been confirmed by votes.</H2>\n";
- system("./processmail", $id);
+ system ("D:\\perl\\bin\\perl", "processmail.pl", $id);
print "<TD><A HREF=\"show_bug.cgi?id=$id\">Go To BUG# $id</A></TABLE>\n";
}
diff -ru ../../code/bugzilla-2.14/Token.pm ./Token.pm
--- ../../code/bugzilla-2.14/Token.pm Thu Oct 24 12:18:04 2002
+++ ./Token.pm Tue Oct 29 16:15:17 2002
@@ -102,9 +102,7 @@
my $emailsuffix = &::Param('emailsuffix');
$token = &::url_quote($token);
- open SENDMAIL, "|/usr/lib/sendmail -t";
-
- print SENDMAIL qq|From: bugzilla-daemon
+ my $msg = qq|From: bugzilla-daemon
To: $emailaddress$emailsuffix
Subject: Bugzilla Change Password Request
@@ -118,7 +116,9 @@
${urlbase}token.cgi?a=cxlpw&t=$token
|;
- close SENDMAIL;
+
+ # NT sendmail functionality
+ ::ntsendmail($emailaddress.$emailsuffix,$msg);
}
sub Cancel {
@@ -145,8 +145,7 @@
my $username = $realname ? $realname . " <" . $loginname . ">" : $loginname;
# Notify the user via email about the cancellation.
- open SENDMAIL, "|/usr/lib/sendmail -t";
- print SENDMAIL qq|From: bugzilla-daemon
+ my $msg = qq|From: bugzilla-daemon
To: $username
Subject: "$tokentype" token cancelled
@@ -163,7 +162,9 @@
Cancelled Because: $cancelaction
|;
- close SENDMAIL;
+
+ # NT sendmail functionality
+ ::ntsendmail($username,$msg);
# Delete the token from the database.
&::SendSQL("LOCK TABLES tokens WRITE");
diff -ru ../../code/bugzilla-2.14/buglist.cgi ./buglist.cgi
--- ../../code/bugzilla-2.14/buglist.cgi Thu Oct 24 12:18:04 2002
+++ ./buglist.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/changepassword.cgi ./changepassword.cgi
--- ../../code/bugzilla-2.14/changepassword.cgi Thu Oct 24 12:18:04 2002
+++ ./changepassword.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/checksetup.pl ./checksetup.pl
--- ../../code/bugzilla-2.14/checksetup.pl Thu Oct 24 12:18:04 2002
+++ ./checksetup.pl Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -569,7 +569,7 @@
open HTACCESS, ">.htaccess";
print HTACCESS <<'END';
# don't allow people to retrieve non-cgi executable files or our private data
-<FilesMatch ^(.*\.pl|localconfig|processmail|syncshadowdb)$>
+<FilesMatch ^(.*\.pl|localconfig|syncshadowdb)$>
deny from all
</FilesMatch>
END
@@ -660,7 +660,7 @@
#
# These are the files which need to be marked executable
-my @executable_files = ('processmail', 'whineatnews.pl', 'collectstats.pl',
+my @executable_files = ('processmail.pl', 'whineatnews.pl', 'collectstats.pl',
'checksetup.pl', 'syncshadowdb', 'importxml.pl');
# tell me if a file is executable. All CGI files and those in @executable_files
@@ -703,7 +703,8 @@
if ($my_webservergroup) {
# Funny! getgrname returns the GID if fed with NAME ...
- my $webservergid = getgrnam($my_webservergroup);
+ # Removed getgrnam (to make it work on Windows NT).
+ my $webservergid = $my_webservergroup;
# chown needs to be called with a valid uid, not 0. $< returns the
# caller's uid. Maybe there should be a $bugzillauid, and call with that
# userid.
diff -ru ../../code/bugzilla-2.14/colchange.cgi ./colchange.cgi
--- ../../code/bugzilla-2.14/colchange.cgi Thu Oct 24 12:18:04 2002
+++ ./colchange.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/collectstats.pl ./collectstats.pl
--- ../../code/bugzilla-2.14/collectstats.pl Thu Oct 24 12:18:04 2002
+++ ./collectstats.pl Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/createaccount.cgi ./createaccount.cgi
--- ../../code/bugzilla-2.14/createaccount.cgi Thu Oct 24 12:18:04 2002
+++ ./createaccount.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/createattachment.cgi ./createattachment.cgi
--- ../../code/bugzilla-2.14/createattachment.cgi Thu Oct 24 12:18:04 2002
+++ ./createattachment.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -24,6 +24,8 @@
use diagnostics;
use strict;
+binmode(STDIN);
+binmode(STDOUT);
require "CGI.pl";
use vars %::COOKIE, %::FILENAME;
@@ -107,7 +109,7 @@
print '<TABLE BORDER=1><TD><H2>Attachment <A TITLE="'.value_quote($desc).
"\" HREF=\"showattachment.cgi?attach_id=$attachid\">$attachid</A> to bug $id created</H2>\n";
- system("./processmail", $id, $::COOKIE{'Bugzilla_login'});
+ system ("D:\\perl\\bin\\perl", "processmail.pl", $id, $::COOKIE{'Bugzilla_login'});
print "<TD><A HREF=\"show_bug.cgi?id=$id\">Go Back to BUG# $id</A></TABLE>\n";
print "<P><A HREF=\"createattachment.cgi?id=$id\">Create another attachment to bug $id</A></P>\n";
}
diff -ru ../../code/bugzilla-2.14/describecomponents.cgi ./describecomponents.cgi
--- ../../code/bugzilla-2.14/describecomponents.cgi Thu Oct 24 12:18:04 2002
+++ ./describecomponents.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/describekeywords.cgi ./describekeywords.cgi
--- ../../code/bugzilla-2.14/describekeywords.cgi Thu Oct 24 12:18:04 2002
+++ ./describekeywords.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/doeditparams.cgi ./doeditparams.cgi
--- ../../code/bugzilla-2.14/doeditparams.cgi Thu Oct 24 12:18:05 2002
+++ ./doeditparams.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -111,7 +111,7 @@
unlink "data/versioncache";
print "<PRE>";
-system("./syncshadowdb", "-v");
+system("d:\\perl\\bin\\perl", "syncshadowdb", "-v");
print "</PRE>";
print "OK, done.<p>\n";
diff -ru ../../code/bugzilla-2.14/doeditvotes.cgi ./doeditvotes.cgi
--- ../../code/bugzilla-2.14/doeditvotes.cgi Thu Oct 24 12:18:05 2002
+++ ./doeditvotes.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/duplicates.cgi ./duplicates.cgi
--- ../../code/bugzilla-2.14/duplicates.cgi Thu Oct 24 12:18:05 2002
+++ ./duplicates.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/editcomponents.cgi ./editcomponents.cgi
--- ../../code/bugzilla-2.14/editcomponents.cgi Thu Oct 24 12:18:05 2002
+++ ./editcomponents.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/editgroups.cgi ./editgroups.cgi
--- ../../code/bugzilla-2.14/editgroups.cgi Thu Oct 24 12:18:05 2002
+++ ./editgroups.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/editkeywords.cgi ./editkeywords.cgi
--- ../../code/bugzilla-2.14/editkeywords.cgi Thu Oct 24 12:18:05 2002
+++ ./editkeywords.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/editmilestones.cgi ./editmilestones.cgi
--- ../../code/bugzilla-2.14/editmilestones.cgi Thu Oct 24 12:18:05 2002
+++ ./editmilestones.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
diff -ru ../../code/bugzilla-2.14/editparams.cgi ./editparams.cgi
--- ../../code/bugzilla-2.14/editparams.cgi Thu Oct 24 12:18:05 2002
+++ ./editparams.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/editproducts.cgi ./editproducts.cgi
--- ../../code/bugzilla-2.14/editproducts.cgi Thu Oct 24 12:18:05 2002
+++ ./editproducts.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/editusers.cgi ./editusers.cgi
--- ../../code/bugzilla-2.14/editusers.cgi Thu Oct 24 12:18:05 2002
+++ ./editusers.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/editversions.cgi ./editversions.cgi
--- ../../code/bugzilla-2.14/editversions.cgi Thu Oct 24 12:18:05 2002
+++ ./editversions.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/enter_bug.cgi ./enter_bug.cgi
--- ../../code/bugzilla-2.14/enter_bug.cgi Thu Oct 24 12:18:05 2002
+++ ./enter_bug.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/globals.pl ./globals.pl
--- ../../code/bugzilla-2.14/globals.pl Thu Oct 24 12:18:05 2002
+++ ./globals.pl Tue Oct 29 16:15:17 2002
@@ -87,6 +87,18 @@
# Joe Robins, 7/5/00
$::superusergroupset = "9223372036854775807";
+# Added by Francis 17 Sep 2002 process
+use NTsendmail;
+$ENV{"NTsendmail"}="smtp.ravenbrook.com";
+$ENV{"NTsendmail_bug"}=1;
+$ENV{"NTsendmail_max_tried"}=5;
+sub ntsendmail
+{
+ my ($to, $msg) = @_;
+ my $mail=new NTsendmail;
+ $mail->send("bugzilla-daemon\@ravenbrook.com",$to,"",$msg);
+}
+
#sub die_with_dignity {
# my ($err_msg) = @_;
# print $err_msg;
@@ -1243,7 +1255,6 @@
if (Param('sendmailnow')) {
$sendmailparm = '';
}
- if (open(SENDMAIL, "|/usr/lib/sendmail $sendmailparm -t")) {
my %substs;
$substs{"to"} = $name;
@@ -1262,9 +1273,10 @@
my $msg = PerformSubsts(Param("voteremovedmail"),
\%substs);
- print SENDMAIL $msg;
- close SENDMAIL;
- }
+
+ # NT sendmail functionality
+ ntsendmail($name, $msg);
+
}
SendSQL("SELECT SUM(count) FROM votes WHERE bug_id = $id");
my $v = FetchOneColumn();
diff -ru ../../code/bugzilla-2.14/importxml.pl ./importxml.pl
--- ../../code/bugzilla-2.14/importxml.pl Thu Oct 24 12:18:05 2002
+++ ./importxml.pl Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -107,11 +107,8 @@
$header.= "From: Bugzilla <$from>\n";
$header.= "Subject: $subject\n\n";
- open(SENDMAIL,
- "|/usr/lib/sendmail -ODeliveryMode=background -t") ||
- die "Can't open sendmail";
- print SENDMAIL $header . $message . "\n";
- close SENDMAIL;
+ # NT sendmail functionality
+ ntsendmail($to, $head . $message);
Log($subject . " sent to: $to");
}
@@ -634,7 +631,7 @@
$log .= "\n\n\n";
}
- system("./processmail", $id, $exporter);
+ system ("D:\\perl\\bin\\perl", "processmail.pl", $id, $exporter);
}
my $subject = "$bugqty bug(s) successfully moved from $urlbase to "
diff -ru ../../code/bugzilla-2.14/long_list.cgi ./long_list.cgi
--- ../../code/bugzilla-2.14/long_list.cgi Thu Oct 24 12:18:05 2002
+++ ./long_list.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/move.pl ./move.pl
--- ../../code/bugzilla-2.14/move.pl Thu Oct 24 12:18:05 2002
+++ ./move.pl Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -127,7 +127,7 @@
"($id, $exporterid, now(), " . SqlQuote($comment) . ")");
print "<P>Bug $id moved to " . Param("move-to-url") . ".<BR>\n";
- system("./processmail", $id, $exporter);
+ system ("D:\\perl\\bin\\perl", "processmail.pl", $id, $exporter);
}
}
print "<P>\n";
@@ -146,11 +146,8 @@
$msg .= "Subject: Moving bug(s) $buglist\n\n";
$msg .= $xml . "\n";
-open(SENDMAIL,
- "|/usr/lib/sendmail -ODeliveryMode=background -t") ||
- die "Can't open sendmail";
-print SENDMAIL $msg;
-close SENDMAIL;
+# NT sendmail functionality
+ntsendmail($to, $msg);
my $logstr = "XML: bugs $buglist sent to $to";
Log($logstr);
diff -ru ../../code/bugzilla-2.14/new_comment.cgi ./new_comment.cgi
--- ../../code/bugzilla-2.14/new_comment.cgi Thu Oct 24 12:18:05 2002
+++ ./new_comment.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl
+#!d:/perl/bin/perl.exe
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/post_bug.cgi ./post_bug.cgi
--- ../../code/bugzilla-2.14/post_bug.cgi Thu Oct 24 12:18:05 2002
+++ ./post_bug.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -257,7 +257,7 @@
}
print "<TABLE BORDER=1><TD><H2>Bug $id posted</H2>\n";
-system("./processmail", $id, $::COOKIE{'Bugzilla_login'});
+system ("D:\\perl\\bin\\perl", "processmail.pl", $id, $::COOKIE{'Bugzilla_login'});
print "<TD><A HREF=\"show_bug.cgi?id=$id\">Back To BUG# $id</A></TABLE>\n";
print "<BR><A HREF=\"createattachment.cgi?id=$id\">Attach a file to this bug</a>\n";
diff -ru ../../code/bugzilla-2.14/process_bug.cgi ./process_bug.cgi
--- ../../code/bugzilla-2.14/process_bug.cgi Thu Oct 24 12:18:05 2002
+++ ./process_bug.cgi Tue Oct 29 16:19:12 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -1384,7 +1384,7 @@
push @ARGLIST, ( "-forceqacontact", $origQaContact);
}
push @ARGLIST, ($id, $::FORM{'who'});
- system ("./processmail",@ARGLIST);
+ system ("D:\\perl\\bin\\perl", "processmail.pl",@ARGLIST);
print "<TD><A HREF=\"show_bug.cgi?id=$id\">Back To BUG# $id</A></TABLE>\n";
@@ -1408,13 +1408,13 @@
}
SendSQL("INSERT INTO duplicates VALUES ($duplicate, $::FORM{'id'})");
print "<TABLE BORDER=1><TD><H2>Duplicate notation added to bug $duplicate</H2>\n";
- system("./processmail", $duplicate, $::FORM{'who'});
+ system ("D:\\perl\\bin\\perl", "processmail.pl", $duplicate, $::FORM{'who'});
print "<TD><A HREF=\"show_bug.cgi?id=$duplicate\">Go To BUG# $duplicate</A></TABLE>\n";
}
foreach my $k (keys(%dependencychanged)) {
print "<TABLE BORDER=1><TD><H2>Checking for dependency changes on bug $k</H2>\n";
- system("./processmail", $k, $::FORM{'who'});
+ system ("D:\\perl\\bin\\perl", "processmail.pl", $k, $::FORM{'who'});
print "<TD><A HREF=\"show_bug.cgi?id=$k\">Go To BUG# $k</A></TABLE>\n";
}
diff -ru ../../code/bugzilla-2.14/processmail ./processmail
--- ../../code/bugzilla-2.14/processmail Thu Oct 24 12:18:05 2002
+++ ./processmail Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -wT
+#!d:/perl/bin/perl.exe -w T
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -742,11 +742,9 @@
}
if ($enableSendMail == 1) {
- open(SENDMAIL, "|/usr/lib/sendmail $sendmailparam -t") ||
- die "Can't open sendmail";
-
- print SENDMAIL trim($msg) . "\n";
- close SENDMAIL;
+ # NT sendmail functionality
+ ntsendmail($person, $msg);
+
}
push(@sentlist, $person);
return 1;
diff -ru ../../code/bugzilla-2.14/query.cgi ./query.cgi
--- ../../code/bugzilla-2.14/query.cgi Thu Oct 24 12:18:05 2002
+++ ./query.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/queryhelp.cgi ./queryhelp.cgi
--- ../../code/bugzilla-2.14/queryhelp.cgi Thu Oct 24 12:18:05 2002
+++ ./queryhelp.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/quips.cgi ./quips.cgi
--- ../../code/bugzilla-2.14/quips.cgi Thu Oct 24 12:18:05 2002
+++ ./quips.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl
+#!d:/perl/bin/perl.exe
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/relogin.cgi ./relogin.cgi
--- ../../code/bugzilla-2.14/relogin.cgi Thu Oct 24 12:18:05 2002
+++ ./relogin.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/reports.cgi ./reports.cgi
--- ../../code/bugzilla-2.14/reports.cgi Thu Oct 24 12:18:05 2002
+++ ./reports.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/sanitycheck.cgi ./sanitycheck.cgi
--- ../../code/bugzilla-2.14/sanitycheck.cgi Thu Oct 24 12:18:05 2002
+++ ./sanitycheck.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/show_activity.cgi ./show_activity.cgi
--- ../../code/bugzilla-2.14/show_activity.cgi Thu Oct 24 12:18:05 2002
+++ ./show_activity.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/show_bug.cgi ./show_bug.cgi
--- ../../code/bugzilla-2.14/show_bug.cgi Thu Oct 24 12:18:05 2002
+++ ./show_bug.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/showattachment.cgi ./showattachment.cgi
--- ../../code/bugzilla-2.14/showattachment.cgi Thu Oct 24 12:18:05 2002
+++ ./showattachment.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -24,6 +24,8 @@
use diagnostics;
use strict;
+binmode(STDIN);
+binmode(STDOUT);
require "CGI.pl";
ConnectToDatabase();
diff -ru ../../code/bugzilla-2.14/showdependencygraph.cgi ./showdependencygraph.cgi
--- ../../code/bugzilla-2.14/showdependencygraph.cgi Thu Oct 24 12:18:05 2002
+++ ./showdependencygraph.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/showdependencytree.cgi ./showdependencytree.cgi
--- ../../code/bugzilla-2.14/showdependencytree.cgi Thu Oct 24 12:18:05 2002
+++ ./showdependencytree.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/showvotes.cgi ./showvotes.cgi
--- ../../code/bugzilla-2.14/showvotes.cgi Thu Oct 24 12:18:05 2002
+++ ./showvotes.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/syncshadowdb ./syncshadowdb
--- ../../code/bugzilla-2.14/syncshadowdb Thu Oct 24 12:18:05 2002
+++ ./syncshadowdb Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/token.cgi ./token.cgi
--- ../../code/bugzilla-2.14/token.cgi Thu Oct 24 12:18:05 2002
+++ ./token.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/userprefs.cgi ./userprefs.cgi
--- ../../code/bugzilla-2.14/userprefs.cgi Thu Oct 24 12:18:05 2002
+++ ./userprefs.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
diff -ru ../../code/bugzilla-2.14/whineatnews.pl ./whineatnews.pl
--- ../../code/bugzilla-2.14/whineatnews.pl Thu Oct 24 12:18:05 2002
+++ ./whineatnews.pl Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
@@ -62,8 +62,7 @@
foreach my $i (@{$bugs{$email}}) {
$msg .= " ${urlbase}show_bug.cgi?id=$i\n"
}
- open(SENDMAIL, "|/usr/lib/sendmail -t") || die "Can't open sendmail";
- print SENDMAIL $msg;
- close SENDMAIL;
+ # NT sendmail functionality
+ ntsendmail($email, $msg);
print "$email " . join(" ", @{$bugs{$email}}) . "\n";
}
diff -ru ../../code/bugzilla-2.14/xml.cgi ./xml.cgi
--- ../../code/bugzilla-2.14/xml.cgi Thu Oct 24 12:18:05 2002
+++ ./xml.cgi Tue Oct 29 16:15:17 2002
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public