--- loncom/build/check-rpms 2002/04/13 19:13:06 1.3 +++ loncom/build/check-rpms 2002/09/05 17:20:46 1.5 @@ -3,6 +3,9 @@ # check-rpms, version 2.1.1 # Martin Siegert, SFU, siegert@sfu.ca, Feb 02 # +# documentation and minor patches, +# Scott Harrison sharrison@users.sourceforge.net 2002 + =pod =head1 NAME @@ -87,7 +90,7 @@ use Getopt::Long; my $retval = &GetOptions("verbose|v","lm|list-missing","lq|list-questionable", "dir|d=s","ftp:s","noftp","download|dl","recheck|r", - "nk|no-kernel","update","c=s"); + "nk|no-kernel","update","c=s","rpmuser=s"); =pod @@ -200,6 +203,10 @@ example configuration file is given belo is omitted, I will use the default configuration file I, if it exists. +=item B<--rpmuser> I + +Specifying $RPMUSER on the command line. + =back =head1 EXAMPLES @@ -294,7 +301,7 @@ Example configuration file: # $RPMUSER is the user name that check-rpms switches to for most of # the script when run as root - $RPMUSER = "joe"; + $RPMUSER = "adminjoe"; # $FTPSERVER and $FTPUPDATES are the hostname of a ftp server and the # directory where RPM updates can be found without the directory. @@ -315,6 +322,10 @@ if ( -f $CONF) { $FTPUPDATES = $DEFFTPUPDATES; } +if ($opt_rpmuser) { + $DEFRPMUSER = $opt_rpmuser; +} + # check whether we are running as root if ($< == 0){ if (! $RPMUSER) { @@ -392,7 +403,7 @@ if (defined $opt_update || defined $opt_ $no_kernel=1; } -$PROC = `grep -i athlon /proc/cpuinfo`; +$PROC = `grep -i "athlon\|amd" /proc/cpuinfo`; if ( ! "$PROC" ) { $PROC = `uname -m`; chomp($PROC);