#!/usr/bin/env perl
use strict;
use warnings;
print "Content-type: text/html\n\n";
my $file = $ENV{PATH_INFO};
Error(q{Can't load specified file.}) if $file =~ m!(\.\./|//|:|~)! || $file !~ m!\.p[lg]$!;
my $root = '/opt/webwork';
my $filedir = $file =~ s!/[^/]+$!!r;
$file =~ s!.*/!!;
my @PGdirs = (
"../templates$filedir", '../templates/macros', "$root/pg/macros", "$root/pg/macros/answers",
"$root/pg/macros/capa", "$root/pg/macros/contexts", "$root/pg/macros/core", "$root/pg/macros/deprecated",
"$root/pg/macros/graph", "$root/pg/macros/math", "$root/pg/macros/misc", "$root/pg/macros/parsers",
"$root/pg/macros/ui",
);
for my $dir (@PGdirs) { ShowSource("$dir/$file") if (-e "$dir/$file") }
Error(qq{Can't find file "$file" in the following allowed locations:\n}, @PGdirs);
sub Error {
my @errors = @_;
print 'Show-Source Error';
print 'Show-Source Error:
';
print join("\n", @errors);
print '';
exit;
}
sub ShowSource {
my $file = shift;
my $name = $file;
$name =~ s!.*/!!;
open(my $pg_file, '<', $file);
my $program = join('', <$pg_file>);
close($pg_file);
$program =~ s/&/\&/g;
$program =~ s//\>/g;
print 'Problem Source Code';
print "Source Code for $name:
";
print '
';
print '';
print MarkSource($program);
print '
';
print '
';
print '';
exit;
}
sub MarkSource {
my $program = shift;
$program =~ s/loadMacros *\(([^\)]*)\)/MakeLinks($1)/ge;
return $program;
}
sub MakeLinks {
my $macros = shift;
$macros =~ s!"([^\"<]*)"!"$1"!g;
$macros =~ s!'([^\'<]*)'!'$1'!g;
return "loadMacros($macros)";
}
1;