smeserver-unjunkmgr/contribs8/smeserver-unjunkmgr-2.1_add_panel_to_server-manager.patch

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;
1	stephdl	1.1	diff -Nur smeserver-unjunkmgr-2.1-old/createlinks smeserver-unjunkmgr-2.1/createlinks
2			--- smeserver-unjunkmgr-2.1-old/createlinks 2014-04-04 17:20:34.382938898 +0200
3			+++ smeserver-unjunkmgr-2.1/createlinks 2014-04-04 17:44:32.393710509 +0200
4			@@ -4,7 +4,12 @@
5
6			# Start and stop links
7
8			-# Panel links
9			+#--------------------------------------------------
10			+# functions for manager panel
11			+#--------------------------------------------------
12			+my $panel = "manager";
13			+
14			+panel_link("unjunkmgr", $panel);
15
16			# Events links
17
18			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
19			--- smeserver-unjunkmgr-2.1-old/root/etc/e-smith/web/functions/unjunkmgr 1970-01-01 01:00:00.000000000 +0100
20			+++ smeserver-unjunkmgr-2.1/root/etc/e-smith/web/functions/unjunkmgr 2014-04-04 17:37:53.454999896 +0200
21			@@ -0,0 +1,30 @@
22			+#!/usr/bin/perl
23			+#----------------------------------------------------------------------
24			+# heading : Administration
25			+# description : Unjunkmgr
26			+# navigation : 4000 4200
27			+#----------------------------------------------------------------------
28			+
29			+use strict;
30			+use CGI':all';
31			+use CGI::Carp qw(fatalsToBrowser);
32			+
33			+
34			+BEGIN
35			+{
36			+ $ENV {'PATH'} = '/bin:/usr/bin:/sbin';
37			+ $ENV {'SHELL'} = '/bin/bash';
38			+ delete $ENV {'ENV'};
39			+ }
40			+
41			+
42			+ my $q = new CGI;
43			+ my $content="0; url=https://".$ENV {'HTTP_X_FORWARDED_HOST'}."/unjunkmgr";
44			+ $q->default_dtd('-//W3C//DTD XHTML 1.0 Transitional//EN');
45			+
46			+ print $q->header ('text/html');
47			+ print $q->start_html (-head=>meta({-http_equiv=>'refresh', -content=>$content}));
48			+
49			+
50			+
51			+ print $q->end_html;