use CGI qw(:standard escapeHTML);
use x;
use y;
use DB_File;
my $sessid = $$;
my $home = "/blub";
my $file="";
my $gms_oid=param("o");
if ($gms_oid) {
	$hpfad = sprintf "%010X",$gms_oid;
	$pfad = "/ARCHIV/".substr($hpfad,0,2)."/".substr($hpfad,2,2)."/".substr($hpfad,4,2)."/".substr($hpfad,6,2)."/".substr($hpfad,8,2);
}
if(-e "$pfad/asd.pdf") {
	unless (-e ".$gms_oid.pdf") {
        	system("ln -s $pfad/asd.PDF .$gms_oid.pdf");
	}
print header(), start_html(-title=>"BLUB", -bgcolor=>"#AAAAAA", -style=>{"src"=>"licis.css"}, -script=>{-language=>'JavaScript', -src=>'gms.js'});
print "<TABLE FRAME=VOID BORDER=0 CELLSPACING=0 CELLPADDING=0>";

#Kopfzeile

print "<embed src='.$gms_oid.pdf' width='100%' height='776px'>";
print end_html();