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