# 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,05/09 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); use Apache::loncacc; 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 $cuname=$ENV{'user.name'}; my $cudom=$ENV{'user.domain'}; unless (($cuname,$cudom)= &Apache::loncacc::constructaccess($ENV{'form.filename'}, $r->dir_config('lonDefDomain'))) { $r->log_reason($cuname.' at '.$cudom. ' trying to get diffs file '.$ENV{'form.filename'}. ' - not authorized', $r->filename); return HTTP_NOT_ACCEPTABLE; } my $efn=$ENV{'form.filename'}; $efn=~s/\/\~(\w+)//g; my @f1=(); my @f2=(); $r->content_type('text/html'); $r->send_http_header; $r->print('
'); foreach $chunk (@$diffs) { foreach $line (@$chunk) { my ($sign, $lineno, $text) = @$line; $text=~s/\\<\;/g; $text=~s/\>/\>\;/g; $lineno=substr($lineno.' ',0,7); $r->print(''. $sign.' '.$lineno.' '.$text."\n"); } $r->print("'); } else { $r->print('
\n"); } $r->print('