Code:
#!/usr/perl
use CGI qw/:standard/;
if($_GET['small_text'])
{
$smalltext=$_GET['small_text']
print " <html>\n
<title>Big Text Display </tilte>\n
<form name=text action=index.cgi method=get>\n
This is the text box :: $smalltext;
<input type=textbox name=name size=20 value=small_txt>\n
<input type=submit value=submit>\n</html>";
}
else
{
print " <html>\n
<title>Big Text Display </tilte>\n
<form name=text action=index.cgi method=get>\n
This is the text box :: STILL NOT ENTERED ANYTHING ;
<input type=textbox name=name size=20>\n
<input type=submit value=submit>\n</html>";
}
I don't think using a big textbox is required for making the text readonly . It would be better if you just print it . That is what I have done
I also don't have a machine right now with me so please excuse me if there are any typos / anything