diff -ru bugzilla-2.14.5/Bug.pm testbugzilla/Bug.pm
--- bugzilla-2.14.5/Bug.pm Wed May 14 10:21:03 2003
+++ testbugzilla/Bug.pm Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/CGI.pl testbugzilla/CGI.pl
--- bugzilla-2.14.5/CGI.pl Wed May 14 10:21:03 2003
+++ testbugzilla/CGI.pl Fri May 23 14:16:00 2003
@@ -732,9 +732,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";
@@ -1185,7 +1184,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 bugzilla-2.14.5/Token.pm testbugzilla/Token.pm
--- bugzilla-2.14.5/Token.pm Wed May 14 10:21:03 2003
+++ testbugzilla/Token.pm Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/buglist.cgi testbugzilla/buglist.cgi
--- bugzilla-2.14.5/buglist.cgi Wed May 14 10:21:03 2003
+++ testbugzilla/buglist.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/changepassword.cgi testbugzilla/changepassword.cgi
--- bugzilla-2.14.5/changepassword.cgi Wed May 14 10:21:03 2003
+++ testbugzilla/changepassword.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/checksetup.pl testbugzilla/checksetup.pl
--- bugzilla-2.14.5/checksetup.pl Wed May 14 10:21:03 2003
+++ testbugzilla/checksetup.pl Fri May 23 14:17:07 2003
@@ -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>
<FilesMatch ^(localconfig.js|localconfig.rdf)$>
@@ -683,7 +683,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
@@ -726,7 +726,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 bugzilla-2.14.5/colchange.cgi testbugzilla/colchange.cgi
--- bugzilla-2.14.5/colchange.cgi Wed May 14 10:21:03 2003
+++ testbugzilla/colchange.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/collectstats.pl testbugzilla/collectstats.pl
--- bugzilla-2.14.5/collectstats.pl Wed May 14 10:21:03 2003
+++ testbugzilla/collectstats.pl Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/createaccount.cgi testbugzilla/createaccount.cgi
--- bugzilla-2.14.5/createaccount.cgi Wed May 14 10:21:03 2003
+++ testbugzilla/createaccount.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/createattachment.cgi testbugzilla/createattachment.cgi
--- bugzilla-2.14.5/createattachment.cgi Wed May 14 10:21:03 2003
+++ testbugzilla/createattachment.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/describecomponents.cgi testbugzilla/describecomponents.cgi
--- bugzilla-2.14.5/describecomponents.cgi Wed May 14 10:21:03 2003
+++ testbugzilla/describecomponents.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/describekeywords.cgi testbugzilla/describekeywords.cgi
--- bugzilla-2.14.5/describekeywords.cgi Wed May 14 10:21:03 2003
+++ testbugzilla/describekeywords.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/doeditparams.cgi testbugzilla/doeditparams.cgi
--- bugzilla-2.14.5/doeditparams.cgi Wed May 14 16:12:36 2003
+++ testbugzilla/doeditparams.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/doeditvotes.cgi testbugzilla/doeditvotes.cgi
--- bugzilla-2.14.5/doeditvotes.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/doeditvotes.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/duplicates.cgi testbugzilla/duplicates.cgi
--- bugzilla-2.14.5/duplicates.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/duplicates.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/editcomponents.cgi testbugzilla/editcomponents.cgi
--- bugzilla-2.14.5/editcomponents.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/editcomponents.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/editgroups.cgi testbugzilla/editgroups.cgi
--- bugzilla-2.14.5/editgroups.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/editgroups.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/editkeywords.cgi testbugzilla/editkeywords.cgi
--- bugzilla-2.14.5/editkeywords.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/editkeywords.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/editmilestones.cgi testbugzilla/editmilestones.cgi
--- bugzilla-2.14.5/editmilestones.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/editmilestones.cgi Fri May 23 14:16:00 2003
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!d:/perl/bin/perl.exe -w
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
diff -ru bugzilla-2.14.5/editparams.cgi testbugzilla/editparams.cgi
--- bugzilla-2.14.5/editparams.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/editparams.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/editproducts.cgi testbugzilla/editproducts.cgi
--- bugzilla-2.14.5/editproducts.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/editproducts.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/editusers.cgi testbugzilla/editusers.cgi
--- bugzilla-2.14.5/editusers.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/editusers.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/editversions.cgi testbugzilla/editversions.cgi
--- bugzilla-2.14.5/editversions.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/editversions.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/enter_bug.cgi testbugzilla/enter_bug.cgi
--- bugzilla-2.14.5/enter_bug.cgi Wed May 14 10:21:04 2003
+++ testbugzilla/enter_bug.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/globals.pl testbugzilla/globals.pl
--- bugzilla-2.14.5/globals.pl Wed May 14 16:12:37 2003
+++ testbugzilla/globals.pl Fri May 23 14:16:00 2003
@@ -88,6 +88,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;
@@ -1270,7 +1282,6 @@
if (Param('sendmailnow')) {
$sendmailparm = '';
}
- if (open(SENDMAIL, "|/usr/lib/sendmail $sendmailparm -t")) {
my %substs;
$substs{"to"} = $name;
@@ -1289,9 +1300,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 bugzilla-2.14.5/importxml.pl testbugzilla/importxml.pl
--- bugzilla-2.14.5/importxml.pl Wed May 14 10:21:05 2003
+++ testbugzilla/importxml.pl Fri May 23 14:16:00 2003
@@ -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");
}
@@ -630,7 +627,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 bugzilla-2.14.5/long_list.cgi testbugzilla/long_list.cgi
--- bugzilla-2.14.5/long_list.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/long_list.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/move.pl testbugzilla/move.pl
--- bugzilla-2.14.5/move.pl Wed May 14 10:21:05 2003
+++ testbugzilla/move.pl Fri May 23 14:16:00 2003
@@ -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
@@ -123,7 +123,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";
@@ -142,11 +142,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 bugzilla-2.14.5/new_comment.cgi testbugzilla/new_comment.cgi
--- bugzilla-2.14.5/new_comment.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/new_comment.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/post_bug.cgi testbugzilla/post_bug.cgi
--- bugzilla-2.14.5/post_bug.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/post_bug.cgi Fri May 23 14:16:00 2003
@@ -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
@@ -253,7 +253,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 bugzilla-2.14.5/process_bug.cgi testbugzilla/process_bug.cgi
--- bugzilla-2.14.5/process_bug.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/process_bug.cgi Fri May 23 14:16:00 2003
@@ -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
@@ -1366,7 +1366,7 @@
push @ARGLIST, ( "-forceqacontact", $origQaContact);
}
push @ARGLIST, ($id, $::COOKIE{'Bugzilla_login'});
- 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";
@@ -1390,13 +1390,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, $::COOKIE{'Bugzilla_login'});
+ system ("D:\\perl\\bin\\perl", "processmail.pl", $duplicate, $::COOKIE{'Bugzilla_login'});
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, $::COOKIE{'Bugzilla_login'});
+ system ("D:\\perl\\bin\\perl", "processmail.pl", $k, $::COOKIE{'Bugzilla_login'});
print "<TD><A HREF=\"show_bug.cgi?id=$k\">Go To BUG# $k</A></TABLE>\n";
}
diff -ru bugzilla-2.14.5/processmail testbugzilla/processmail
--- bugzilla-2.14.5/processmail Wed May 14 10:21:05 2003
+++ testbugzilla/processmail Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/query.cgi testbugzilla/query.cgi
--- bugzilla-2.14.5/query.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/query.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/queryhelp.cgi testbugzilla/queryhelp.cgi
--- bugzilla-2.14.5/queryhelp.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/queryhelp.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/quips.cgi testbugzilla/quips.cgi
--- bugzilla-2.14.5/quips.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/quips.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/relogin.cgi testbugzilla/relogin.cgi
--- bugzilla-2.14.5/relogin.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/relogin.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/reports.cgi testbugzilla/reports.cgi
--- bugzilla-2.14.5/reports.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/reports.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/sanitycheck.cgi testbugzilla/sanitycheck.cgi
--- bugzilla-2.14.5/sanitycheck.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/sanitycheck.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/show_activity.cgi testbugzilla/show_activity.cgi
--- bugzilla-2.14.5/show_activity.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/show_activity.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/show_bug.cgi testbugzilla/show_bug.cgi
--- bugzilla-2.14.5/show_bug.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/show_bug.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/showattachment.cgi testbugzilla/showattachment.cgi
--- bugzilla-2.14.5/showattachment.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/showattachment.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/showdependencygraph.cgi testbugzilla/showdependencygraph.cgi
--- bugzilla-2.14.5/showdependencygraph.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/showdependencygraph.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/showdependencytree.cgi testbugzilla/showdependencytree.cgi
--- bugzilla-2.14.5/showdependencytree.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/showdependencytree.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/showvotes.cgi testbugzilla/showvotes.cgi
--- bugzilla-2.14.5/showvotes.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/showvotes.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/syncshadowdb testbugzilla/syncshadowdb
--- bugzilla-2.14.5/syncshadowdb Wed May 14 10:21:05 2003
+++ testbugzilla/syncshadowdb Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/token.cgi testbugzilla/token.cgi
--- bugzilla-2.14.5/token.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/token.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/userprefs.cgi testbugzilla/userprefs.cgi
--- bugzilla-2.14.5/userprefs.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/userprefs.cgi Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/whineatnews.pl testbugzilla/whineatnews.pl
--- bugzilla-2.14.5/whineatnews.pl Wed May 14 10:21:05 2003
+++ testbugzilla/whineatnews.pl Fri May 23 14:16:00 2003
@@ -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 bugzilla-2.14.5/xml.cgi testbugzilla/xml.cgi
--- bugzilla-2.14.5/xml.cgi Wed May 14 10:21:05 2003
+++ testbugzilla/xml.cgi Fri May 23 14:16:00 2003
@@ -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