--- loncom/build/make_rpm.pl	2000/10/02 14:07:53	1.1
+++ loncom/build/make_rpm.pl	2001/05/16 19:30:05	1.11
@@ -4,14 +4,9 @@
 # Automatically generate RPM listing files
 # from file listing.
 
-# GNU General Public License, Version 2, June 1991
-# See http://www.gnu.org/copyleft/gpl.html.
+# This script does actually "build" the RPM.
 
-# This file currently does not actually "build" the RPM.
-# This has to be done with an RPM build environment and
-# commands like 'rpm -ba'.
-
-# What this file DOES do is generate all the needed
+# This script also generates and then deletes temporary
 # files (and binary root directory tree) to build an RPM with.
 
 # I still need to implement the CONFIGURATION_FILES and
@@ -20,11 +15,13 @@
 
 # Take in a file list (from standard input), 
 # a description tag and version tag from command line argument
-# and generate a:
+# and temporarily generate a:
 #      RPM .spec file
 #      RPM Makefile
 #      SourceRoot
 
+# A resulting .rpm file is generated.
+
 unless (-e "/usr/lib/rpm/rpmrc") {
     print <<END;
 ERROR: This script only works with a properly installed RPM builder application.  
@@ -35,6 +32,7 @@ END
 
 my ($tag,$version,$configuration_files,$documentation_files,$pathprefix)=@ARGV;
 @ARGV=();
+
 if (!$version) {
     print "Usage: <TAG> <VERSION> [CONFIGURATION_FILES] [DOCUMENTATION] [PATHPREFIX]\n";
     print "Standard input provides the list of files to work with.\n";
@@ -70,7 +68,7 @@ open (RPMRC,">$tag/SPECS/rpmrc");
 foreach $line (@lines) {
     if ($line=~/^macrofiles/) {
 	chop $line;
-	$line.=":./rpmmacros\n";
+	$line.=":$currentdir/SPECS/rpmmacros\n";
     }
     print RPMRC $line;
 }
@@ -86,6 +84,165 @@ print RPMMACROS <<END;
 END
 close RPMMACROS;
 
+# This needs to be dynamically based upon doc/otherfiles/rpm_list.txt
+# at some point.
+my $requires="";
+if ($tag eq "setup") {
+    $requires=<<END;
+PreReq: setup
+PreReq: passwd
+PreReq: util-linux
+END
+}
+elsif ($tag eq "base") {
+    $requires=<<END;
+PreReq: LON-CAPA-setup
+PreReq: apache
+PreReq: /etc/httpd/conf/access.conf
+END
+    $requires2=<<END;
+Requires: LON-CAPA-setup
+Requires: raidtools
+Requires: ncurses
+Requires: popt
+Requires: tcsh
+Requires: redhat-release
+Requires: diffutils
+Requires: ed
+Requires: dialog
+Requires: rmt
+Requires: sed
+Requires: which
+Requires: gawk
+Requires: mingetty
+Requires: info
+Requires: portmap
+Requires: openssh-clients
+Requires: openssh
+Requires: openssh-server
+Requires: openssl
+Requires: basesystem
+Requires: ldconfig
+Requires: filesystem
+Requires: mktemp
+Requires: termcap
+Requires: shadow-utils
+Requires: libtermcap
+Requires: MAKEDEV
+Requires: utempter
+Requires: bash
+Requires: logrotate
+Requires: SysVinit
+Requires: chkconfig
+Requires: textutils
+Requires: pwdb
+Requires: vixie-cron
+Requires: procps
+Requires: modutils
+Requires: psmisc
+Requires: sysklogd
+Requires: authconfig
+Requires: zlib
+Requires: sh-utils
+Requires: mailcap
+Requires: anacron
+Requires: bc
+Requires: bdflush
+Requires: bind-utils
+Requires: cpio
+Requires: crontabs
+Requires: etcskel
+Requires: e2fsprogs
+Requires: samba-client
+Requires: apache-devel
+Requires: autofs
+Requires: findutils
+Requires: gdbm
+Requires: getty_ps
+Requires: readline
+Requires: glib10
+Requires: inetd
+Requires: losetup
+Requires: gnupg
+Requires: gpgp
+Requires: urw-fonts
+Requires: mailx
+Requires: gzip
+Requires: ld.so
+Requires: less
+Requires: passwd
+Requires: sysreport
+Requires: ncompress
+Requires: mount
+Requires: lilo
+Requires: bzip2
+Requires: grep
+Requires: memprof
+Requires: mars-nwe
+Requires: pidentd
+Requires: procinfo
+Requires: units
+Requires: routed
+Requires: quota
+Requires: pam
+Requires: stat
+Requires: setserial
+Requires: mod_perl
+Requires: rootfiles
+Requires: nfs-utils
+Requires: sendmail
+Requires: sharutils
+Requires: tmpwatch
+Requires: shapecfg
+Requires: tcp_wrappers
+Requires: unzip
+Requires: tetex-dvips
+Requires: tetex-afm
+Requires: tetex-latex
+Requires: xntp3
+Requires: rpm
+Requires: wu-ftpd
+Requires: setup
+Requires: glibc
+Requires: fileutils
+Requires: initscripts
+Requires: netatalk
+Requires: apache
+Requires: bash2
+Requires: dev
+Requires: samba
+Requires: ghostscript
+Requires: kernel-headers
+Requires: kernel
+Requires: linuxconf
+Requires: tetex
+Requires: tetex-fonts
+Requires: util-linux
+Requires: vim-common
+Requires: perl
+Requires: cracklib
+Requires: cracklib-dicts
+Requires: cdrecord
+Requires: ghostscript-fonts
+Requires: libgr
+Requires: libjpeg
+Requires: libpng
+Requires: libungif-progs
+Requires: libtiff
+Requires: libungif
+Requires: samba-common
+Requires: ImageMagick
+Requires: libgr-progs
+Requires: man-pages
+Requires: tar
+Requires: vim-minimal
+END
+}
+else {
+    $requires=<<END;
+Requires: LON-CAPA-base
+END
+}
 open (SPEC,">$tag/SPECS/LON-CAPA-$tag-$version.spec");
 
 print SPEC <<END;
@@ -95,10 +252,11 @@ Version: $version
 Release: 1
 Vendor: Laboratory for Instructional Technology Education, Division of Science and Mathematics Education, Michigan State University.
 BuildRoot: $currentdir/BuildRoot
-Copyright: GNU General Public License. Version 2, June 1991.  Michigan State University patents may apply.
+Copyright: Michigan State University patents may apply.
 Group: Utilities/System
 Source: LON-CAPA-$tag-$version.tar.gz
 AutoReqProv: no
+$requires
 # requires: filesystem
 \%description
 This package is automatically generated by the make_rpm.pl perl
@@ -124,7 +282,7 @@ echo "http://www.lon-capa.org/"
 echo "Gerd Kortemeyer, et al"
 echo "Laboratory for Instructional Technology Education"
 echo "Michigan State University"
-echo "General Public License, Version 2, June 1991"
+echo " "
 echo "** Michigan State University patents may apply **"
 echo " "
 echo "This installation assumes an installation of Redhat 6.2"
@@ -143,6 +301,15 @@ END
 
 foreach $file (<>) {
     chop $file;
+    my $comment="";
+    if ($file=~/\s+\#(.*)$/) {
+	$file=~s/\s+\#(.*)$//;
+	$comment=$1;
+    }
+    my $config="";
+    if ($comment=~/config/i) {
+	$config="\%config ";
+    }
     if (($type,$size,$octalmode,$user,$group)=find_info($file)) {
 	$octalmode="0" . $octalmode if length($octalmode)<4;
 	if ($pathprefix) {
@@ -151,7 +318,7 @@ foreach $file (<>) {
 	if ($type eq "files") {
 	    push @{$BinaryRootMakefile{$type}},"\tinstall -D -m $octalmode $pathprefix$file $binaryroot$file\n";
 	    push @{$Makefile{$type}},"\tinstall -D -m $octalmode \$(SOURCE)$file \$(ROOT)$file\n";
-	    push @{$dotspecfile{$type}},"\%attr($octalmode,$user,$group) $file\n";
+	    push @{$dotspecfile{$type}},"$config\%attr($octalmode,$user,$group) $file\n";
 	}
 	elsif ($type eq "directories") {
 	    push @{$BinaryRootMakefile{$type}},"\tinstall -m $octalmode -d $binaryroot$file\n";
@@ -206,7 +373,7 @@ sub find_info {
 	return ("directories",split(/\t/,$line));
     }
     elsif (($line=`find $file -type l -prune`)=~/^$file\n/) {
-	$line=`find $file -type l -prune -printf "\%h/\%l\t\%m\t\%u\t\%g"`;
+	$line=`find $file -type l -prune -printf "\%l\t\%m\t\%u\t\%g"`;
 	return ("links",split(/\t/,$line));
     }