how to confirm uname and pswd and allow access to next page.

**numberwhun** · Jul 19 '07, 02:14 PM

I haven't played with it as of yet, but when you are doing coding of web sites with Perl, you are delving into the realms of CGI. For an excellent intro tutorial on how CGI can be used, see this one located here at thescripts.com.

That should show you how perl can interact with HTML, but you will definitely either need someone more fluent in CGI or to find a good tutorial on it.

That said though, you may want to post the code that you have tried thus far as others will ask to see it as well. We are all very glad to assist, but you have to show what you have tried already.

Regards,

Jeff

**KevinADC** · Jul 19 '07, 05:07 PM

A far more gentle introduction to CGI programming with perl can be found here:

Sample Chapters: CGI Programming 101

http://www.cgi101.com/book/

Or a more indepth intro to CGI in general and CGI.pm in specifc can be found here (chapter 12):

Beginning Perl (free) - www.perl.org

http://www.perl.org/books/beginning-perl/

Perl.org free online Perl books: Beginning Perl

**gemstone** · Jul 20 '07, 05:35 AM

hi jeff,
this is what i've done so far. pls check if its correct.
thanks.

Code:

#!/usr/bin/perl
# Login CGI
 
use CGI ':standard';
 
use warnings;
use strict;
 
print "Content-type: text/html\n\n";
print "<html>\n";
print "<body>\n";
print "<b><center><font size=7 color="#6699FF" face=arial>DELTAZIA</font></center></b>\n";
print "<br><hr WIDTH="100%" COLOR="#6699FF" SIZE="6">
<br><div style ="border:2px solid #CCCDDD; width:250px; height:220px; background-color:#99DDFF;">\n";
print "<br><b><p align="center">LOGIN</p></b>\n";
 
print "<p align="center">Username <input type=text size=20><br></p>
<p align="center">Password <input type=password name=password size=20><br></p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=submit value=Login>&nbsp;&nbsp;
<input type=reset value=Reset><br></p>
</div>\n";
print "</body>\n";
print "</html>\n";
 
$uname=param('Username');
$pswd=param('Password');
if ($uname eq '') {
print"<h3><b>Kindly enter both username and passwork to proceed forward</b></h3>\n";
sendfile("login1.html");
}
 
open (INF,"c:/minu/unpw.txt") or die "could not open the file: $!";
while (<INF>) {
($un,$pw)=split(/:/);
for ($_[0])
if($uname eq $un) {
if(($uname eq $un) && ($pswd eq $pw)) {
sendfile("page22.html");
} else {
print "<h3><font color="red" face="arial">Invalid username or password</font></h3>\n";
}
} else {
$_++;
} else {
print "<h3><font color="red" face="arial">Username or password does not exist</font></h3>\n";
sendfile("login1.html");
}
}
 
close(INF);

**KevinADC** · Jul 20 '07, 06:10 AM

Its sort of correct. Ignoring all your syntax errors, you would write the routine that checks the name and password like so:

Code:

my $flag = 0;
open (INF,"c:/minu/unpw.txt") or die "could not open the file: $!";
while(<INF>){
   chomp;
   my ($un,$pw)= split(/:/);
   if ($uname eq $un && $pswd eq $pw){
      $flag = 1;
      last;
   }
}
if ($flag) {
   #login success
}
else {
   #login failed
}

**gemstone** · Jul 20 '07, 06:17 AM

hi,
thanks for checking it. i wanna know what does flag do in it. im new tp perl so i wanna know.

**KevinADC** · Jul 20 '07, 06:29 AM

$flag is just used to determine if the login was a success or failure after the "while" loop finishes checking the user input against the file. $flag is initially given a value of 0 (zero) which in perl is considered a false value. During the "while" loop, if the name and password both match, $flag is changed to 1 (one) which is now a true value. "last" ends the "while" loop at the point. The if/else condition that follows checks the value of $flag. We do not need to check the actual value of $flag, we only need to check that it is a true (defined) value:

Code:

if ($flag)

but you can write it like this if you prefer:

Code:

if ($flag == 1)

using "flags" is common practice in programming. They are sometimes called binary flags because they can have only two values:

1 (on/true)
0 (off/false)

that is not the only way you could something like this, but it's fairly common and It is most likely the way I would do it myself.

**gemstone** · Jul 20 '07, 06:32 AM

oh ok. so is this correct now?

Code:

#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
# LOGIN CGI;
# use CGI ':standard';
 
print "Content-type: text/html\n\n";
print "<html>\n";
print "<form action=".../trial1july18.plx" method="post">
print "<body>\n";
print "<b><center><font size=7 color="#6699FF" face=arial>DELTAZIA</font></center></b>\n";
print "<br><hr WIDTH="100%" COLOR="#6699FF" SIZE="6">
<br><div style ="border:2px solid #CCCDDD; width:250px; height:220px; background-color:#99DDFF;">\n";
print "<br><b><p align="center">LOGIN</p></b>\n";
 
print "<p align="center">Username <input type=text size=20><br></p>
<p align="center">Password <input type=password name=password size=20><br></p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=submit value=Login>&nbsp;&nbsp;
<input type=reset value=Reset><br></p></div>\n";
print "</form>";
print "</body>\n";
print "</html>\n";
$uname=param('Username');
$pswd=param('Password');
 
if ($uname eq '') {
print"<h3><b>Kindly enter both username and passwork to proceed forward</b></h3>\n";
sendfile("login1.html");
}
 
my $flag=0;
open (INF,"c:/minu/unpw.txt") or die "could not open the file: $!";
while (<INF>) {
chomp;
my ($un,$pw)=split(/:/);
if($uname eq $un && $pswd eq $pw) {
$flag=1;
last;
}
}
if ($flag) {
sendfile("page22.html");
} else {
print "<h3><font color="red" face="arial">Invalid username or password</font></h3>\n";
sendfile("login1.html");
}
 
close(INF);

**KevinADC** · Jul 20 '07, 06:39 AM

It's getting there but the code overall will not work. You have not declared your variables with "my", and the overall logicl could be better.

I think we would all appreciate if you start using the code tags to post formatted code.

**miller** · Jul 20 '07, 07:58 AM

Please enclose your posted code in [CODE] tags (See How to Ask a Question).

This makes it easier for our Experts to read and understand it. Failing to do so creates extra work for the moderators, thus wasting resources, otherwise available to answer the members' questions.

Please use [CODE] tags in future.

- MODERATOR

**miller** · Jul 20 '07, 07:59 AM

Also, it would do you good to start ensuring that you code at least doesn't contain syntax errors before asking questions. Here is your code with the syntax errors fixed. The logic and overall design still needs to be fixed.

[CODE=perl]
#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
# LOGIN CGI;
# use CGI ':standard';

print <<"END_HTML";
Content-type: text/html

<html>
<form action=".../trial1july18.pl x" method="post">
<body>
<b><center><fon t size=7 color="#6699FF" face=arial>DELT AZIA</font></center></b>
<br><hr WIDTH="100%" COLOR="#6699FF" SIZE="6">
<br><div style ="border:2px solid #CCCDDD; width:250px; height:220px; background-color:#99DDFF;" >
<br><b><p align="center"> LOGIN</p></b>
<p align="center"> Username <input type=text size=20><br></p>
<p align="center"> Password <input type=password name=password size=20><br></p><p> &nbs p;  & nbsp; &nbs p;  & nbsp; 
<input type=submit value=Login>&nb sp; 
<input type=reset value=Reset><br ></p></div>
</form>
</body>
</html>
END_HTML

my $uname = param('Username ');
my $pswd = param('Password ');

if ($uname eq '') {
print qq{<h3><b>Kindl y enter both username and passwork to proceed forward</b></h3>\n};
sendfile("login 1.html");
}

my $flag = 0;
open(INF, "c:/minu/unpw.txt") or die "could not open the file: $!";
while (<INF>) {
chomp;
my ($un, $pw) = split ':';
if ($uname eq $un && $pswd eq $pw) {
$flag=1;
last;
}
}
close(INF);

if ($flag) {
sendfile("page2 2.html");
} else {
print qq{<h3><font color="red" face="arial">In valid username or password</font></h3>\n};
sendfile("login 1.html");
}

close(INF);
[/CODE]

- Miller

**gemstone** · Jul 20 '07, 11:48 AM

you have used close (INF); twiceis that possible?

Originally posted by miller

Also, it would do you good to start ensuring that you code at least doesn't contain syntax errors before asking questions. Here is your code with the syntax errors fixed. The logic and overall design still needs to be fixed.

[CODE=perl]
#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
# LOGIN CGI;
# use CGI ':standard';

print <<"END_HTML";
Content-type: text/html

<html>
<form action=".../trial1july18.pl x" method="post">
<body>
<b><center><fon t size=7 color="#6699FF" face=arial>DELT AZIA</font></center></b>
<br><hr WIDTH="100%" COLOR="#6699FF" SIZE="6">
<br><div style ="border:2px solid #CCCDDD; width:250px; height:220px; background-color:#99DDFF;" >
<br><b><p align="center"> LOGIN</p></b>
<p align="center"> Username <input type=text size=20><br></p>
<p align="center"> Password <input type=password name=password size=20><br></p><p> &nbs p;  & nbsp; &nbs p;  & nbsp; 
<input type=submit value=Login>&nb sp; 
<input type=reset value=Reset><br ></p></div>
</form>
</body>
</html>
END_HTML

my $uname = param('Username ');
my $pswd = param('Password ');

if ($uname eq '') {
print qq{<h3><b>Kindl y enter both username and passwork to proceed forward</b></h3>\n};
sendfile("login 1.html");
}

my $flag = 0;
open(INF, "c:/minu/unpw.txt") or die "could not open the file: $!";
while (<INF>) {
chomp;
my ($un, $pw) = split ':';
if ($uname eq $un && $pswd eq $pw) {
$flag=1;
last;
}
}
close(INF);

if ($flag) {
sendfile("page2 2.html");
} else {
print qq{<h3><font color="red" face="arial">In valid username or password</font></h3>\n};
sendfile("login 1.html");
}

close(INF);
[/CODE]

- Miller

**KevinADC** · Jul 20 '07, 11:53 AM

hehehe.... are you speechless gemstone? ;)

**gemstone** · Jul 21 '07, 05:52 AM

not speechless exactly but im trying to polish what i've done so far. got lots more to do.

Originally posted by KevinADC

hehehe.... are you speechless gemstone? ;)

how to confirm uname and pswd and allow access to next page.

how to confirm uname and pswd and allow access to next page.

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment