evergrean100
Technical User
On a Unix Web server I would like to print out files listed in a remote Windows server. The files need to be output on a web page. My attempt is not working and cant get the error messages because the web page says "Server Error Response (500)" after I try the below attempt.
Code:
print header, <<"EOF";
<HTML>
<BODY>
print("
my $name = $File::Find::name;
my $j = 0;
my $dir = '//anotherServer/directoryhere';
sub myNames
{
$j++;
print "$name/$_\n";
}
find( \&myNames, $dir);
print "No data found.\n", if $j == 0;
unless ($j == 0)
{
print "FILE COUNT = $j\n";
}
");
</BODY>
</HTML>
EOF