--- blosxom.pl Fri Apr 23 19:14:11 2004 +++ index.cgi Fri Apr 23 19:18:35 2004 @@ -106,7 +106,12 @@ my @path_info = split m{/}, path_info() || param('path'); shift @path_info; -while ($path_info[0] and $path_info[0] =~ /^[a-zA-Z].*$/ and $path_info[0] !~ /(.*)\.(.*)/) { $path_info .= '/' . shift @path_info; } +while ($path_info[0] and + $path_info[0] !~ m#^\d{2}$# and + $path_info[0] !~ m#^\d{4}$# and + $path_info[0] !~ /(.*)\.(.*)/) { +$path_info .= '/' . shift @path_info; +} # Flavour specified by ?flav={flav} or index.{flav} $flavour = '';