#!/usr/bin/perl # # Create a page listing all my RPMS and SRPMS, with descriptions, docs, and # links to them. # # By Joey Hess, # # Distribute and modify freely. # $rpmdir="code/RPMS/i386/"; #where are our rpms? Must be both url and actual directory name.. $srpmdir="code/SRPMS/"; $basedir="/home/ftp/pub/"; #where's the base of the web server's document tree? BEGIN { push (@INC,'../include/') } require 'cgi-lib.pl'; print "Content-type: text/html\n\n",< RPMs by Joey Hess

RPMs by Joey Hess

I've deleted most of the RPMs that used to be here. They are available on the Red Hat ftp site, unless someone else has released a newer version. I quit making RPMs when I switched to debian, and these were eating up disk space.

%{NAME}: %{DESCRIPTION}

%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}.rpm
%{SOURCERPM} $rpmdir%{NAME}-%{VERSION}-%{RELEASE}.README
' |") || exit print "Can't run RPM!\n"; while () { s/~(.*?)~/GetDoc($1)/eg; print $_ } close RPM; print "

\n"; &PrintFooter; print "\n"; sub GetDoc { my $fn=shift; if (-e $basedir.$fn) { $ret="

";
		open (IN,"<$basedir$fn");
		while () { $ret.=$_ }
		close IN;
		return $ret."

"; } }