initial commit of file from CVS for smeserver-unjunkmgr on Sat Sep 7 21:11:06 AEST 2024
This commit is contained in:
28
root/etc/e-smith/web/functions/unjunkmgr
Normal file
28
root/etc/e-smith/web/functions/unjunkmgr
Normal file
@@ -0,0 +1,28 @@
|
||||
#!/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;
|
||||
|
Reference in New Issue
Block a user