initial commit of file from CVS for smeserver-unjunkmgr on Sat Sep 7 21:11:06 AEST 2024

This commit is contained in:
Trevor Batley
2024-09-07 21:11:06 +10:00
parent 14a99ec4d0
commit 320f4a90e3
24 changed files with 2484 additions and 2 deletions

View 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;