&filelock("html.fcntl-lock");
-unlink("html-data.gz") || $!==&ENOENT or &quit("remove html-data.gz: $!");
+unlink("html-data.gz") || $!==&ENOENT or die "remove html-data.gz: $!";
sub nonawful ($) {
rename("stamp.html.run","stamp.html") or warn "warning: put back stamp.html: $!";
- &quit($_[0]);
+ die $_[0];
}
if (open(US,'updateseqs') && -f 'stamp.html') {
$lastsub++;
$args= "-diff -stampfile=stamp.html.run";
- rename("stamp.html","stamp.html.run") or &quit("rename stamp.html: $!");
+ rename("stamp.html","stamp.html.run") or die "rename stamp.html: $!";
} else {
$lastsub=0;
$lastmain = strftime "%Y%m%d%H%M%S", localtime;
$args= '-full';
- unlink('stamp.html') || $!==&ENOENT or &quit("excise stale stamp.html: $!");
+ unlink('stamp.html') || $!==&ENOENT or die "excise stale stamp.html: $!";
}
-open(X,">stamp.html.new") or &quit("stamp.html.new: $!");
-close(X) or &quit("close stamp.html.new: $!");
+open(X,">stamp.html.new") or die "stamp.html.new: $!";
+close(X) or die "close stamp.html.new: $!";
-open(US,'>updateseqs.new') || &quit("create updateseqs.new: $!");
-print(US "$lastmain\n$lastsub\n") || &quit("write updateseqs.new: $!");
-close(US) || &quit("close updateseqs.new: $!");
+open(US,'>updateseqs.new') || die "create updateseqs.new: $!";
+print(US "$lastmain\n$lastsub\n") || die "write updateseqs.new: $!";
+close(US) || die "close updateseqs.new: $!";
rename('updateseqs.new','updateseqs') or nonawful("install updateseqs: $!");
sub runshell ($&) {
#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: $!");
+rename("stamp.html.new","stamp.html") or die "install new stamp.html: $!";
unlink("html-data") or warn "remove html-data: $!";
#unlink("html-data.gz") or warn "remove html-data.gz: $!";