version 1.2, 2013/02/02 15:20:02
|
version 1.6, 2013/06/29 16:59:09
|
Line 85 sub get_checksums {
|
Line 85 sub get_checksums {
|
} |
} |
if (@paths) { |
if (@paths) { |
my $pathstr = join (' ',@paths); |
my $pathstr = join (' ',@paths); |
if (open($dirh,"grep '$revtag' $pathstr |")) { |
if (open($dirh,"grep '$revtag' $pathstr 2>&1 |")) { |
while (my $line=<$dirh>) { |
while (my $line=<$dirh>) { |
if ($line =~ m{^([^#]+):#\s\\s[\w.]+,v\s([\d.]+)\s}) { |
if ($line =~ m{^([^#]+):#\s\\s[\w.]+,v\s([\d.]+)\s}) { |
$versions{$1} = $2; |
$versions{$1} = $2; |
Line 125 sub get_checksums {
|
Line 125 sub get_checksums {
|
sub compare_checksums { |
sub compare_checksums { |
my ($target,$lonhost,$version,$serversums,$serverversions) = @_; |
my ($target,$lonhost,$version,$serversums,$serverversions) = @_; |
my ($message,$numchg,$linefeed); |
my ($message,$numchg,$linefeed); |
if ($target = 'web') { |
if ($target eq 'web') { |
$linefeed = '<br />'; |
$linefeed = '<br />'; |
} else { |
} else { |
$linefeed = "\n"; |
$linefeed = "\n"; |
} |
} |
|
if (!$Apache::lonlocal::lh) { |
|
&Apache::lonlocal::get_language_handle(); |
|
} |
if ((ref($serversums) eq 'HASH') && (keys(%{$serversums}))) { |
if ((ref($serversums) eq 'HASH') && (keys(%{$serversums}))) { |
my $checksums = &Apache::lonnet::fetch_dns_checksums(); |
my $checksums = &Apache::lonnet::fetch_dns_checksums(); |
my (%extra,%missing,%diffs,%stdsums,%stdversions); |
my (%extra,%missing,%diffs,%stdsums,%stdversions); |
Line 148 sub compare_checksums {
|
Line 151 sub compare_checksums {
|
$numchg ++; |
$numchg ++; |
} |
} |
} else { |
} else { |
$missing{$key} = 1; |
unless ((-e $key) && (-B $key)) { |
$numchg ++; |
$missing{$key} = 1; |
|
$numchg ++; |
|
} |
} |
} |
} |
} |
foreach my $key (keys(%{$serversums})) { |
foreach my $key (keys(%{$serversums})) { |
Line 272 sub compare_checksums {
|
Line 277 sub compare_checksums {
|
foreach my $file (sort(keys(%missing))) { |
foreach my $file (sort(keys(%missing))) { |
my $revnum = $stdversions{$file}; |
my $revnum = $stdversions{$file}; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$message .= '<td>'.$file.'</td>'."\n". |
$message .= &Apache::loncommon::start_data_table_row()."\n". |
|
'<td>'.$file.'</td>'."\n". |
'<td>'.$revnum.'</td>'."\n". |
'<td>'.$revnum.'</td>'."\n". |
&Apache::loncommon::end_data_table_row()."\n"; |
&Apache::loncommon::end_data_table_row()."\n"; |
} else { |
} else { |
Line 308 sub compare_checksums {
|
Line 314 sub compare_checksums {
|
} |
} |
foreach my $file (sort(keys(%extra))) { |
foreach my $file (sort(keys(%extra))) { |
if ($target eq 'web') { |
if ($target eq 'web') { |
$message .= '<td>'.$file.'</td>'."\n". |
$message .= &Apache::loncommon::start_data_table_row()."\n". |
|
'<td>'.$file.'</td>'."\n". |
'<td>'.$serverversions->{$file}.'</td>'."\n". |
'<td>'.$serverversions->{$file}.'</td>'."\n". |
&Apache::loncommon::end_data_table_row()."\n"; |
&Apache::loncommon::end_data_table_row()."\n"; |
} else { |
} else { |