|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/libexec/webmin/man/ |
Upload File : |
#!/usr/bin/perl
# view_kde.cgi
# View some HTML KDE documentation
require './man-lib.pl';
&ReadParse();
$in{'file'} = &simplify_path($in{'file'});
$in{'file'} !~ /[\\\&\;\`\'\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\n\r]/ ||
&error($text{'kde_epath'});
&is_under_directory($config{'kde_dir'}, $in{'file'}) ||
&error($text{'kde_epath'});
-r $in{'file'} ||
&error($text{'kde_epath'});
# Just output if this is an image
$mt = &guess_mime_type($in{'file'});
if ($mt =~ /^image\//) {
print "Content-type: $mt\r\n\r\n";
print &read_file_contents($in{'file'});
}
else {
&ui_print_header(undef, $text{'kde_title'}, "");
($dir = $in{'file'}) =~ s/\/[^\/]+$//;
open(FILE, $in{'file'});
while($line = <FILE>) {
$line =~ s/href="([^"]+)"/href="view_kde.cgi?file=$dir\/$1"/ig;
$line =~ s/href='([^']+)'/href='view_kde.cgi?file=$dir\/$1'/ig;
$line =~ s/href=([^'"\s>]+)/href='view_kde.cgi?file=$dir\/$1'/ig;
$line =~ s/src="([^"]+)"/src="view_kde.cgi?file=$dir\/$1"/ig;
$line =~ s/src='([^']+)'/src='view_kde.cgi?file=$dir\/$1'/ig;
$line =~ s/src=([^'"\s>]+)/src='view_kde.cgi?file=$dir\/$1'/ig;
$out .= $line;
}
close(FILE);
&show_view_table(&text('kde_header', $in{'file'}), $out);
&ui_print_footer("", $text{'index_return'});
}