<& xfsTemplate,top=3D>1,side=3D>1 &>
% my $inc=3D0;
% foreach my $dir (@dir){
<h2><b><font face=3D"ARIAL NARROW,HELVETICA">
<% $title[$inc++] %>
</font></b></h2>
<table border=3D0>=20
% open(LS,"-|") or exec '/bin/ls','-C1',"/oss/ftp/$dir";
% while(<LS>){
% my $href =3D "ftp://oss.sgi.com/$dir/$_";
<tr><td><a href=3D"<% $href %>"<B>
<% $_ %>
</b></a></td></tr>
% }
% close(LS);
</table>=20
% }
<& xfsTemplate,bottom=3D>1 &>
<%INIT>
use Date::Format;
use Time::Local;
my $root =3D '/oss/www/projects/xfs';
my $destdir =3D 'mail_archive';
my @dir =3D ( 'projects/xfs/download/patches',
'projects/xfs/download/Release-1.1/kernel_patches/i386',
'projects/xfs/download/Release-1.1/kernel_patches/ia64',
'projects/xfs/download/Release-1.0.2/kernel_patches/i386',
'projects/xfs/download/Release-1.0.2/kernel_patches/ia64',
'projects/xfs/download/Release-1.0.1/kernel_patches');
my @title =3D ('LINUX XFS Development patch sets',
'LINUX XFS Release 1.1 patch sets: i386',
'LINUX XFS Release 1.1 patch sets: IA64',
'LINUX XFS Release 1.0.2 patch sets: i386',
'LINUX XFS Release 1.0.2 patch sets: IA64',
'LINUX XFS Release 1.0.1 patch sets');
</%INIT>