# The LearningOnline Network with CAPA
# Handler to show differences between file versions
#
# (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 Gerd Kortemeyer
package Apache::londiff;
use strict;
use Apache::File;
use File::Copy;
use Algorithm::Diff qw(diff);
use Apache::Constants qw(:common :http :methods);
sub handler {
my $r=shift;
# Get query string for limited number of parameters
map {
my ($name, $value) = split(/=/,$_);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if (($name eq 'filename') || ($name eq 'versiontwo') ||
($name eq 'versionone')) {
unless ($ENV{'form.'.$name}) {
$ENV{'form.'.$name}=$value;
}
}
} (split(/&/,$ENV{'QUERY_STRING'}));
# Get the files
my @f1=();
my @f2=();
$r->content_type('text/html');
$r->send_http_header;
$r->print('LON-CAPA Construction Diffs');
$r->print('');
$r->print('Compare versions of '.$ENV{'form.filename'}.'
');
if (&Apache::lonnet::fileembstyle(($ENV{'form.filename'}=~/\.(\w+)$/)) eq
'ssi') {
if ($ENV{'form.versionone'} eq 'priv') {
my $fn='/home/'.$ENV{'user.name'}.'/public_html/'.$ENV{'form.filename'};
if (-e $fn) {
my $fh=Apache::File->new($fn);
my $line;
while($line=<$fh>) {
chomp($line);
$f1[$#f1+1]=$line;
}
}
$r->print('Construction Space Version
');
} else {
my $fn=
'/home/httpd/html//res/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/';
if ($ENV{'form.versionone'}) {
my ($main,$suffix)=($ENV{'form.filename'}=~/^(.+)\.(\w+)$/);
$fn.=$main.'.'.$ENV{'form.versionone'}.'.'.$suffix;
$r->print('Version '.$ENV{'form.versionone'}.'
');
} else {
$fn.=$ENV{'form.filename'};
$r->print('Current Version
');
}
@f1=split(/\n/,&Apache::lonnet::getfile($fn));
}
$r->print('versus');
if ($ENV{'form.versiontwo'} eq 'priv') {
my $fn='/home/'.$ENV{'user.name'}.'/public_html/'.$ENV{'form.filename'};
if (-e $fn) {
my $fh=Apache::File->new($fn);
my $line;
while($line=<$fh>) {
chomp($line);
$f2[$#f2+1]=$line;
}
}
$r->print('Construction Space Version
');
} else {
my $fn=
'/home/httpd/html/res/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/';
if ($ENV{'form.versiontwo'}) {
my ($main,$suffix)=($ENV{'form.filename'}=~/^(.+)\.(\w+)$/);
$fn.=$main.'.'.$ENV{'form.versiontwo'}.'.'.$suffix;
$r->print('Version '.$ENV{'form.versiontwo'}.'
');
} else {
$fn.=$ENV{'form.filename'};
$r->print('Current Version
');
}
@f2=split(/\n/,&Apache::lonnet::getfile($fn));
}
# Run diff
my $diffs = diff(\@f1, \@f2);
# Start page output
my $chunk;
my $line;
$r->print('');
foreach $chunk (@$diffs) {
foreach $line (@$chunk) {
my ($sign, $lineno, $text) = @$line;
$text=~s/\/\>\;/g;
$lineno=substr($lineno.' ',0,7);
$r->print(''.
$sign.' '.$lineno.' '.$text."\n");
}
$r->print("
\n");
}
$r->print('');
} else {
$r->print('Binary File
');
}
$r->print('');
return OK;
}
1;
__END__