1: # The LearningOnline Network with CAPA
2: # Checksum installed LON-CAPA modules and some configuration files
3: #
4: # $Id: Checksumming.pm,v 1.11 2023/05/15 02:34:51 raeburn Exp $
5: #
6: # The LearningOnline Network with CAPA
7: #
8: # Copyright Michigan State University Board of Trustees
9: #
10: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
11: #
12: # LON-CAPA is free software; you can redistribute it and/or modify
13: # it under the terms of the GNU General Public License as published by
14: # the Free Software Foundation; either version 2 of the License, or
15: # (at your option) any later version.
16: #
17: # LON-CAPA is distributed in the hope that it will be useful,
18: # but WITHOUT ANY WARRANTY; without even the implied warranty of
19: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20: # GNU General Public License for more details.
21: #
22: # You should have received a copy of the GNU General Public License
23: # along with LON-CAPA; if not, write to the Free Software
24: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25: #
26: # /home/httpd/html/adm/gpl.txt
27: #
28: # http://www.lon-capa.org/
29: #
30:
31: package LONCAPA::Checksumming;
32:
33: use strict;
34: use lib '/home/httpd/lib/perl/';
35: use Apache::lonlocal();
36: use Apache::loncommon();
37: use Digest::SHA;
38:
39: sub get_checksums {
40: my ($distro,$londaemons,$lonlib,$lonincludes,$lontabdir) = @_;
41: my $output;
42: my (%versions,%chksums);
43: my $dirh;
44: my $revtag = '$Id:';
45: my @paths;
46: if ($londaemons) {
47: push(@paths,($londaemons.'/*',
48: $londaemons.'/debug/*.pl'));
49: }
50: if ($lonlib) {
51: push(@paths,($lonlib.'/perl/Apache/*.pm',
52: $lonlib.'/perl/Apache/math_parser/*.pm',
53: $lonlib.'/perl/Apache/localize/*.pm',
54: $lonlib.'/perl/LONCAPA/*.pm',
55: $lonlib.'/perl/AlgParser.pm',
56: $lonlib.'/perl/LONCAPA.pm',
57: $lonlib.'/perl/Safe.pm',
58: $lonlib.'/perl/*-std.pm',
59: $lonlib.'/perl/HTML/*.pm',
60: $lonlib.'/perl/Safe.pm'));
61: }
62: if ($lonincludes) {
63: push(@paths,$lonincludes.'/*.lcpm');
64: }
65: push(@paths,('/home/httpd/cgi-bin/*.pl','/home/httpd/cgi-bin/*.png'));
66: my $confdir = '/etc/httpd/conf';
67: if ($distro =~ /^(ubuntu|debian)(\d+)$/) {
68: $confdir = '/etc/apache2';
69: } elsif ($distro =~ /^sles(\d+)$/) {
70: if ($1 >= 10) {
71: $confdir = '/etc/apache2';
72: }
73: } elsif ($distro =~ /^suse(\d+\.\d+)$/) {
74: if ($1 >= 10.0) {
75: $confdir = '/etc/apache2';
76: }
77: }
78: push(@paths,("$confdir/loncapa_apache.conf","$confdir/startup.pl"));
79: if ($lontabdir) {
80: push(@paths,$lontabdir.'/mydesk.tab');
81: }
82: if (@paths) {
83: my $pathstr = join (' ',@paths);
84: if (open($dirh,"grep '$revtag' $pathstr 2>&1 |")) {
85: while (my $line=<$dirh>) {
86: if ($line =~ m{^([^#]+):#\s\$Id:\s[\w.]+,v\s([\d.]+)\s}) {
87: $versions{$1} = $2;
88: }
89: }
90: close($dirh);
91: }
92: if ($londaemons) {
93: my @binaries = qw (apachereload lchttpdlogs lcinstallfile lciptables lcnfsoff lcnfson lcpasswd lcuserdel pwchange);
94: foreach my $file (@binaries) {
95: next if ($versions{"$londaemons/$file"});
96: if (-B "$londaemons/$file") {
97: if (-T $londaemons.'/.'.$file) {
98: if (open(my $fh,'<',$londaemons.'/.'.$file)) {
99: while (my $line=<$fh>) {
100: if ($line =~ m{^#\s\$Id:\s[\w.]+,v\s([\d.]+)\s}) {
101: $versions{"$londaemons/$file"} = $1;
102: last;
103: }
104: }
105: close($fh);
106: }
107: if ($versions{"$londaemons/$file"}) {
108: if (open(my $fh,'<',$londaemons.'/.'.$file)) {
109: binmode $fh;
110: my $sha_obj = Digest::SHA->new();
111: $sha_obj->addfile($fh);
112: $chksums{"$londaemons/$file"} = $sha_obj->hexdigest;
113: close($fh);
114: }
115: }
116: }
117: }
118: }
119: }
120: foreach my $key (sort(keys(%versions))) {
121: next if ($key =~ /\.lpmlsave$/);
122: unless (exists($chksums{$key})) {
123: if (open(my $fh,"<$key")) {
124: binmode $fh;
125: my $sha_obj = Digest::SHA->new();
126: $sha_obj->addfile($fh);
127: $chksums{$key} = $sha_obj->hexdigest;
128: close($fh);
129: }
130: }
131: $output .= "$key,$versions{$key},$chksums{$key}\n";
132: }
133: }
134: if ($lontabdir ne '') {
135: if (open(my $tabfh,">$lontabdir/lonchksums.tab")) {
136: print $tabfh '# Last written: '.localtime(time)."\n";
137: print $tabfh "$output\n";
138: close($tabfh);
139: }
140: }
141: return (\%chksums,\%versions);
142: }
143:
144: sub compare_checksums {
145: my ($target,$lonhost,$version,$serversums,$serverversions) = @_;
146: my ($message,$numchg,$linefeed);
147: if ($target eq 'web') {
148: $linefeed = '<br />';
149: } else {
150: $linefeed = "\n";
151: }
152: if (!$Apache::lonlocal::lh) {
153: &Apache::lonlocal::get_language_handle();
154: }
155: if ((ref($serversums) eq 'HASH') && (keys(%{$serversums}))) {
156: my $checksums = &Apache::lonnet::fetch_dns_checksums();
157: my (%extra,%missing,%diffs,%stdsums,%stdversions);
158: if (ref($checksums) eq 'HASH') {
159: if (ref($checksums->{'sums'}) eq 'HASH') {
160: %stdsums = %{$checksums->{'sums'}};
161: }
162: if (ref($checksums->{'versions'}) eq 'HASH') {
163: %stdversions = %{$checksums->{'versions'}};
164: }
165: if (keys(%stdsums)) {
166: foreach my $key (keys(%stdsums)) {
167: if (exists($serversums->{$key})) {
168: if ($serversums->{$key} ne $stdsums{$key}) {
169: $diffs{$key} = 1;
170: $numchg ++;
171: }
172: } else {
173: $missing{$key} = 1;
174: $numchg ++;
175: }
176: }
177: foreach my $key (keys(%{$serversums})) {
178: unless (exists($stdsums{$key})) {
179: $extra{$key} = 1;
180: $numchg ++;
181: }
182: }
183: }
184: if ($numchg) {
185: $message =
186: &Apache::lonlocal::mt('[quant,_1,difference was,differences were] found'.
187: ' between LON-CAPA modules installed on your server [_2]'.
188: ' and those expected for the LON-CAPA version you are'.
189: ' currently running.',$numchg,"($lonhost)$linefeed");
190: if ($target eq 'web') {
191: $message = '<p>'.$message.'</p>';
192: } else {
193: $message .= "\n\n";
194: }
195: my (@diffversion,@modified);
196: if (keys(%diffs) > 0) {
197: foreach my $file (sort(keys(%diffs))) {
198: if ($serverversions->{$file} ne $stdversions{$file}) {
199: push(@diffversion,$file);
200: } else {
201: push(@modified,$file);
202: }
203: }
204: if (@diffversion > 0) {
205: my $text =
206: &Apache::lonlocal::mt('The following [quant,_1,file is a,files are]'.
207: ' different version(s) from that expected for LON-CAPA [_2]:',
208: scalar(@diffversion),$version);
209: if ($target eq 'web') {
210: $message .= '<p>'.$text.'</p>'.
211: &Apache::loncommon::start_data_table().
212: &Apache::loncommon::start_data_table_header_row()."\n".
213: '<th>'.&Apache::lonlocal::mt('File').'</th>'."\n".
214: '<th>'.&Apache::lonlocal::mt('Server version').'</th>'."\n".
215: '<th>'.&Apache::lonlocal::mt('Expected version').'</th>'."\n".
216: &Apache::loncommon::end_data_table_header_row()."\n";
217: } else {
218: $message .= "$text\n";
219: }
220: foreach my $file (sort(@diffversion)) {
221: my $revnum = $stdversions{$file};
222: if ($target eq 'web') {
223: $message .= &Apache::loncommon::start_data_table_row().
224: '<td>'.$file.'</td>'."\n".
225: '<td>'.$serverversions->{$file}.'</td>'."\n".
226: '<td>'.$revnum.'</td>'."\n".
227: &Apache::loncommon::end_data_table_row()."\n";
228: } else {
229: $message .= $file.' '.
230: &Apache::lonlocal::mt('(local rev: [_1])',
231: $serverversions->{$file});
232: if ($revnum) {
233: $message .= '; '.
234: &Apache::lonlocal::mt('(expected rev: [_1])',
235: $revnum);
236: }
237: $message .= "\n";
238: }
239: }
240: if ($target eq 'web') {
241: $message .= &Apache::loncommon::end_data_table().'<br />';
242: } else {
243: $message .= "\n";
244: }
245: }
246: if (@modified > 0) {
247: my $text =
248: &Apache::lonlocal::mt('The following [quant,_1,file appears,files appear]'.
249: ' to have been modified locally:',scalar(@modified));
250: if ($target eq 'web') {
251: $message .= '<p>'.$text.'</p>'.
252: &Apache::loncommon::start_data_table().
253: &Apache::loncommon::start_data_table_header_row()."\n".
254: '<th>'.&Apache::lonlocal::mt('File').'</th>'."\n".
255: '<th>'.&Apache::lonlocal::mt('Version').'</th>'."\n".
256: &Apache::loncommon::end_data_table_header_row()."\n";
257: } else {
258: $message .= "$text\n";
259: }
260: foreach my $file (sort(@modified)) {
261: if ($target eq 'web') {
262: $message .= &Apache::loncommon::start_data_table_row()."\n".
263: '<td>'.$file.'</td>'."\n".
264: '<td>'.$serverversions->{$file}.'</td>'."\n".
265: &Apache::loncommon::end_data_table_row()."\n";
266: } else {
267: $message .= $file.' '.
268: &Apache::lonlocal::mt('(local rev: [_1])',
269: $serverversions->{$file}).
270: "\n";
271: }
272: }
273: if ($target eq 'web') {
274: $message .= &Apache::loncommon::end_data_table().'<br />';
275: } else {
276: $message .= "\n";
277: }
278: }
279: }
280: if (keys(%missing) > 0) {
281: my $text =
282: &Apache::lonlocal::mt('The following [quant,_1,local file appears,local files appear]'.
283: ' to be missing:',scalar(keys(%missing)));
284: if ($target eq 'web') {
285: $message .= '<p>'.$text.'</p>'.
286: &Apache::loncommon::start_data_table().
287: &Apache::loncommon::start_data_table_header_row()."\n".
288: '<th>'.&Apache::lonlocal::mt('File').'</th>'."\n".
289: '<th>'.&Apache::lonlocal::mt('Expected version').'</th>'."\n".
290: &Apache::loncommon::end_data_table_header_row()."\n";
291: } else {
292: $message .= "$text\n";
293: }
294: foreach my $file (sort(keys(%missing))) {
295: my $revnum = $stdversions{$file};
296: if ($target eq 'web') {
297: $message .= &Apache::loncommon::start_data_table_row()."\n".
298: '<td>'.$file.'</td>'."\n".
299: '<td>'.$revnum.'</td>'."\n".
300: &Apache::loncommon::end_data_table_row()."\n";
301: } else {
302: $message .= $file;
303: if ($revnum) {
304: $message .= ' '.
305: &Apache::lonlocal::mt('(expected rev: [_1])',
306: $revnum);
307: }
308: $message .= "\n";
309: }
310: }
311: if ($target eq 'web') {
312: $message .= &Apache::loncommon::end_data_table();
313: } else {
314: $message .= "\n";
315: }
316: }
317: if (keys(%extra) > 0) {
318: my $text =
319: &Apache::lonlocal::mt('The following [quant,_1,file is,files are]'.
320: ' not required by the release you have installed:',
321: scalar(keys(%extra)));
322: if ($target eq 'web') {
323: $message .= '<p>'.$text.'</p>'.
324: &Apache::loncommon::start_data_table().
325: &Apache::loncommon::start_data_table_header_row()."\n".
326: '<th>'.&Apache::lonlocal::mt('File').'</th>'."\n".
327: '<th>'.&Apache::lonlocal::mt('Version').'</th>'."\n".
328: &Apache::loncommon::end_data_table_header_row()."\n";
329: } else {
330: $message .= "$text\n";
331: }
332: foreach my $file (sort(keys(%extra))) {
333: if ($target eq 'web') {
334: $message .= &Apache::loncommon::start_data_table_row()."\n".
335: '<td>'.$file.'</td>'."\n".
336: '<td>'.$serverversions->{$file}.'</td>'."\n".
337: &Apache::loncommon::end_data_table_row()."\n";
338: } else {
339: $message .= $file.' '.
340: &Apache::lonlocal::mt('(local rev: [_1])',
341: $serverversions->{$file}).
342: "\n";
343: }
344: }
345: if ($target eq 'web') {
346: $message .= &Apache::loncommon::end_data_table().'<br />';
347: } else {
348: $message .= "\n";
349: }
350: }
351: } else {
352: $message = &Apache::lonlocal::mt('No differences detected between installed files and files expected for LON-CAPA [_1]',$version);
353: }
354: } else {
355: $message = &Apache::lonlocal::mt('No comparison attempted - failed to retrieve checksums for installed files.');
356: }
357: } else {
358: $message = &Apache::lonlocal::mt('No comparison attempted - failed to retrieve checksums for installed files.');
359: }
360: unless ($message) {
361: $message = &Apache::lonlocal::mt('LON-CAPA module check found no file changes.')."\n";
362: }
363: return ($message,$numchg);
364: }
365:
366: 1;
367:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to Checksumming.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / configuration