#!/usr/bin/perl -w
-# Copyright (C) 2000-2001 Simon Huggins
+# Copyright (C) 2000-2003 Simon Huggins
# date just calls date. You may pass in a strftime compatible formatting
# string.
foreach my $f (@found) {
my @f = @{$f};
my $date = strftime($cfg{'date_format'} ? $cfg{'date_format'} : "%a %b %e %H:%M:%S %Y", localtime);
- if (length $date <= $f[1]) {
- print OUT chunksizealign($date, $f[1], $f[2]);
+ if ($f[1] eq "*") {
+ print OUT $date,"\n";
+ } elsif (length $date <= $f[1]) {
+ print OUT chunksizealign($date, $f[1], $f[2]),"\n";
} else {
my $diemsg = "Can't fit your chosen date format (";
if (defined $cfg{'date_format'}) {