V
vivekian
Hi,
This is a small authentication cgi perl script which makes use of
CGI.pm.
#!/usr/bin/perl
use strict;
use CGI;
my $q = new CGI;
my $username = $q -> param ('username') ;
my $password = $q -> param ('password') ;
if ($username eq "guest")
{
if ($password eq "guest")
{
#Not sure what comes here
}
}
else
{
print $q->header( "text/plain" );
print "Authorization Failed"
}
If the authentication succeeds would like to redirect to another page
in directory say foo.html. How can this be done ? Also is there an
authentication function which allready exists in CGI.pm ?
Thanks in advance,
vivekian.
This is a small authentication cgi perl script which makes use of
CGI.pm.
#!/usr/bin/perl
use strict;
use CGI;
my $q = new CGI;
my $username = $q -> param ('username') ;
my $password = $q -> param ('password') ;
if ($username eq "guest")
{
if ($password eq "guest")
{
#Not sure what comes here
}
}
else
{
print $q->header( "text/plain" );
print "Authorization Failed"
}
If the authentication succeeds would like to redirect to another page
in directory say foo.html. How can this be done ? Also is there an
authentication function which allready exists in CGI.pm ?
Thanks in advance,
vivekian.