in reply to Re: Frontpage 2000 and CGI
in thread Frontpage 2000 and CGI
#!c:\perl print "Content-type:text/html\n\n"; print <<WEB_PAGE; <html> <title>Perl Script Directory</title> <h1>Directory of c:\temp</h1> WEB_PAGE $dir = "C:\\temp"; unless (opendir(DIR, $dir)) { &print_msg("\tCan't open $dir\n"); closedir(DIR); exit(0); } foreach (readdir(DIR)) { # don't include current dir or parent next if $_ eq '.' || $_ eq '..'; $path = "$dir/$_"; if (-d $path) { next; #&traverse($path); # check to see if file } elsif (-f _) { #if (!copy($path,"\\\\$Machine\\$Share{netname}\\temp\\")) { # &print_msg("FAILED ($path) " . Win32::Lanman::GetLastErro +r() . "\n"); #} else { # &print_msg("."); #} #print "<P $path>\n"; print $path; } } sleep (10); print "</html>\n";
Edited by BazB: added code tags.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: Frontpage 2000 and CGI
by CountZero (Bishop) on Feb 03, 2004 at 21:54 UTC |