Dear All,
I am new to Perl CGI and few querries regarding formating and
dispaying the output message. I have written below script and the problem I
am facing with this script is as below.
1) At the start of the script the (before enterring the user name and
password ), it shows the message "*You have not enterred some field"
,*(this is the print statement I used to check user has enter the data
or
not.).
2) I want the out put to be displayed line by line like username in first
line and passwrd in second line ( we can hide the password with ****)
3) When I run the script it shows the* output along with the login window*.
I don't want to display the login window, only I want to see the output
message.
we can do one thing, if password or user id is wrong, then we can prompt
for login window by saying enterred information is wrong.
Please help to overcome this issue.
**
#!/usr/local/bin/perl -w
use CGI;
my $q = new CGI;
print $q -> header,
$q -> start_html(),
$q -> start_form(),
$q->table
(
$q -> Tr
( [
$q ->td(['Enter User Name :',
$q -> textfield ( -name => 'username',
-size => '50'
) ] ),
#print "Password",
$q ->td( ['Enter Password:',
$q -> password_field( -name => 'pass',
-size => '50',
) ] ),
]),
);
print $q-> submit();
print $q -> end_form();
#print $q -> end_html();
if( $q -> param("username") and $q -> param("pass"))
{
print $q -> param("username");
print $q -> param("pass");
}
else
{
print "You have not enterred some field \n";
}
#print $q -> end_form();
print $q -> end_html();
--
--
Regards,
Mujju
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
