on HTML form, Call Expect in Perl problem

02-05-2010

Registered User

4, 1

Join Date: Feb 2010

Last Activity: 6 February 2010, 11:01 AM EST

Posts: 4

Thanks Given: 0

Thanked 1 Time in 1 Post

on HTML form, Call Expect in Perl problem

Hi

I have a successfullly run perl script (by issuing command "perl sub.pl" under shell mode) and this sub.pl will call sub.exp successfully. The sub.exp expect script is basically to login to a server and run some commands and put the output into a sub.txt file, it takes about 5 seconds to complete the sub.exp and the sub.txt is generated. The sub.pl is basically display the sub.txt on a TEXTAREA on a HTML form.

Now, I am using POST method on a HTML form. I want to press a buttom to call the perl script. I found that if the sub.txt already exists, the sub.pl is able to display content of sub.txt on the TEXTAREA without any problem, but if there is no sub.txt exists, sub.txt will not be generated and will not be displayed on TEXTAREA if I press the buttom which calls the sub.pl.

Can someone help please?

Here is the code of HTML

Code:

...
<FORM METHOD="POST" ACTION="sub.pl"> 
<INPUT TYPE="Submit" VALUE="sub"> 
</FORM>
...

Here is the code of sub.pl

Code:

 
#!/usr/bin/perl
 
system('expect /opt/xampp/htdocs/hsgw/sub.exp');
 
print "Content-type:text/html\n\n";
print "<html>\n";
print "<head><title></title></head>\n";
print "<body>\n";
print "<textarea cols=150 rows=30>\n";
open(INFO, "sub.txt");
@array=<INFO>;
close (INFO);
chomp(@array);
foreach $line (@array){
print "$line\n";
}
print "</textarea>\n";
print "</body>\n";
print "</html>\n";

Here is the code of sub.exp

Code:

#!/opt/corp/unsupported/bin/expect
 
set timeout 5
set sub [lindex $argv 0]
set dfile "sub.txt"
set rhost X.X.X.X
set rlogin admin
set rpass admin
match_max 100000
spawn telnet $rhost
expect "*login:    "
send -- "$rlogin\r"
expect "*password: "
send -- "$rpass\r"
expect  "*XXX-1# "
set file [open $dfile w]
send -- "show sub all\r"
expect {
 "*XXX-1#" {
  set stuff "$expect_out(buffer)"
  puts $file $stuff
  close $file
 }
 timeout {
  set stuff "$expect_out(buffer)"
  puts $file $stuff
  close $file
  exit
 }
}
sleep 10
send -- "exit\r"
expect eof

---------- Post updated at 01:30 PM ---------- Previous update was at 01:24 PM ----------

And I checked access_log, there is an entry recorded after I press the buttom,

Code:

x.x.x.x - - [05/Feb/2010:13:28:42 -0500] "POST /hsgw/sub.pl HTTP/1.1" 200 99

---------- Post updated at 03:55 PM ---------- Previous update was at 01:30 PM ----------

Can anybody let me know is that technically possible to implement the program with only HTML form, perl and expect?

This User Gave Thanks to cxbest For This Post:

cxbest

View Public Profile for cxbest

Find all posts by cxbest

Shell Programming and Scripting

on HTML form, Call Expect in Perl problem

10 More Discussions You Might Find Interesting

1. Programming

Html form to submit data to bash script

Discussion started by: robertkwild

2. Shell Programming and Scripting

pass argument to html upload form

Discussion started by: anil510

3. Shell Programming and Scripting

MySQL bulk retrieval of database through html form

Discussion started by: yifangt

4. Solaris

man pages in html form

Discussion started by: presul

5. Shell Programming and Scripting

Pass variable to php from html form

Discussion started by: mrlayance

6. Shell Programming and Scripting

How to call expect script from Perl

Discussion started by: cxbest

7. Infrastructure Monitoring

diffrence between method call and function call in perl

Discussion started by: Zaxon

8. Shell Programming and Scripting

Converting %## back to special characters from an HTML form

Discussion started by: 98_1LE

9. Shell Programming and Scripting

HTML form to cgi help

Discussion started by: 98_1LE

10. Shell Programming and Scripting

Passing FORM(HTML) variable to ksh

Discussion started by: douknownam