getsource: remove temporary variable

master
Simon McVittie 2009-07-27 11:58:36 +01:00
parent 2ef53b128d
commit 70b1c2aabd
1 changed files with 1 additions and 5 deletions

View File

@ -77,18 +77,14 @@ sub cgi_getsource ($) {
exit;
}
my $data = readfile(srcfile($pagesources{$page}));
if (! $config{getsource_mimetype}) {
$config{getsource_mimetype} = "text/plain; charset=utf-8";
}
print "Content-Type: $config{getsource_mimetype}\r\n";
print ("\r\n");
print readfile(srcfile($pagesources{$page}));
print $data;
exit 0;
}