man/view_kde.cgi

   1 #!/usr/local/bin/perl
   2 # view_kde.cgi
   3 # View some HTML KDE documentation
   4
   5 require './man-lib.pl';
   6 &ReadParse();
   7
   8 $in{'file'} = &simplify_path($in{'file'});
   9 $in{'file'} !~ /[\\\&\;\`\'\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\n\r]/ ||
  10         &error($text{'kde_epath'});
  11 &is_under_directory($config{'kde_dir'}, $in{'file'}) ||
  12         &error($text{'kde_epath'});
  13 -r $in{'file'} ||
  14         &error($text{'kde_epath'});
  15
  16 # Just output if this is an image
  17 $mt = &guess_mime_type($in{'file'});
  18 if ($mt =~ /^image\//) {
  19         print "Content-type: $mt\r\n\r\n";
  20         print &read_file_contents($in{'file'});
  21         }
  22 else {
  23         &ui_print_header(undef, $text{'kde_title'}, "");
  24
  25         ($dir = $in{'file'}) =~ s/\/[^\/]+$//;
  26         open(FILE, $in{'file'});
  27         while($line = <FILE>) {
  28                 $line =~ s/href="([^"]+)"/href="view_kde.cgi?file=$dir\/$1"/ig;
  29                 $line =~ s/href='([^']+)'/href='view_kde.cgi?file=$dir\/$1'/ig;
  30                 $line =~ s/href=([^'"\s>]+)/href='view_kde.cgi?file=$dir\/$1'/ig;
  31                 $line =~ s/src="([^"]+)"/src="view_kde.cgi?file=$dir\/$1"/ig;
  32                 $line =~ s/src='([^']+)'/src='view_kde.cgi?file=$dir\/$1'/ig;
  33                 $line =~ s/src=([^'"\s>]+)/src='view_kde.cgi?file=$dir\/$1'/ig;
  34                 $out .= $line;
  35                 }
  36         close(FILE);
  37         &show_view_table(&text('kde_header', $in{'file'}), $out);
  38
  39         &ui_print_footer("", $text{'index_return'});
  40         }
  41