Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Login script.

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@137291 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
johnkeis
2003-02-03 03:30:11 +00:00
parent 5e9c4430dc
commit 9cfa116d54
2 changed files with 40 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
mozilla/webtools/tinderbox3/scripts/login.pl Executable file
View File

@@ -0,0 +1,20 @@
#!/usr/bin/perl -wT -I.
use strict;
use CGI;
use Tinderbox3::Header;
use Tinderbox3::DB;
use Tinderbox3::Login;
my $p = new CGI;
my $dbh = get_dbh();
my ($login, $cookie) = check_session($p, $dbh);
header($p, $login, $cookie, "Login");
print "<form action='admin.pl'>\n";
print login_fields();
print "<input type=submit></form>\n";
footer($p);
$dbh->disconnect;

20
mozilla/webtools/tinderbox3/server/login.pl Executable file
View File

@@ -0,0 +1,20 @@
#!/usr/bin/perl -wT -I.
use strict;
use CGI;
use Tinderbox3::Header;
use Tinderbox3::DB;
use Tinderbox3::Login;
my $p = new CGI;
my $dbh = get_dbh();
my ($login, $cookie) = check_session($p, $dbh);
header($p, $login, $cookie, "Login");
print "<form action='admin.pl'>\n";
print login_fields();
print "<input type=submit></form>\n";
footer($p);
$dbh->disconnect;