<& xfsTemplate,top=>1,side=>1 &> % foreach my $year (qw(00 01)) { % foreach my $month (qw(01 02 03 04 05 06 07 08 09 10 11 12)){ % my $str = time2str("%B %Y", timelocal(0,0,0,1,($month - 1), $year)); % if (-d "$root/$destdir/$year$month"){ % my $href = "$destdir/$year$month/threads.html"; % } % } % }

<% $str %>

<& xfsTemplate,bottom=>1 &> <%INIT> use Date::Format; use Time::Local; my $root = '/oss/www/projects/xfs'; my $destdir = 'mail_archive';