From 4727e6c09f88e63f02e6c8f359862d0c0942ed36 Mon Sep 17 00:00:00 2001 From: "terry%netscape.com" <> Date: Wed, 16 Sep 1998 04:49:23 +0000 Subject: Everything has been ported to now run under Perl. --- relogin.cgi | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'relogin.cgi') diff --git a/relogin.cgi b/relogin.cgi index 4bc1a394c..5ef523945 100755 --- a/relogin.cgi +++ b/relogin.cgi @@ -1,5 +1,5 @@ -#! /usr/bonsaitools/bin/mysqltcl -# -*- Mode: tcl; indent-tabs-mode: nil -*- +#!/usr/bonsaitools/bin/perl -w +# -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla Public License # Version 1.0 (the "License"); you may not use this file except in @@ -19,13 +19,13 @@ # # Contributor(s): Terry Weissman -source CGI.tcl +use diagnostics; +use strict; +require "CGI.pl"; - - -puts "Set-Cookie: Bugzilla_login= ; path=/; expires=Sun, 30-Jun-80 00:00:00 GMT +print "Set-Cookie: Bugzilla_login= ; path=/; expires=Sun, 30-Jun-80 00:00:00 GMT Set-Cookie: Bugzilla_logincookie= ; path=/; expires=Sun, 30-Jun-80 00:00:00 GMT Set-Cookie: Bugzilla_password= ; path=/; expires=Sun, 30-Jun-80 00:00:00 GMT Content-type: text/html @@ -35,19 +35,19 @@ The cookie that was remembering your login is now gone. The next time you do an action that requires a login, you will be prompted for it.

Back to the query page. -" +"; -exit +exit; # The below was a different way, that prompted you for a login right then. -catch {unset COOKIE(Bugzilla_login)} -catch {unset COOKIE(Bugzilla_password)} -confirm_login +# catch {unset COOKIE(Bugzilla_login)} +# catch {unset COOKIE(Bugzilla_password)} +# confirm_login -puts "Content-type: text/html\n" -puts "

OK, logged in.

" -puts "You are now logged in as $COOKIE(Bugzilla_login)." -puts "

" -puts "Back to the query page." +# puts "Content-type: text/html\n" +# puts "

OK, logged in.

" +# puts "You are now logged in as $COOKIE(Bugzilla_login)." +# puts "

" +# puts "Back to the query page." -- cgit v1.2.3-24-g4f1b