Return to ml.html CVS log

Up to [Development] / xfs-website.orig

New mailing list indexer.

<& xfsTemplate,top=>1,side=>1 &>


<table border=0> 

% 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";
               <tr><td><a href="<% $href %>"<B>
	       <% $str %>
	       </b></a></td></tr>
%      }
%    } 
% }
	</table>



<& xfsTemplate,bottom=>1 &>


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

</%INIT>