29 lines
730 B
Perl
29 lines
730 B
Perl
#!/usr/bin/perl
|
|
#----------------------------------------------------------------------
|
|
# heading : Administration
|
|
# description : Unjunkmgr
|
|
# navigation : 4000 4200
|
|
#----------------------------------------------------------------------
|
|
|
|
use strict;
|
|
use CGI ':all';
|
|
use CGI::Carp qw(fatalsToBrowser);
|
|
|
|
BEGIN {
|
|
$ENV{'PATH'} = '/bin:/usr/bin:/sbin';
|
|
$ENV{'SHELL'} = '/bin/bash';
|
|
delete $ENV{'ENV'};
|
|
}
|
|
|
|
my $q = new CGI;
|
|
my $content
|
|
= "0; url=https://" . $ENV{'HTTP_X_FORWARDED_HOST'} . "/unjunkmgr";
|
|
$q->default_dtd('-//W3C//DTD XHTML 1.0 Transitional//EN');
|
|
|
|
print $q->header('text/html');
|
|
print $q->start_html(
|
|
-head => meta( { -http_equiv => 'refresh', -content => $content } ) );
|
|
|
|
print $q->end_html;
|
|
|