+our $timesquash = 3;
+# no. of digits at end of time to replace with x, 0..4
+our %reasonshow = qw(approve 1 reject 1);
+# no. of words to show
+
+for (;;) {
+ last unless @ARGV;
+ last unless $ARGV[0] =~ m/^-/;
+ $_ = shift @ARGV;
+ last if m/^--?$/;
+ while (m/^-./) {
+ if (s/^-t([0-4])/-/) {
+ $timesquash= $1;
+ } elsif (s/^-r(\w+)=(\d)$//) {
+ $reasonshow{$1}= $2;
+ } else {
+ die "bad option $_ ?";
+ }
+ }
+}
+
+our ($ng,$staticfiles,@ARGV) = @ARGV;
+chdir $ng or die $!;
+