getsource: remove temporary variable
parent
2ef53b128d
commit
70b1c2aabd
|
@ -77,17 +77,13 @@ sub cgi_getsource ($) {
|
||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $data = readfile(srcfile($pagesources{$page}));
|
|
||||||
|
|
||||||
if (! $config{getsource_mimetype}) {
|
if (! $config{getsource_mimetype}) {
|
||||||
$config{getsource_mimetype} = "text/plain; charset=utf-8";
|
$config{getsource_mimetype} = "text/plain; charset=utf-8";
|
||||||
}
|
}
|
||||||
|
|
||||||
print "Content-Type: $config{getsource_mimetype}\r\n";
|
print "Content-Type: $config{getsource_mimetype}\r\n";
|
||||||
|
|
||||||
print ("\r\n");
|
print ("\r\n");
|
||||||
|
print readfile(srcfile($pagesources{$page}));
|
||||||
print $data;
|
|
||||||
|
|
||||||
exit 0;
|
exit 0;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue