File:
[LON-CAPA] /
loncom /
build /
Attic /
CHECKRPMS.fedora
Revision
1.2:
download - view:
text,
annotated -
select for diffs
Mon Jul 19 21:01:51 2004 UTC (20 years ago) by
matthew
Branches:
MAIN
CVS tags:
version_2_2_X,
version_2_2_2,
version_2_2_1,
version_2_2_0,
version_2_1_X,
version_2_1_99_3,
version_2_1_99_2,
version_2_1_99_1,
version_2_1_99_0,
version_2_1_3,
version_2_1_2,
version_2_1_1,
version_2_1_0,
version_2_0_X,
version_2_0_99_1,
version_2_0_2,
version_2_0_1,
version_2_0_0,
version_1_99_3,
version_1_99_2,
version_1_99_1_tmcc,
version_1_99_1,
version_1_99_0_tmcc,
version_1_99_0,
version_1_3_X,
version_1_3_3,
version_1_3_2,
version_1_3_1,
version_1_3_0,
version_1_2_99_1,
version_1_2_99_0,
HEAD
More verboseness in message.
1: #!/usr/bin/perl -w
2: #
3: # The LearningOnline Network with CAPA
4: #
5: # $Id: CHECKRPMS.fedora,v 1.2 2004/07/19 21:01:51 matthew Exp $
6: #
7: # Copyright Michigan State University Board of Trustees
8: #
9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
10: #
11: # LON-CAPA is free software; you can redistribute it and/or modify
12: # it under the terms of the GNU General Public License as published by
13: # the Free Software Foundation; either version 2 of the License, or
14: # (at your option) any later version.
15: #
16: # LON-CAPA is distributed in the hope that it will be useful,
17: # but WITHOUT ANY WARRANTY; without even the implied warranty of
18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19: # GNU General Public License for more details.
20: #
21: # You should have received a copy of the GNU General Public License
22: # along with LON-CAPA; if not, write to the Free Software
23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24: #
25: # /home/httpd/html/adm/gpl.txt
26: #
27: # http://www.lon-capa.org/
28: #
29: # (Navigate problems for statistical reports
30: #
31:
32: =pod
33:
34: =head1 NAME
35:
36: B<CHECKRPMS> - automated status report about RPMs on a system, Yum version.
37:
38: =head1 DESCRIPTION
39:
40: This file automates the usage of yum to check for available updates
41: to Fedora systems.
42:
43: Must be run as root or www.
44:
45: =cut
46:
47: use strict;
48: use lib '/home/httpd/lib/perl/';
49: use LONCAPA::Configuration;
50:
51: my $yum = '/usr/bin/yum';
52: my $tmpfile = '/tmp/CHECKRPMS.'.$$;
53:
54: #
55: # Determine who we email
56: my %perlvar=%{LONCAPA::Configuration::read_conf('loncapa.conf')};
57: my $emailto = "$perlvar{'lonAdmEMail'}";
58: my $subj=$perlvar{'lonHostID'};
59: undef(%perlvar);
60:
61: #
62: # Put some nice text in $tmpfile
63: my $hostname = `hostname`;
64: chomp($hostname);
65: open(TMPFILE,">$tmpfile");
66: print TMPFILE localtime(time).' '.$hostname."\n";
67: print TMPFILE <<ENDHEADER;
68: Your system needs to be updated. Please execute (as root)
69:
70: yum update
71:
72: to bring it up to date.
73:
74: This is very important for the security of your server. The table below
75: lists the packages which need to be updated.
76:
77: ENDHEADER
78:
79: close(TMPFILE);
80:
81: #
82: # Execute yum command
83: my $command = $yum.' check-update '.'>>'.$tmpfile;
84: system($command);
85:
86: my $returnvalue = $?>>8;
87:
88: #
89: # Determine status of yum run
90: if (100 == $returnvalue) {
91: $subj.= ' RPMS to upgrade';
92: # Send email
93: system(qq{mail -s '$subj' $emailto < $tmpfile});
94: } elsif (0 != $returnvalue) {
95: # Send email
96: $subj.= ' Error running RPM update script';
97: system(qq{mail -s '$subj' $emailto < $tmpfile});
98: } else {
99: # yum returned 0, so everything is up to date.
100: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>