<& xfsTemplate,top=3D>1,side=3D>1 &>
% my $inc=3D0;
% foreach my $dir (@dir){
<% $title[$inc++] %>
=20
% open(LS,"-|") or exec '/bin/ls','-C1',"/oss/ftp/$dir";
% while(){
% my $href =3D "ftp://oss.sgi.com/$dir/$_";
| "
<% $_ %>
|
% }
% close(LS);
=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');