version 1.5, 2002/09/05 18:09:54
|
version 1.6, 2002/09/05 21:17:31
|
Line 53 Scott Harrison, sharrison@users.sourcefo
|
Line 53 Scott Harrison, sharrison@users.sourcefo
|
# =================================================== READ IN COMMAND ARGUMENTS |
# =================================================== READ IN COMMAND ARGUMENTS |
# ---------------------------------------------------- Process download option. |
# ---------------------------------------------------- Process download option. |
my $download=shift(@ARGV); |
my $download=shift(@ARGV); |
if ($download eq '--download') |
if ($download eq '--download' or $download eq '--redownload') |
{ |
{ |
if ($< != 0) # Download mode requires 'root'. |
if ($< != 0) # Download mode requires 'root'. |
{ |
{ |
print('**** ERROR **** Download mode needs to be run as root'."\n"); |
print('**** ERROR **** Download mode needs to be run as root'."\n"); |
exit(1); # Exit with error status. |
exit(1); # Exit with error status. |
} |
} |
`rm -Rf /tmp/loncapa_rpm_updates`; |
`rm -Rf /tmp/loncapa_rpm_updates` if $download eq '--download'; |
$download='-v -dl -d /tmp/loncapa_rpm_updates'; # Part of check-rpms args. |
$download='-v -dl -d /tmp/loncapa_rpm_updates'; # Part of check-rpms args. |
} |
} |
else |
else |
Line 135 SERVERLOOP: foreach my $serverpath (@ser
|
Line 135 SERVERLOOP: foreach my $serverpath (@ser
|
{ |
{ |
$|=1; # Try to send things immediately to stdout; err umm.... |
$|=1; # Try to send things immediately to stdout; err umm.... |
# Tell the user about the /tmp/loncapa_rpm_updates directory. |
# Tell the user about the /tmp/loncapa_rpm_updates directory. |
print('**** NOTE ****'. |
print('**** NOTE **** '. |
'To check the status of the download, you can '. |
'To check the status of the download, you can '. |
'periodically inspect the contents of the '. |
'periodically inspect the contents of the '. |
'/tmp/loncapa_rpm_updates directory. '. |
'/tmp/loncapa_rpm_updates directory. '. |