[project @ 2000-12-05 22:20:15 by joy]

[debbugs.git] / scripts / html-control.in

diff --git a/scripts/html-control.in b/scripts/html-control.in
index e30b396c66d0eeb8e56752397d3d86033e77e428..ac5d8da1bb37bac4e8ce2b81ce9eb7577a36bd01 100755 (executable)
--- a/scripts/html-control.in
+++ b/scripts/html-control.in
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
-# $Id: html-control.in,v 1.2 1999/09/02 22:27:29 gecko Exp $
+# $Id: html-control.in,v 1.5 2000/10/07 17:27:13 joy Exp $
 
 use POSIX;
 
 require '/etc/debbugs/config';
 require '/usr/lib/debbugs/errorlib';
-$ENV{'PATH'}= '/usr/lib/debbugs'.$ENV{'PATH'};
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 chdir("$gSpoolDir") || die "chdir spool: $!\n";
 #push(@INC,'/usr/lib/debbugs');
 
@@ -53,7 +53,7 @@ $seqmid= $sequences; $seqmid =~ y/ /-/;
 open(MM,">html-data.mail") or nonawful("open html-data.mail: $!");
 if ( length( $gListDomain ) > 0 && length( $gMirrorList ) > 0 ) {
 print(MM <<END
-From: $gMaintainerEmail ($gMaintainer)
+From: $gMaintainerEmail ($gProject $gBug Tracking System)
 To: $gMirrorList\@$gListDomain
 Subject: $gProject $gBugs autoupdate 259012
 Message-ID: <handle.htmlup.$seqmid\@gEmailDebian>
@@ -63,7 +63,7 @@ END
       ) or nonawful("write html-data.mail header: $!");
 } else {
 print(MM <<END
-From: $gMaintainerEmail ($gMaintainer)
+From: $gMaintainerEmail ($gProject $gBug Tracking System)
 To: $gMaintainerEmail
 Subject: $gProject $gBugs autoupdate 259012
 Message-ID: <handle.htmlup.$seqmid\@gEmailDebian>
@@ -77,15 +77,16 @@ close(MM) or nonawful("close html-data.mail: $!");
 runshell("/usr/lib/debbugs/db2html $args 2>&1 >html-data $gWebDir/db",
          sub { &nonawful; });
 runshell("/usr/lib/debbugs/html-install $gWebDir/db <html-data 2>&1",sub { &quit; });
-runshell("gzip -9 html-data 2>&1",sub { &quit; });
+#runshell("gzip -9 html-data 2>&1",sub { &quit; });
 #runshell("btoa 2>&1 <html-data.gz >>html-data.mail",sub { &quit; });
 #runshell('2>&1 '.join(' ',('/usr/lib/sendmail','-f'."$gMaintainerEmail")).' -oem -oi -t <html-data.mail',
 #         sub { &quit; });
 
 rename("stamp.html.new","stamp.html") or &quit("install new stamp.html: $!");
 
-unlink("html-data.gz") or warn "remove html-data.gz: $!";
-unlink("html-data.mail") or warn "remove html-data.mail: $!";
+unlink("html-data") or warn "remove html-data: $!";
+#unlink("html-data.gz") or warn "remove html-data.gz: $!";
+#unlink("html-data.mail") or warn "remove html-data.mail: $!";
 unlink("stamp.html.run") || $!==&ENOENT or warn "remove stamp.html.run: $!";
 
 print "sequences $lastmain $lastsub\n";