version 1.8, 2009/02/13 17:20:26
|
version 1.9, 2013/06/02 02:20:33
|
Line 55 sub handler {
|
Line 55 sub handler {
|
$origurl); |
$origurl); |
$env{'request.state'} = "published"; |
$env{'request.state'} = "published"; |
$env{'request.filename'} = $origurl; |
$env{'request.filename'} = $origurl; |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$origurl); |
my $newurl = &Apache::lonnet::absolute_url($ENV{'HTTP_HOST'}).$origurl; |
|
$r->header_out(Location => $newurl); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
$msg = 'Invalid passphrase'; |
$msg = 'Invalid passphrase'; |