--- usr/share/perl5/Pisg/Parser/Logfile.pm.orig	2002-12-15 20:01:08.000000000 +0100
+++ usr/share/perl5/Pisg/Parser/Logfile.pm	2003-01-27 18:39:32.000000000 +0100
@@ -141,43 +141,53 @@
         );
         my ($mreg, $dreg, $yreg) = split(/\|\|/, $self->{cfg}->{logsuffix});
         my (@month, @day, @year);
+        my ($t_sec,$t_min,$t_hour,$t_day,$t_month,$t_year) = localtime(time);
+        $t_year = sprintf("%02d", 1900 + $t_year);
+        $t_month = sprintf("%02d", 1 + $t_month);
+        $t_day = sprintf("%02d", $t_day);
         for my $file (@filesarray) {
             LOOPSTART:
-            if ($file =~ /$mreg/) {
-                my $month = $1;
-                $month = lc $month;
-                $month = $months{$month}
-                    if (defined $months{$month});
-                push @month, $month;
+            if (!($file =~ /$mreg/) && !($file =~ /$dreg/) && !($file =~ /$yreg/)) {
+                push @month, $t_month;
+                push @day, $t_day;
+                push @year, $t_year;
             } else {
-                splice(@filesarray,$#month + 1, 1);
-                if ($file = $filesarray[$#month + 1]) {
-                    goto LOOPSTART;
+                if ($file =~ /$mreg/) {
+                    my $month = $1;
+                    $month = lc $month;
+                    $month = $months{$month}
+                        if (defined $months{$month});
+                    push @month, $month;
                 } else {
-                    last;
+                    splice(@filesarray,$#month + 1, 1);
+                    if ($file = $filesarray[$#month + 1]) {
+                        goto LOOPSTART;
+                    } else {
+                        last;
+                    }
                 }
-            }
-            if ($file =~ /$dreg/) {
-                push @day, $1;
-            } else {
-                splice(@filesarray,$#day + 1, 1);
-                splice(@month,$#day + 1);
-                if ($file = $filesarray[$#day + 1]) {
-                    goto LOOPSTART;
+                if ($file =~ /$dreg/) {
+                    push @day, $1;
                 } else {
-                    last;
+                    splice(@filesarray,$#day + 1, 1);
+                    splice(@month,$#day + 1);
+                    if ($file = $filesarray[$#day + 1]) {
+                        goto LOOPSTART;
+                    } else {
+                        last;
+                    }
                 }
-            }
-            if ($file =~ /$yreg/) {
-                push @year, $1;
-            } else {
-                splice(@filesarray,$#year + 1, 1);
-                splice(@month,$#year + 1);
-                splice(@day,$#year + 1);
-                if ($file = $filesarray[$#year + 1]) {
-                    goto LOOPSTART;
+                if ($file =~ /$yreg/) {
+                    push @year, $1;
                 } else {
-                    last;
+                    splice(@filesarray,$#year + 1, 1);
+                    splice(@month,$#year + 1);
+                    splice(@day,$#year + 1);
+                    if ($file = $filesarray[$#year + 1]) {
+                        goto LOOPSTART;
+                    } else {
+                        last;
+                    }
                 }
             }
         }