From 9a48b40e7af06e864b0309c3d1a105274cb57e43 Mon Sep 17 00:00:00 2001 From: "gerv%gerv.net" <> Date: Sun, 24 Feb 2002 16:54:14 +0000 Subject: Bug 126791 - templatise relogin.cgi --- relogin.cgi | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/relogin.cgi b/relogin.cgi index a0ec4f105..03670158d 100755 --- a/relogin.cgi +++ b/relogin.cgi @@ -19,11 +19,13 @@ # Rights Reserved. # # Contributor(s): Terry Weissman +# Gervase Markham use diagnostics; use strict; use vars %::COOKIE; +use vars qw($template $vars); use lib qw(.); @@ -51,23 +53,24 @@ if ($::userid) { my $cookiepath = Param("cookiepath"); print "Set-Cookie: Bugzilla_login= ; path=$cookiepath; expires=Sun, 30-Jun-80 00:00:00 GMT Set-Cookie: Bugzilla_logincookie= ; path=$cookiepath; expires=Sun, 30-Jun-80 00:00:00 GMT -Content-type: text/html - "; # delete the cookie before dumping the header so that it shows the user # as logged out if %commandmenu% is in the header delete $::COOKIE{"Bugzilla_login"}; -PutHeader ("Relogin"); - -print "Your login has been forgotten.

-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. -

-"; - -PutFooter(); + $vars->{'title'} = "Logged Out"; + $vars->{'message'} = "Your login has been forgotten. + The cookie that was remembering your login is + now gone. You will be prompted for a login the + next time it is required."; + $vars->{'url'} = "query.cgi?GoAheadAndLogIn=1"; + $vars->{'link'} = "Log in again here"; + + print "Content-Type: text/html\n\n"; + $template->process("global/message.html.tmpl", $vars) + || DisplayError("Template process failed: " . $template->error()) + && exit; exit; -- cgit v1.2.3-24-g4f1b