[LON-CAPA-cvs] cvs: modules /raeburn/register Logout.pm
raeburn
lon-capa-cvs@mail.lon-capa.org
Sat, 04 Feb 2006 01:28:48 -0000
raeburn Fri Feb 3 20:28:48 2006 EDT
Modified files:
/modules/raeburn/register Logout.pm
Log:
Changes to make this work with Apache2.
Index: modules/raeburn/register/Logout.pm
diff -u modules/raeburn/register/Logout.pm:1.2 modules/raeburn/register/Logout.pm:1.3
--- modules/raeburn/register/Logout.pm:1.2 Mon Nov 1 14:51:22 2004
+++ modules/raeburn/register/Logout.pm Fri Feb 3 20:28:46 2006
@@ -1,12 +1,16 @@
package Apache::LON::Logout;
use strict;
+use Apache::RequestRec();
+use Apache::Const qw(OK SERVER_ERROR);
+use Apache::LON::processform;
use DBI;
use CGI::Cookie;
-use Apache::Constants qw(OK SERVER_ERROR);
sub handler {
my $r = shift;
- my %input = $r->args;
+ my %input = ();
+ &Apache::LON::processform::getitems($r,\%input);
+
my $newurl = $input{'portal'};
my $auth_type = $r->auth_type;
@@ -59,6 +63,8 @@
);
$r->headers_out->{'Set-cookie'} = $auth_cookie;
my %headers_out = $r->headers_out;
+ $r->content_type('text/html');
+ $r->send_http_header;
&print_html($r,$newurl);
$dbh->disconnect;
return OK;