#!/usr/bin/perl

require "cgi-lib.pl";

$sec_read = "ystpl810237";
$sec_loc = "eergwy5934o";

&ReadParse(\%in,\%cgi_cfn);

$subdir = $in{'dir'};
$file = $in{'file'};
$sec = $in{'sec'}; 

if ($sec ne "$sec_read") {
&quitit;
}

if ($subdir eq "") {
&quitit;
}

if ($file eq "") {
&quitit;
}

&viewimage;

exit;


sub viewimage {
$maindir = "/home/virtual/admin5/var/www/html/$sec_loc/$subdir/$file";
if (-e "$maindir") {
print "Content-type: application/pdf\r\n\r\n";
open(PDFFILE,"<$maindir");
while (read(PDFFILE, $buf, 4096))
{
   print $buf;
}
close PDFFILE;
exit;
}
else {
&quitit;
}
}


sub quitit {
$url = "http://olddirectorysearch.com/";
print "Location: $url\n\n";
exit;
}