%###-------------------------------------------------------------------------
<%once>
use autodie;
-use Data::Dumper;
use File::stat;
use TrivGal;
elsif (-d $st) { $comp = ".contact"; }
elsif (-f $st) { $comp = ".image"; }
else { $comp = ".not-found"; }
+ $r->header_out("X-AGPL-Source" => $SRCURL);
$m->comp($comp, path => $path);
</%init>
%