First Checked In.

config/mac-set-timebomb.pl

@@ -0,0 +1,152 @@
+#!/usr/local/bin/perl5 -w
+#
+# 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.
+#
+#  Modified: Chris Yeh <cyeh@netscape.com>, 31-Aug-98
+#  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 $prefs = ":mozilla:modules:libpref:src:init:all.js";
+
+
+# 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);
+}
+
+sub read_file {
+    $contents = "";
+    open(IN, "<$prefs");
+    while (<IN>) {
+	$contents .= $_;
+    }
+    close(IN);
+}
+
+sub write_file {
+    open(OUT, ">$prefs");
+    print OUT $contents;
+    close(OUT);
+    print STDERR "$progname: wrote $prefs\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 = $_;
+}
+
+# no longer used?
+sub set_indirected_bomb {
+    my ($bomb) = @_;
+    my ($secret) = get_pref("timebomb.relative_timebomb_secret_name");
+    set_pref($secret, $bomb);
+}
+
+sub set_bomb {
+    my ($warning_days, $bomb_days) = @_;
+
+    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);
+
+    set_pref("timebomb.expiration_time", $bomb);
+    set_pref("timebomb.warning_time", $warn);
+    set_pref("timebomb.relative_timebomb_days", -1);
+    set_pref("timebomb.relative_timebomb_warning_days", -1);
+
+    set_indirected_bomb(0);
+
+    print STDERR sprintf("%s: timebomb goes off in %2d days (%s)\n",
+			 $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 = undef;
+    }
+    if (!$bomb_days || $bomb_days <= 0) {
+	$bomb_days = 30;
+    }
+    if (!$warning_days || $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));
+
+