From 9cfa116d54294408e9119e2718273bd9e80f6a18 Mon Sep 17 00:00:00 2001
From: johnkeis <johnkeis@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Mon, 3 Feb 2003 03:30:11 +0000
Subject: [PATCH] Login script.

git-svn-id: svn://10.0.0.236/trunk@137291 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/tinderbox3/scripts/login.pl | 20 ++++++++++++++++++++
 mozilla/webtools/tinderbox3/server/login.pl  | 20 ++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100755 mozilla/webtools/tinderbox3/scripts/login.pl
 create mode 100755 mozilla/webtools/tinderbox3/server/login.pl

diff --git a/mozilla/webtools/tinderbox3/scripts/login.pl b/mozilla/webtools/tinderbox3/scripts/login.pl
new file mode 100755
index 00000000000..d7200465909
--- /dev/null
+++ b/mozilla/webtools/tinderbox3/scripts/login.pl
@@ -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;
diff --git a/mozilla/webtools/tinderbox3/server/login.pl b/mozilla/webtools/tinderbox3/server/login.pl
new file mode 100755
index 00000000000..d7200465909
--- /dev/null
+++ b/mozilla/webtools/tinderbox3/server/login.pl
@@ -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;