X-Git-Url: https://the.earth.li/gitweb/?a=blobdiff_plain;f=plugins%2F09date;fp=plugins%2F09date;h=decdf26718a9003f6d05473ad5f81ceaa7ea4c3d;hb=49c39d47502a7485e7e63f7cbea8325852d25967;hp=d62eaf997acf1f8e4499aaf7de7012d0c41324bd;hpb=05869f1bf3fb39b81155235901cae1ba99b9b359;p=htag.git

diff --git a/plugins/09date b/plugins/09date
index d62eaf9..decdf26 100644
--- a/plugins/09date
+++ b/plugins/09date
@@ -1,6 +1,6 @@
 #!/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.
 
@@ -35,8 +35,10 @@ reg_deletion("$cfg{'tmpdir'}/D");
 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'}) {