2 # $Id: html-control.in,v 1.3 1999/09/20 05:40:07 gecko Exp $
6 require '/etc/debbugs/config';
7 require '/usr/lib/debbugs/errorlib';
8 $ENV{'PATH'}= '/usr/lib/debbugs'.$ENV{'PATH'};
9 chdir("$gSpoolDir") || die "chdir spool: $!\n";
10 #push(@INC,'/usr/lib/debbugs');
12 &filelock("html.fcntl-lock");
14 unlink("html-data.gz") || $!==&ENOENT or &quit("remove html-data.gz: $!");
17 rename("stamp.html.run","stamp.html") or warn "warning: put back stamp.html: $!";
21 if (open(US,'updateseqs') && -f 'stamp.html') {
27 $args= "-diff -stampfile=stamp.html.run";
28 rename("stamp.html","stamp.html.run") or &quit("rename stamp.html: $!");
31 chop($lastmain=`TZ=GMT date '+%Y%m%d%H%M%S'`);
33 unlink('stamp.html') || $!==&ENOENT or &quit("excise stale stamp.html: $!");
36 open(X,">stamp.html.new") or &quit("stamp.html.new: $!");
37 close(X) or &quit("close stamp.html.new: $!");
39 open(US,'>updateseqs.new') || &quit("create updateseqs.new: $!");
40 print(US "$lastmain\n$lastsub\n") || &quit("write updateseqs.new: $!");
41 close(US) || &quit("close updateseqs.new: $!");
42 rename('updateseqs.new','updateseqs') or nonawful("install updateseqs: $!");
45 my ($cmd,$errhref) = @_;
48 !$? && !length($stderr) or &$errhref("$cmd failed - gave $? / $stderr");
51 $sequences="$lastmain $lastsub";
52 $seqmid= $sequences; $seqmid =~ y/ /-/;
53 open(MM,">html-data.mail") or nonawful("open html-data.mail: $!");
54 if ( length( $gListDomain ) > 0 && length( $gMirrorList ) > 0 ) {
56 From: $gMaintainerEmail ($gProject $gBug Tracking System)
57 To: $gMirrorList\@$gListDomain
58 Subject: $gProject $gBugs autoupdate 259012
59 Message-ID: <handle.htmlup.$seqmid\@gEmailDebian>
60 X-$gProject=PR: update $sequences
63 ) or nonawful("write html-data.mail header: $!");
66 From: $gMaintainerEmail ($gProject $gBug Tracking System)
68 Subject: $gProject $gBugs autoupdate 259012
69 Message-ID: <handle.htmlup.$seqmid\@gEmailDebian>
70 X-$gProject=PR: update $sequences
73 ) or nonawful("write html-data.mail header: $!");
75 close(MM) or nonawful("close html-data.mail: $!");
77 runshell("/usr/lib/debbugs/db2html $args 2>&1 >html-data $gWebDir/db",
79 runshell("/usr/lib/debbugs/html-install $gWebDir/db <html-data 2>&1",sub { &quit; });
80 runshell("gzip -9 html-data 2>&1",sub { &quit; });
81 #runshell("btoa 2>&1 <html-data.gz >>html-data.mail",sub { &quit; });
82 #runshell('2>&1 '.join(' ',('/usr/lib/sendmail','-f'."$gMaintainerEmail")).' -oem -oi -t <html-data.mail',
85 rename("stamp.html.new","stamp.html") or &quit("install new stamp.html: $!");
87 unlink("html-data.gz") or warn "remove html-data.gz: $!";
88 unlink("html-data.mail") or warn "remove html-data.mail: $!";
89 unlink("stamp.html.run") || $!==&ENOENT or warn "remove stamp.html.run: $!";
91 print "sequences $lastmain $lastsub\n";