|
version 1.12, 2002/12/11 18:28:30
|
version 1.14, 2003/01/27 00:47:19
|
|
Line 62 Scott Harrison, sharrison@users.sourcefo
|
Line 62 Scott Harrison, sharrison@users.sourcefo
|
| |
|
| =cut |
=cut |
| |
|
| # ' stupid emacs |
|
| # ================================================== READ IN COMMAND ARGUMENTS. |
# ================================================== READ IN COMMAND ARGUMENTS. |
| |
|
| # ---------------------------------------------------- Process download option. |
# ---------------------------------------------------- Process download option. |
|
Line 196 SERVERLOOP: foreach my $serverpath (@ser
|
Line 195 SERVERLOOP: foreach my $serverpath (@ser
|
| $FTPSERVER_noauth=~s/^.*?\@//; |
$FTPSERVER_noauth=~s/^.*?\@//; |
| print($out |
print($out |
| "Trying $FTPSERVER_noauth...\n"); # Notify of attempts with ip name. |
"Trying $FTPSERVER_noauth...\n"); # Notify of attempts with ip name. |
| `ping -c 1 $FTPSERVER_noauth 2>/dev/null`; # Ping ftp server (you there?). |
`ping -c 1 -w 10 $FTPSERVER_noauth 2>/dev/null`;#Ping ftp server (u there?) |
| if ($?==0) # If the ftp server can be pinged. |
if ($?==0) # If the ftp server can be pinged. |
| { |
{ |
| print($out "$FTPSERVER found...\n"); # Tell user ftp server is found. |
print($out "$FTPSERVER found...\n"); # Tell user ftp server is found. |
|
Line 346 sub clean_exit
|
Line 345 sub clean_exit
|
| } |
} |
| |
|
| # Send the e-mail. |
# Send the e-mail. |
| if (!$reallygoodoutput) |
my $date = `date +"\%e"`; # Always send a day after the "Ides" or after |
| |
# the beginning of a month. (In other words, |
| |
# send an e-mail every two weeks regardless.) |
| |
if (!$reallygoodoutput or |
| |
$date == 2 or |
| |
$date == 16) |
| { |
{ |
| system( |
system( |
| 'metasend -b -t '.$emailto.' -s '. |
'metasend -b -t '.$emailto.' -s '. |
![[BACK]](/icons/back.gif){kind=icon}
Return to CHECKRPMS.default CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build