#!/usr/bin/perl print "content-type:text/html\n\n"; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use warnings; my $step =param(step); print<<html1; <html> <head> <title>Register online</title> </head> <body style="background-color:#BC9FAC;"> <br><br> html1 open(frame,'/home/www/xxxxxxxxxxxxxxxxx.com/frame.txt') or die "error +is: $!"; while(<frame>) { print "$_\n"; } close(frame); print<<html2; <br><br> <center> <div style="margin:0 auto;width:750px;height:420px;"> html2 open(frame_left,'/home/www/xxxxxxxxxxxxxxxxxxxxxx.org/local_frame_left +.txt') or die "error is $!"; while(<frame_left>) { print "$_\n"; } close(frame_left); print<<html3; <div style="width:534px; height:400px;float:right"> <form method="post" action="http://xxxxxxxxxxxxxxx.org +/cgi-bin/local.cgi"> html3 print<<htmlx; Give me details for my Area : <select name="area"> <option value='abc'>abc <option value='def'>def </select> <input type="hidden" name="step" value="2"> <input type="submit" value="Go"> </form> </div> </div> </center> htmlx open(frame_bottom,'/home/www/xxxxxxxxxxxxxx.org/frame_bottom.txt'); while(<frame_bottom>) { print"$_\n"; } close(frame_bottom); print<<htmlx2; </body> htmlx2
In reply to why is the content of frame.txt file not displaying by ketaki
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |