#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
print "";
print "";
print "xx ";
print "";
print qq[
];
$ct=$ENV{"CONTENT_TYPE"};
$cl=$ENV{"CONTENT_LENGTH"};
$xy="/view/dvsview/vobs/ps/projects/linkair/docs/internal/servdefns/iprelaysd";
#$xy1="/www/apache-1.3.19/cgi-bin/ps";
$op=opendir(DIR,$xy);
#print "reurn opendir = $op";
@files=readdir(DIR);
print qq[files
];
foreach $files(@files)
{
if($files =~/pdf$/)
{$pq=$xy.'/'.$files;
print qq
[
];
}
}
closedir(DIR);
&successsubmit("Doc successfully displayed!!","navy");
sub successsubmit
{
my($printstr,$color) = @_;
print "";
}