version 1.15, 2004/03/11 22:44:01
|
version 1.27, 2009/05/14 14:24:18
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# |
|
# (Handler to retrieve an old version of a file |
|
# |
|
# (Publication Handler |
|
# |
|
# (TeX Content Handler |
|
# |
|
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
|
# |
|
# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer |
|
# 03/23 Guy Albertelli |
|
# 03/24,03/29 Gerd Kortemeyer) |
|
# |
|
# 03/31,04/03 Gerd Kortemeyer) |
|
# |
|
# 05/02/01,05/09 Gerd Kortemeyer |
|
# |
|
### |
### |
|
|
|
|
|
|
|
|
package Apache::londiff; |
package Apache::londiff; |
|
|
use strict; |
use strict; |
use Apache::File; |
use Apache::File; |
use File::Copy; |
use File::Copy; |
|
use File::Compare; |
use Algorithm::Diff qw(diff); |
use Algorithm::Diff qw(diff); |
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use Apache::loncacc; |
use Apache::loncacc(); |
use Apache::lonnet(); |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::lonretrieve(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use LONCAPA(); |
|
|
sub get_split_file { |
sub get_split_file { |
my ($fn,$style)=@_; |
my ($fn,$style)=@_; |
my $f1; |
my $f1; |
my @f1; |
my @f1; |
if ($style='local') { |
if ($style eq 'local') { |
if (-e $fn) { |
if (-e $fn) { |
my $fh=Apache::File->new($fn); |
my $fh=Apache::File->new($fn); |
my $line; |
my $line; |
Line 70 sub get_split_file {
|
Line 58 sub get_split_file {
|
} |
} |
} |
} |
} elsif ($style eq 'remote') { |
} elsif ($style eq 'remote') { |
my $f1=&Apache::lonnet::getfile($fn); |
$f1=&Apache::lonnet::getfile($fn); |
} |
|
if ($f1=~/\r/) { |
|
@f1=split(/\r/,&Apache::lonnet::getfile($fn)); |
|
foreach my $line (@f1) { |
|
$line=~s/\n//g; |
|
} |
|
} else { |
|
@f1=split(/\n/,&Apache::lonnet::getfile($fn)); |
|
} |
} |
|
@f1=split(/\r\n|\r|\n/,$f1); |
return @f1; |
return @f1; |
} |
} |
|
|
sub handler { |
sub are_different_files { |
|
my ($fileone,$filetwo)=@_; |
|
return &compare($fileone,$filetwo); |
|
} |
|
|
my $r=shift; |
sub handler { |
|
|
|
my $r=shift; |
# Get query string for limited number of parameters |
# Get query string for limited number of parameters |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['filename','versiontwo','versionone']); |
['filename','versiontwo', |
|
'versionone','filetwo']); |
# Get the files |
# Get the files |
|
|
my $cuname=$ENV{'user.name'}; |
my $cuname=$env{'user.name'}; |
my $cudom=$ENV{'user.domain'}; |
my $cudom=$env{'user.domain'}; |
|
|
if ($ENV{'form.filename'}=~/^\/res\//) { |
if ($env{'form.filename'}=~/^\/res\//) { |
($cudom,$cuname,$ENV{'form.filename'})= |
($cudom,$cuname,$env{'form.filename'})= |
($ENV{'form.filename'}=~/^\/res\/(\w+)\/(\w+)\/(.*)$/); |
($env{'form.filename'}=~m{^/res/($LONCAPA::domain_re)/($LONCAPA::username_re)/(.*)$}); |
} else { |
} else { |
unless (($cuname,$cudom)= |
unless (($cuname,$cudom)= |
&Apache::loncacc::constructaccess($ENV{'form.filename'}, |
&Apache::loncacc::constructaccess($env{'form.filename'}, |
$r->dir_config('lonDefDomain'))) { |
$r->dir_config('lonDefDomain'))) { |
$r->log_reason($cuname.' at '.$cudom. |
$r->log_reason($cuname.':'.$cudom. |
' trying to get diffs file '.$ENV{'form.filename'}. |
' trying to get diffs file '.$env{'form.filename'}. |
' - not authorized', |
' - not authorized', |
$r->filename); |
$r->filename); |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} |
} |
|
|
my $efn=$ENV{'form.filename'}; |
my $efn=$env{'form.filename'}; |
|
|
$efn=~s/\/\~(\w+)//g; |
|
|
|
my @f1=(); |
|
my @f2=(); |
|
|
|
&Apache::loncommon::content_type($r,'text/html'); |
$efn=~s{/\~($LONCAPA::username_re)}{}g; |
$r->send_http_header; |
|
|
|
$r->print('<html><head><title>LON-CAPA Construction Diffs</title></head>'); |
my @f1=(); |
|
my @f2=(); |
|
|
$r->print(&Apache::loncommon::bodytag('Resource Differences')); |
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
|
|
$r->print(&Apache::loncommon::start_page('Resource Differences',undef, |
|
{'no_nav_bar' => 1, })); |
|
|
$r->print('<h1>'.&mt('Compare versions of').' <tt>'.$efn.'</tt></h1>'); |
$r->print(($env{'form.filetwo'}?'':&mt('Compare versions of')). |
|
' <span class="LC_filename">'.$efn.'</span>'); |
|
|
if (($cuname ne $ENV{'user.name'}) || ($cudom ne $ENV{'user.domain'})) { |
if (($cuname ne $env{'user.name'}) || ($cudom ne $env{'user.domain'})) { |
$r->print('<h3><font color=red>Co-Author: '.$cuname.' at '.$cudom. |
$r->print('<p><span class="LC_warning">' |
'</font></h3>'); |
.&mt('Co-Author [_1]' |
} |
,&Apache::loncommon::plainname($cuname,$cudom) |
|
.' ('.$cuname.':'.$cudom.')') |
|
.'</span></p>' |
if (&Apache::loncommon::fileembstyle(($efn=~/\.(\w+)$/)) eq |
); |
'ssi') { |
} |
$r->print('<p><font color="red">'); |
|
if ($ENV{'form.versionone'} eq 'priv') { |
|
my $fn='/home/'.$cuname.'/public_html/'.$efn; |
|
@f1=&get_split_file($fn,'local'); |
|
$r->print('<b>'.&mt('Construction Space Version').'</b>'); |
|
} else { |
|
my $fn= |
|
'/home/httpd/html//res/'.$cudom.'/'.$cuname.'/'; |
|
if ($ENV{'form.versionone'}) { |
|
my ($main,$suffix)=($efn=~/^(.+)\.(\w+)$/); |
|
$fn.=$main.'.'.$ENV{'form.versionone'}.'.'.$suffix; |
|
$r->print('<b>'.&mt('Version').' '.$ENV{'form.versionone'}.'</b>'); |
|
} else { |
|
$fn.=$efn; |
|
$r->print('<b>'.&mt('Current Version').'</b>'); |
|
} |
|
@f1=&get_split_file($fn,'remote'); |
|
} |
|
|
|
$r->print('</font><br />'.&mt('versus').'<br /><font color="green">'); |
|
|
|
if ($ENV{'form.versiontwo'} eq 'priv') { |
|
my $fn='/home/'.$cuname.'/public_html/'.$efn; |
|
@f2=&get_split_file($fn,'local'); |
|
$r->print('<b>'.&mt('Construction Space Version').'</b>'); |
|
} else { |
|
my $fn= |
|
'/home/httpd/html/res/'.$cudom.'/'.$cuname.'/'; |
|
if ($ENV{'form.versiontwo'}) { |
|
my ($main,$suffix)=($efn=~/^(.+)\.(\w+)$/); |
|
$fn.=$main.'.'.$ENV{'form.versiontwo'}.'.'.$suffix; |
|
$r->print('<b>'.&mt('Version').' '.$ENV{'form.versiontwo'}.'</b>'); |
|
} else { |
|
$fn.=$efn; |
|
$r->print('<b>'.&mt('Current Version').'</b>'); |
|
} |
|
@f2=&get_split_file($fn,'remote'); |
|
} |
|
$r->print('</font></p>'); |
|
# Run diff |
|
|
|
my $diffs = diff(\@f1, \@f2); |
|
|
|
# Start page output |
|
|
|
my $chunk; |
if (&Apache::loncommon::fileembstyle(($efn=~/\.(\w+)$/)) eq 'ssi' |
my $line; |
|| $efn =~ /\.meta$/) { |
|
$r->print('<p><span class="LC_diff_removed">'); |
|
if ($env{'form.versionone'} eq 'priv') { |
|
my $fn='/home/'.$cuname.'/public_html/'.$efn; |
|
@f1=&get_split_file($fn,'local'); |
|
$r->print('<b>'.&mt('Construction Space Version').'</b>'); |
|
} else { |
|
my $fn= |
|
'/home/httpd/html/res/'.$cudom.'/'.$cuname.'/'; |
|
if ($env{'form.versionone'}) { |
|
my ($main,$suffix,$is_meta)= |
|
&Apache::lonretrieve::get_file_info($efn); |
|
|
|
$fn.=($efn =~m|(.*/)[^/]+|)[0]; |
|
# add on to $fn the path information in $efn |
|
$fn.=$main.'.'.$env{'form.versionone'}.'.'.$suffix; |
|
$r->print('<b>'.&mt('Version').' '.$env{'form.versionone'}.'</b>'); |
|
} else { |
|
$fn.=$efn; |
|
$r->print('<b>'.&mt('Current Version').'</b>'); |
|
} |
|
@f1=&get_split_file($fn,'remote'); |
|
} |
|
|
|
$r->print('</span><br />'.&mt('versus').'<br /><span class="LC_diff_added">'); |
|
|
$r->print('<pre>'); |
if ($env{'form.filetwo'}) { |
|
my $efn2=$env{'form.filetwo'}; |
|
$efn2=~s{/\~($LONCAPA::username_re)}{}g; |
|
my $fn='/home/'.$cuname.'/public_html/'.$efn2; |
|
@f2=&get_split_file($fn,'local'); |
|
$r->print('<tt>'.$efn2.'</tt>'); |
|
} elsif ($env{'form.versiontwo'} eq 'priv') { |
|
my $fn='/home/'.$cuname.'/public_html/'.$efn; |
|
@f2=&get_split_file($fn,'local'); |
|
$r->print('<b>'.&mt('Construction Space Version').'</b>'); |
|
} else { |
|
my $fn= |
|
'/home/httpd/html/res/'.$cudom.'/'.$cuname.'/'; |
|
if ($env{'form.versiontwo'}) { |
|
my ($main,$suffix,$is_meta)= |
|
&Apache::lonretrieve::get_file_info($efn); |
|
# add on to $fn the path information in $efn |
|
$fn.=($efn =~m|(.*/)[^/]+|)[0]; |
|
$fn.=$main.'.'.$env{'form.versiontwo'}.'.'.$suffix; |
|
$r->print('<b>'.&mt('Version').' '.$env{'form.versiontwo'}.'</b>'); |
|
} else { |
|
$fn.=$efn; |
|
$r->print('<b>'.&mt('Current Version').'</b>'); |
|
} |
|
@f2=&get_split_file($fn,'remote'); |
|
} |
|
$r->print('</span></p>'); |
|
# Run diff |
|
|
foreach $chunk (@$diffs) { |
my $diffs = diff(\@f1, \@f2); |
|
|
foreach $line (@$chunk) { |
if (@$diffs) { |
my ($sign, $lineno, $text) = @$line; |
# Start page output |
$text=~s/\</\<\;/g; |
my $chunk; |
$text=~s/\>/\>\;/g; |
my $line; |
$lineno=substr($lineno.' ',0,7); |
$r->print('<pre>'); |
$r->print('<font color='.(($sign eq '+')?'green':'red').'>'. |
foreach $chunk (@$diffs) { |
$sign.' '.$lineno.' '.$text."</font>\n"); |
foreach $line (@$chunk) { |
|
my ($sign, $lineno, $text) = @$line; |
|
$text=&HTML::Entities::encode($text,'<>&"'); |
|
$lineno=substr($lineno.' ',0,7); |
|
$r->print('<span class="'.(($sign eq '+')?'LC_diff_added' |
|
:'LC_diff_removed').'">'. |
|
$sign.' '.$lineno.' '.$text."</span>\n"); |
|
} |
|
$r->print("</pre><hr /><pre>\n"); |
|
} |
|
$r->print('</pre>'); |
|
} else { |
|
$r->print('<p class="LC_info">'.&mt('No differences found').'</p>'); |
|
} |
|
} else { |
|
$r->print('<h1><span class="LC_warning">'.&mt('Binary File').'</span></h1>'); |
} |
} |
$r->print("<hr>\n"); |
$r->print('<center><a href="javascript:window.close();">'.&mt('Close This Window').'</a></center>'); |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print('</pre>'); |
return OK; |
|
|
} else { |
|
$r->print('<h1><font color=red>'.&mt('Binary File').'</font></h1>'); |
|
} |
|
$r->print('<center><a href="javascript:window.close();">'.&mt('Close This Window').'</a></center></body></html>'); |
|
return OK; |
|
} |
} |
|
|
|
|
Line 212 sub handler {
|
Line 214 sub handler {
|
__END__ |
__END__ |
|
|
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
Apache::londiff |
|
|
|
=head1 SYNOPSIS |
|
|
|
Handler to show difference between two files. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 Subroutines |
|
|
|
=over |
|
|
|
=item get_split_file() |
|
|
|
=item are_different_files() |
|
|
|
=item handler() |
|
|
|
=cut |