154 строки
4.4 KiB
Perl
154 строки
4.4 KiB
Perl
#
|
|
# The contents of this file are subject to the Netscape Public License
|
|
# Version 1.0 (the "License"); you may not use this file except in
|
|
# compliance with the License. You may obtain a copy of the License at
|
|
# http://www.mozilla.org/NPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS IS"
|
|
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
|
|
# the License for the specific language governing rights and limitations
|
|
# under the License.
|
|
#
|
|
# The Original Code is Mozilla Communicator client code.
|
|
#
|
|
# The Initial Developer of the Original Code is Netscape Communications
|
|
# Corporation. Portions created by Netscape are Copyright (C) 1998
|
|
# Netscape Communications Corporation. All Rights Reserved.
|
|
#
|
|
# set-timebomb.pl --- set the timebomb to N days from today's date.
|
|
# Created: Jamie Zawinski <jwz@mozilla.org>, 24-Aug-98.
|
|
|
|
my $progname = $0;
|
|
my $contents;
|
|
|
|
# This is the preferences file that gets read and written.
|
|
# So run this script with src/mozilla/build/ as the current directory.
|
|
#
|
|
my $sourcefile = "../xpfe/xpviewer/src/nsViewerApp.cpp";
|
|
|
|
|
|
# from noah, who should be shot
|
|
sub ctime {
|
|
local (@weekday, @month, $time, $TZ);
|
|
local ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
|
|
|
|
@weekday = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
|
|
@month = ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
|
|
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
|
|
|
|
$time = (length (@_) > 0)? $_[0] : time() ;
|
|
$TZ = defined($ENV{'TZ'}) ? ( $ENV{'TZ'} ? $ENV{'TZ'} : 'UTC' ) : '';
|
|
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
|
|
($TZ eq 'UTC') ? gmtime($time) : localtime($time);
|
|
if ($TZ =~ /^([^:\d+\-,]{3,})([+-]?\d{1,2}(:\d{1,2}){0,2})([^\d+\-,]{3,})?/o)
|
|
{
|
|
$TZ = $isdst ? $4 : $1;
|
|
}
|
|
|
|
if ($TZ ne "") { $TZ .= " "; }
|
|
$year += ($year < 70) ? 2000 : 1900;
|
|
#return sprintf ("%s %s %02d %02d:%02d:%02d %s%4d",
|
|
# $weekday[$wday], $month[$mon], $mday, $hour, $min, $sec,
|
|
# $TZ, $year);
|
|
|
|
# the following is for shaver's timebomb hack
|
|
return sprintf ("%s %02d %2d %02d:%02d:%02d",
|
|
$month[$mon], $mday, $year, $hour, $min, $sec);
|
|
}
|
|
|
|
sub read_file {
|
|
$contents = "";
|
|
open(IN, "<$sourcefile");
|
|
while (<IN>) {
|
|
$contents .= $_;
|
|
}
|
|
close(IN);
|
|
}
|
|
|
|
sub write_file {
|
|
open(OUT, ">$sourcefile");
|
|
print OUT $contents;
|
|
close(OUT);
|
|
print STDERR "$progname: wrote $sourcefile\n";
|
|
}
|
|
|
|
sub get_pref {
|
|
my ($lvalue) = @_;
|
|
$_ = $contents;
|
|
die ("$lvalue unset?\n") unless m@^config\("$lvalue","(.*)"\);@m;
|
|
return $1;
|
|
}
|
|
|
|
sub set_pref {
|
|
my ($lvalue,$rvalue) = @_;
|
|
$_ = $contents;
|
|
# die("$lvalue unset?\n") unless (m@^(pref|config)\("$lvalue",@m);
|
|
die("$lvalue unset?\n")
|
|
unless s@^(pref|config)(\("$lvalue",)(.*)(\).*)$@$1$2$rvalue$4@m;
|
|
$contents = $_;
|
|
}
|
|
|
|
|
|
sub set_bomb {
|
|
my ($warning_days, $bomb_days) = @_;
|
|
|
|
# support no warning days so that user is confronted with warnings
|
|
# on every launch of Mozilla. cyeh@netscape.com
|
|
#
|
|
# die("warning_days ($warning_days) must be greater than 0.")
|
|
# unless ($warning_days > 0);
|
|
|
|
die("bomb_days ($bomb_days) must be greater than 0.")
|
|
unless ($bomb_days > 0);
|
|
die("warning_days ($warning_days) must be less than " .
|
|
"bomb_days ($bomb_days)\n")
|
|
unless ($warning_days < $bomb_days);
|
|
|
|
my $now = time;
|
|
my $bomb = $now + ($bomb_days * 24 * 60 * 60);
|
|
my $warn = $now + ($warning_days * 24 * 60 * 60);
|
|
$bomb = ctime($bomb); #convert for the timebomb-code-of-the-week
|
|
|
|
|
|
$_ = $contents;
|
|
|
|
s@/\*\s*TIMEBOMB_GOES_HERE\s*\*/@\#define MOZ_TIMEBOMB "$bomb"@;
|
|
|
|
$contents = $_;
|
|
|
|
print STDERR sprintf("%s: timebomb goes off in %2d days (%s)\n",
|
|
$progname, $bomb_days, $bomb);
|
|
# $progname, $bomb_days, ctime($bomb));
|
|
print STDERR sprintf("%s: warning goes off in %2d days (%s)\n",
|
|
$progname, $warning_days, ctime($warn));
|
|
}
|
|
|
|
sub main {
|
|
my ($warning_days, $bomb_days) = @_;
|
|
die ("usage: $progname [ days-until-warning [ days-until-timebomb ]]\n")
|
|
if ($#_ >= 2);
|
|
|
|
if ($#_ == 0) {
|
|
$bomb_days = $warning_days;
|
|
$warning_days = -1;
|
|
}
|
|
if (!$bomb_days || $bomb_days <= 0) {
|
|
$bomb_days = 30;
|
|
}
|
|
if ($warning_days < 0) {
|
|
$warning_days = $bomb_days - int($bomb_days / 3);
|
|
if ($warning_days < $bomb_days - 10) {
|
|
$warning_days = $bomb_days - 10;
|
|
}
|
|
}
|
|
|
|
read_file();
|
|
set_bomb($warning_days, $bomb_days);
|
|
write_file();
|
|
return 0;
|
|
}
|
|
|
|
exit(&main(@ARGV));
|
|
|
|
|