Hy all
This isn't a 100% perl question, but I shall not be the first.
lets see what I did:
- I install IIS (it is serving HTML pages)
- I install ActivePerl (it is serving pl pages)
- I tryed to write a file in the disk from the CGI script and I got a
Permission denied.
Script code (copy past from the CGI doc)
####################################################
use CGI qw/:standard/;
print header,
start_html('A Simple Example'),
h1('A Simple Example'),
start_form,
"What's your name? ",textfield('name'),p,
"What's the combination?", p,
checkbox_group(-name=>'words',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','minie']), p,
"What's your favorite color? ",
popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),p,
submit,
end_form,
hr;
if (param()) {
print "Your name is",em(param('name')),p,
"The keywords are: ",em(join(", ",param('words'))),p,
"Your favorite color is ",em(param('color')),
hr;
}
#open(my $file,
">E:\\Projects\\gwt\\condominios\\bin\\com\\mycompany\\public\\pl.txt");
open(my $file, ">pl.txt") or print "Can't start caesar: $! <br>";
print $file ("xxxxxx: ". time());
print "xxxxxx: " . time();
close $file;
####################################################
Probably I need to do something in the IIS server,
but what?
Thanks for any help
--
Marcos Rebelo
http://oleber.awardspace.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
