diff -Nur smeserver-unjunkmgr-2.1-old/createlinks smeserver-unjunkmgr-2.1/createlinks --- smeserver-unjunkmgr-2.1-old/createlinks 2014-04-04 17:20:34.382938898 +0200 +++ smeserver-unjunkmgr-2.1/createlinks 2014-04-04 17:44:32.393710509 +0200 @@ -4,7 +4,12 @@ # Start and stop links -# Panel links +#-------------------------------------------------- +# functions for manager panel +#-------------------------------------------------- +my $panel = "manager"; + +panel_link("unjunkmgr", $panel); # Events links diff -Nur smeserver-unjunkmgr-2.1-old/root/etc/e-smith/web/functions/unjunkmgr smeserver-unjunkmgr-2.1/root/etc/e-smith/web/functions/unjunkmgr --- smeserver-unjunkmgr-2.1-old/root/etc/e-smith/web/functions/unjunkmgr 1970-01-01 01:00:00.000000000 +0100 +++ smeserver-unjunkmgr-2.1/root/etc/e-smith/web/functions/unjunkmgr 2014-04-04 17:37:53.454999896 +0200 @@ -0,0 +1,30 @@ +#!/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;