[BACK]Return to patchlist.html CVS log [TXT][DIR] Up to [Development] / xfs-website.orig
File: [Development] / xfs-website.orig / patchlist.html (download) (as text)

Revision 1.3, Fri Nov 16 22:52:24 2001 UTC (15 years, 11 months ago) by xfs
Branch: MAIN
Changes since 1.2: +4 -2 lines 

Second try at updating patchlist.html...

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

% my $inc=0;
% foreach my $dir (@dir){

<h2><b><font face="ARIAL NARROW,HELVETICA">
<% $title[$inc++] %>
</font></b></h2>


 <table border=0> 

% open(LS,"-|") or exec '/bin/ls','-C1',"/oss/ftp/$dir";
%  while(<LS>){
%          my $href = "ftp://oss.sgi.com/$dir/$_";
               <tr><td><a href="<% $href %>"<B>
	       <% $_ %>
	       </b></a></td></tr>
% }
% close(LS);
	</table> 
% }


<& 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/i386',
            'projects/xfs/download/Release-1.0.2/kernel_patches/ia64',
 	    'projects/xfs/download/Release-1.0.1/kernel_patches');
my @title = ('LINUX XFS Development patch sets',
             '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>