Hung up on the Header

I don't even know if this will work this way (the FTP parts work OK), from the web. But I can't get past a 'Valid Header' message and I can't figure out why. I've messed at it for well over an hour.

Any help?

Thanks

############################
#!/usr/local/bin/perl
use CGI qw(:standard :shortcuts);

print "Content-type: text/html\n\n";
print "<head><title>Approve Page</title></head>\n";  
print "<html>\n";          
print "<body bgcolor=\"#FFFFFF\">\n";  
print "FTPing \n";  
#############

ftp -i <<**
open 19.59.28.51
cd 'pa.test.poffacng'
lcd /export/ford/eccws7/u/mso/www.86.80/fcsd/psl/namer/ftp
ascii
mget  *
bye
**

**
ftp -i <<**
open 19.91.168.247
cd w:/ftp/webtrans/downloads
lcd /export/ford/eccws7/u/mso/www.86.80/fcsd/psl/namer/ftp
ascii
mput  *.TXT *.txt
bye
**
##############
print "</body></html>\n";  
tmccar10Asked:
Who is Participating?
 
TintinConnect With a Mentor Commented:
You can't just plonk random ftp commands in a Perl script, as you probably know by the errors you get, ie:

Unquoted string "ftp" may clash with future reserved word at script.pl line 10.
Ambiguous use of -i resolved as -&i() at script.pl line 10.
Use of bare << to mean <<"" is deprecated at script.pl line 10.
Semicolon seems to be missing at script.pl line 19.
Unquoted string "ftp" may clash with future reserved word at script.pl line 20.
Ambiguous use of -i resolved as -&i() at script.pl line 20.
Use of bare << to mean <<"" is deprecated at script.pl line 20.
syntax error at script.pl line 20, near "ftp "
Can't find string terminator "" anywhere before EOF at script.pl line 20.


To call FTP from a Perl script, either call a shell script with your ftp commands or use the Net::FTP module.
0
 
tmccar10Author Commented:
Thanks, as usual, Tintin-

Got plenty to think about.

I'm a learn-as-I go guy with perl. More go then learn, most times. I really didn't (don't) know what's possible and what's not because my knowledge is so spotty.  This'll be a help onseveral levels.

Got myself a hobby for a while.

Thanks again
0
All Courses

From novice to tech pro — start learning today.