Annotation of loncom/build/CHECKRPMS.default, revision 1.17
1.1 harris41 1: #!/usr/bin/perl
2:
1.2 harris41 3: =pod
4:
5: =head1 NAME
6:
7: B<CHECKRPMS> - automated status report about RPMs on a system
8:
9: =head1 SYNOPSIS
10:
1.7 harris41 11: ./B<CHECKRPMS> [I<modeflag>]
1.2 harris41 12:
13: or
14:
1.7 harris41 15: B<perl> B<CHECKRPMS> [I<modeflag>]
16:
17: If I<modeflag> is left blank, the mode is "interactive". Otherwise,
18: other modes can be specified as shown in the listing below:
19:
20: =over 4
21:
1.8 harris41 22: =item DEFAULT
1.7 harris41 23:
1.8 harris41 24: When left blank, the script runs in interactive mode. First, a proposed
25: list of RPMs is presented to the user. Then, the user is asked if he or
26: she wants to download the RPMs to /tmp/loncapa_rpm_updates/.
1.7 harris41 27:
1.8 harris41 28: =item view
1.2 harris41 29:
1.8 harris41 30: A proposed list of RPMs to update is presented to the user.
1.2 harris41 31:
1.8 harris41 32: =item download
1.2 harris41 33:
1.8 harris41 34: A proposed set of RPMs to update are downloaded into /tmp/loncapa_rpm_updates/.
35: Note that prior information inside /tmp/loncapa_rpm_updates/ is removed.
1.2 harris41 36:
1.8 harris41 37: =item redownload
1.2 harris41 38:
1.8 harris41 39: A proposed set of RPMs to update are downloaded into /tmp/loncapa_rpm_updates/.
40: Note that prior information inside /tmp/loncapa_rpm_updates/ is not removed.
41: (This helps support continual attempts from dialup connections.)
1.2 harris41 42:
1.8 harris41 43: =item html
1.2 harris41 44:
1.8 harris41 45: Similar to view mode. XHTML-formatted output is delivered; presumably
46: to a web client. html mode is automatically chosen if $ENV{'QUERY_STRING'} is
47: defined.
1.2 harris41 48:
1.8 harris41 49: =back
1.2 harris41 50:
1.8 harris41 51: =head1 DESCRIPTION
1.2 harris41 52:
1.8 harris41 53: This file automates the usage of Martin Siegert's "check-rpms"
54: script. It runs through a list of possible mirror sites
55: until it finds one with a reasonably good FTP connection.
1.2 harris41 56:
1.8 harris41 57: For instructions on usage, see L<SYNOPSIS>.
1.2 harris41 58:
59: =head1 AUTHOR
60:
61: Scott Harrison, sharrison@users.sourceforge.net, 2002
62:
63: =cut
64:
1.7 harris41 65: # ================================================== READ IN COMMAND ARGUMENTS.
66:
1.4 harris41 67: # ---------------------------------------------------- Process download option.
1.7 harris41 68: my $argument = shift(@ARGV);
69: my $document;
70: my $mode;
71: if ($argument eq '--download' or $argument eq '--redownload')
1.4 harris41 72: {
73: if ($< != 0) # Download mode requires 'root'.
74: {
1.10 harris41 75: print(
1.7 harris41 76: '**** ERROR **** Download mode needs to be run as root'."\n");
77: exit(0); # Exit.
1.4 harris41 78: }
1.7 harris41 79: `rm -Rf /tmp/loncapa_rpm_updates` if $argument eq '--download';
1.4 harris41 80: $download='-v -dl -d /tmp/loncapa_rpm_updates'; # Part of check-rpms args.
1.7 harris41 81: $mode = 'download';
82: }
83: elsif ($argument eq '--view')
84: {
85: $mode = 'view';
86: }
87: elsif ($argument eq '--cronmail')
88: {
89: $mode = 'cronmail';
90: }
91: elsif ($ENV{'QUERY_STRING'} or $argument eq '--html')
92: {
93: $mode = 'html';
1.4 harris41 94: }
95: else
96: {
1.7 harris41 97: $mode = 'interactive';
1.4 harris41 98: }
99:
1.7 harris41 100: # ================================================== GENERAL INITIAL VARIABLES.
101: my $command_name=$0;
102:
1.2 harris41 103: # ---------------- The FTP servers (and their directory paths) to check against
1.5 harris41 104: my @serverpaths_to_try =
105: (
1.9 harris41 106: 'ftpmirror:loncapa@install.lon-capa.org/pub/redhat/linux/updates/',
107: 'mirror.pa.msu.edu/linux/redhat/linux/updates/',
1.7 harris41 108: 'distro.ibiblio.org/pub/linux/distributions/redhat/updates/',
109: 'limestone.uoregon.edu/redhat/updates/',
1.5 harris41 110: 'rufus.w3.org/linux/redhat/linux/updates/',
111: );
1.2 harris41 112:
1.7 harris41 113: # -------------------------------------------- Use check-rpms command this way.
1.16 albertel 114: my $checkcommand = 'check-rpms -nk '.$download.' --rpmuser www -ftp';
1.2 harris41 115:
116: my $FTPSERVER; # ------------------------- the server portion of the serverpath
117: my $FTPUPDATES; # ----------------------------- the actual update root location
118: my @rpms; # ---------------------------------- this will store the list of RPMs
119: my $goodoutput; # ------------------------------------ good stuff was returned!
120: my $reallygoodoutput; # ------------------------------- you are 100% up-to-date
121:
1.17 ! www 122: my $simplestatus='time='.time.'&';
! 123:
1.7 harris41 124: # ===================================================== Control flow of output.
125: my $out = \*STDOUT; # Default: go to standard output (directly to terminal).
126:
127: if ($mode eq 'cronmail') # If cronmail mode, then save to file.
128: {
129: open(FOUT,'>/tmp/CHECKRPMS.'.$$);
130: $out = \*FOUT;
131: }
132:
133: $| = 1; # Flush to output whenever possible.
134:
135: # ========================================== Variables that must be defineable.
136:
137: # --------------------------------------------------- Determine RedHat version.
138: my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4]; # - 6.2 or 7.3 or ?
139:
140: unless ($RHversion)
141: {
142: terminate($mode,$out,
143: '**** ERROR **** /etc/redhat-release not found'."\n".
144: 'This script does not appear to be running on RedHat.'."\n");
145: }
146:
1.2 harris41 147: # ----------------------------------------- Find the check-rpms script location
1.5 harris41 148: if (-e './check-rpms')
149: {
150: $commandpre='perl ./'; # Use the check-rpms in the current directory.
151: }
152: elsif (-e 'loncom/build/check-rpms')
153: {
1.7 harris41 154: $commandpre='perl loncom/build/'; # Use check-rpms in the loncom/build dir.
155: }
156: elsif (-e '/usr/local/loncapa/bin/check-rpms')
157: {
158: $commandpre='perl /usr/local/loncapa/bin/'; # Use /usr/local dir.
1.5 harris41 159: }
160: else # Cannot find check-rpms, so abort.
161: {
1.7 harris41 162: terminate($mode,$out,
163: '**** ERROR **** CANNOT FIND THE check-rpms SCRIPT'."\n");
1.5 harris41 164: }
1.2 harris41 165:
1.7 harris41 166: # Define check-rpms invocation based on the path to the check-rpms command.
1.5 harris41 167: $checkcommand = $commandpre.$checkcommand;
1.2 harris41 168:
1.7 harris41 169: # ============================================================= Initial output.
170:
171: print($out <<END) if $mode eq 'html';
172: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
173: "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
174: <html>
175: <head>
176: <meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
177: <title>CHECKRPMS STATUS REPORT</title>
178: </head>
179: <body bgcolor="white">
180: <h1>CHECKRPMS STATUS REPORT</h1>
181: <hr />
182: <pre>
183: END
184:
1.5 harris41 185: # Notify user of current action.
1.7 harris41 186: print($out <<END);
1.2 harris41 187: THIS SCRIPT IS NOW PROBING SEVERAL FTP SERVERS....
188: PLEASE BE PATIENT, THIS MAY TAKE A FEW MINUTES.
189: END
190:
1.7 harris41 191: # ============== Go through all the servers until a decent connection is found.
1.5 harris41 192: SERVERLOOP: foreach my $serverpath (@serverpaths_to_try)
193: {
194: $serverpath=~/^(.*?)\//; # Pattern match the ip name.
195: $FTPSERVER=$1; # Set to the ip name.
1.9 harris41 196: $FTPSERVER_noauth=$FTPSERVER;
197: $FTPSERVER_noauth=~s/^.*?\@//;
198: print($out
199: "Trying $FTPSERVER_noauth...\n"); # Notify of attempts with ip name.
1.13 harris41 200: `ping -c 1 -w 10 $FTPSERVER_noauth 2>/dev/null`;#Ping ftp server (u there?)
1.5 harris41 201: if ($?==0) # If the ftp server can be pinged.
202: {
1.7 harris41 203: print($out "$FTPSERVER found...\n"); # Tell user ftp server is found.
1.5 harris41 204: `ncftpls ftp://$FTPSERVER`; # Try to access server with ftp protocol.
205: if ($?==0) # If the ftp server can be accessed with the ftp protocol.
206: {
207: $FTPUPDATES="$serverpath$RHversion/en/os"; # The full update path.
208: # Print the check-rpms command that will be executed.
1.7 harris41 209: print($out $checkcommand.' '.$FTPUPDATES."\n");
210: if ($mode eq 'download') # Was CHECKRPMS run in download mode?
1.5 harris41 211: {
212: $|=1; # Try to send things immediately to stdout; err umm....
213: # Tell the user about the /tmp/loncapa_rpm_updates directory.
1.7 harris41 214: print($out '**** NOTE **** '.
1.5 harris41 215: 'To check the status of the download, you can '.
216: 'periodically inspect the contents of the '.
217: '/tmp/loncapa_rpm_updates directory. '.
218: 'Please be patient; this download may take a while.'.
219: "\n");
220: # Do the download.
1.7 harris41 221: print($out `$checkcommand $FTPUPDATES 2>\&1`);
1.5 harris41 222: # Tell the user about what action they need to take with the
223: # downloaded RPMs.
1.7 harris41 224: print($out
225: 'You may now wish to visit the /tmp/loncapa_rpm_updates'.
1.5 harris41 226: ' directory and upgrade the RPMs. '."\n".
227: 'If this is a critical server (it is currently being'.
228: ' used for classes) and you do not know how to upgrade'.
229: ' RPMs, you should consult someone who has experience '.
230: 'with the "rpm" command.'."\n");
1.7 harris41 231: clean_exit($mode,$out,0); # Assume everything is okay and exit.
1.5 harris41 232: }
233: @rpms=`$checkcommand $FTPUPDATES 2>\&1`; # Read in list of RPMs.
234: # Create a text string that can be pattern matched.
1.2 harris41 235: my $rpmtext=join('',@rpms);
1.5 harris41 236: if ($rpmtext=~/You do not seem to have a/) # No www?
237: {
1.7 harris41 238: print($out "You do not have a 'www' user on your system.\n".
239: "Please add this user and try this command again.\n");
240: clean_exit($mode,$out,0);
1.5 harris41 241: }
242: if ($rpmtext=~/This account is currently not/) # ------------ uh-oh
243: {
1.7 harris41 244: print($out "...strange error, moving on ($FTPSERVER)\n");
1.5 harris41 245: }
246: else # --------------------------------------- the output is "good"
247: {
1.2 harris41 248: $goodoutput=$rpmtext;
1.5 harris41 249: unless (@rpms) # If there are no RPMs to update.
250: {
1.7 harris41 251: $reallygoodoutput = <<END;
1.2 harris41 252: **** NOTE **** All RPMS on your system appear to be up to date.
253: END
1.7 harris41 254: $goodoutput = ' ';
1.5 harris41 255: }
1.2 harris41 256: last SERVERLOOP;
1.5 harris41 257: }
258: }
1.7 harris41 259: print($out '...cannot establish an ftp session with '.$FTPSERVER."\n");
1.5 harris41 260: }
261: else
262: {
1.7 harris41 263: print($out "...cannot find $FTPSERVER on the network\n");
1.5 harris41 264: }
265: }
266: if (!$goodoutput) # If never received any useable output, assume "no server".
267: {
1.7 harris41 268: print($out '**** ERROR **** Cannot find a working ftp server.'."\n");
1.17 ! www 269: $simplestatus.='status=fail';
1.7 harris41 270: clean_exit($mode,$out,0);
1.5 harris41 271: }
272: elsif ($reallygoodoutput) # Everything is peachy keen and up-to-date already.
273: {
1.7 harris41 274: print($out $reallygoodoutput);
1.17 ! www 275: $simplestatus.='status=okay';
1.5 harris41 276: }
277: else # There are RPMs that need to be updated; show list to user.
278: {
279: my $rpmcount=scalar(@rpms); # Count up size of RPM list.
1.7 harris41 280: print($out <<END); # Print out an advisory warning to user.
1.4 harris41 281: **** WARNING **** You need to update at least $rpmcount RPMS shown in
1.1 harris41 282: the list below. THIS IS IMPORTANT FOR SECURITY.
283:
284: END
1.7 harris41 285: print($out $goodoutput); # Output the RPM list.
1.17 ! www 286: $simplestatus.='status=okay&rpmcount='.$rpmcount;
1.7 harris41 287: if ($mode eq 'interactive')
288: {
289: print($out <<END);
290: Do you want to download the RPMs listed above (y/n)?
291: END
292: my $in=<>;
293: if ($in=~/^y/)
294: {
295: print($out 'Please be patient... downloading into '.
296: '/tmp/loncapa_rpm_updates'."\n");
297: print($out `perl $command_name --download`);
298: clean_exit($mode,$out,0);
299: }
300: }
301: print($out <<END); # Output instructions to user about taking action.
1.1 harris41 302:
303: Please visit ftp://$FTPUPDATES
304: and download the RPMS you need.
305: For instructions on working with (and upgrading) RPMS, please
306: visit http://www.rpm.org/max-rpm/.
1.4 harris41 307: To automatically download these RPMs to /tmp/loncapa_rpm_updates/,
308: run the CHECKRPMS command as "./CHECKRPMS --download"
1.1 harris41 309: END
1.7 harris41 310: if ($mode eq 'cronmail')
311: {
312: print($out <<END); # Output more instructions to user.
313: CHECKRPMS should be located in /usr/local/loncapa/bin/.
314: END
315: }
316: }
317:
318: clean_exit($mode,$out,0);
319:
320: # ================================================================ Subroutines.
321:
322: sub clean_exit
323: {
324: my ($mode,$out,$code)=@_;
1.17 ! www 325: #
! 326: # Store simple status
! 327: #
! 328: open(SMP,'>/home/httpd/html/lon-status/checkrpms.txt');
! 329: print SMP $simplestatus."\n";
! 330: close(SMP);
! 331: #
! 332: # Mail
! 333: #
1.7 harris41 334: if ($mode eq 'cronmail') # If cronmail mode, then mail LON-CAPA sys admin.
335: {
336: close(FOUT);
1.11 harris41 337:
1.7 harris41 338: # Read in configuration to get e-mail addresses.
339: my $perlvarref = read_conf('loncapa.conf');
340: my %perlvar = %{$perlvarref};
341: undef $perlvarref;
342: delete $perlvar{'lonReceipt'}; # remove since sensitive
343: delete $perlvar{'lonSqlAccess'}; # remove since sensitive
344:
345: # Set metadata for the e-mail.
1.15 www 346: my $emailto = "$perlvar{'lonAdmEMail'}";
1.11 harris41 347:
348: my $subj=$perlvar{'lonHostID'}.', RPMS to upgrade';
349:
350: # Make the e-mail's subject header to describe whether up-to-date.
351: if ($reallygoodoutput)
352: {
353: $subj = 'happy_lon: '.$subj; # Machine is up-to-date.
354: }
355: else
356: {
357: $subj = 'ALERT_lon: '.$subj; # There are out-of-date RPMs.
358: }
359:
360: # Send the e-mail.
1.14 harris41 361: my $date = `date +"\%e"`; # Always send a day after the "Ides" or after
362: # the beginning of a month. (In other words,
363: # send an e-mail every two weeks regardless.)
364: if (!$reallygoodoutput or
365: $date == 2 or
366: $date == 16)
1.12 albertel 367: {
368: system(
369: 'metasend -b -t '.$emailto.' -s '.
370: "'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");
371: }
1.7 harris41 372: }
373:
374: print($out <<END) if $mode eq 'html'; # If html mode, print ending tags.
375: </pre>
376: </body>
377: </html>
378: END
379: exit($code);
1.5 harris41 380: }
1.7 harris41 381:
382: sub terminate
383: {
384: my ($mode,$out,$output);
385: if ($mode eq 'html')
386: {
387: print($out <<END);
388: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
389: "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
390: <html>
391: <head>
392: <meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
393: <title>CHECKRPMS ERROR</title>
394: </head>
395: <body bgcolor="white">
396: <h1>CHECKRPMS ERROR</h1>
397: <hr />
398: <p><font color="red"><font size="+1">
399: END
400: }
401: print($out $output);
402: if ($mode eq 'html')
403: {
404: print($out <<END);
405: </font></font></p></body></html>
406: END
407: }
408: }
409:
410:
411: # - read_conf: read LON-CAPA server configuration, especially PerlSetVar values
412: sub read_conf
413: {
414: my (@conf_files)=@_;
415: my %perlvar;
416: my $confdir='/etc/httpd/conf/';
417: foreach my $filename (@conf_files,'loncapa_apache.conf')
418: {
419: open(CONFIG,'<'.$confdir.$filename) or
420: die("Can't read $confdir$filename");
421: while (my $configline=<CONFIG>)
422: {
423: if ($configline =~ /^[^\#]*PerlSetVar/)
424: {
425: my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
426: chomp($varvalue);
427: $perlvar{$varname}=$varvalue;
428: }
429: }
430: close(CONFIG);
431: }
432: my $perlvarref=\%perlvar;
433: return ($perlvarref);
434: }
435:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[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