<& xfsTemplate,top=>1,side=>1 &>
LINUX-XFS Mailing list Archives
% foreach my $year (qw(2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010)) {
% 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';