#!/usr/bin/perl print "content-type:text/html\n\n"; use CGI; use CGI::Carp qw(fatalsToBrowser); use warnings; %FORM= CGI::Vars; print<<html1; <html> <head> <title>Register online</title> </head> <body style="background-color:#BC9FAC;"> <br><br> html1 open(frame,'/home/www/xxxxxxxxxxxxxxxxxxxx.org/frame.txt') or die "err +or 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/xxxxxxxxxxxxxxxxxxxxxxxx.org/local_frame_le +ft.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=""> 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/xxxxxxxxxxxxxxxxxx.org/frame_bottom.txt') +; while(<frame_bottom>) { print"$_\n"; } close(frame_bottom); print<<htmlx2; </body> htmlx2
In reply to why am i getting script error 500 by ketaki
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |