date/time translation to leave just the time.
+28Jul00=======================================================================
+1. fixed watchdbg midnight rollover loop and removed the date part of the
+date/time translation to leave just the time.
27Jul00=======================================================================
1. made sure that 'en' is the default language on new users.
2. issue error message if shutdown is attempted by a low privileged user.
27Jul00=======================================================================
1. made sure that 'en' is the default language on new users.
2. issue error message if shutdown is attempted by a low privileged user.
if ($exp) {
printit($line) if $line =~ m{(?:$exp)}oi;
} else {
if ($exp) {
printit($line) if $line =~ m{(?:$exp)}oi;
} else {
if ($today[1] != $now[1]) {
$fp->close;
$fh = $fp->open(@now) or die $!;
if ($today[1] != $now[1]) {
$fp->close;
$fh = $fp->open(@now) or die $!;
my $line = shift;
my @line = split '\^', $line;
my $t = shift @line;
my $line = shift;
my @line = split '\^', $line;
my $t = shift @line;
- print atime($t), ' ', join('^', @line);
+ my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
+ my $buf = sprintf "%02d:%02d:%02d", $hour, $min, $sec;
+
+ print $buf, ' ', join('^', @line);