<& xfsTemplate,top=>1,side=>1 &>
% my $inc=0;
% foreach my $dir (@dir){
<% $title[$inc++] %>
% open(LS,"-|") or exec '/bin/ls','-C1',"/oss/ftp/$dir";
% while(){
% my $href = "ftp://oss.sgi.com/$dir/$_";
|
<% $_ %>
|
% }
% close(LS);
% }
<& xfsTemplate,bottom=>1 &>
<%INIT>
use Date::Format;
use Time::Local;
my $root = '/oss/www/projects/xfs';
my $destdir = 'mail_archive';
my @dir = ( 'projects/xfs/download/patches',
'projects/xfs/download/Release-1.0.2/kernel_patches',
'projects/xfs/download/Release-1.0.1/kernel_patches');
my @title = ('LINUX XFS Development patch sets',
'LINUX XFS Release 1.0.2 patch sets',
'LINUX XFS Release 1.0.1 patch sets);