1 |
brianr |
1.1 |
diff -urN smeserver-manager-0.1.0.old/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/lib/SrvMngr/Controller/Localnetworks.pm smeserver-manager-0.1.0/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/lib/SrvMngr/Controller/Localnetworks.pm |
2 |
|
|
--- smeserver-manager-0.1.0.old/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/lib/SrvMngr/Controller/Localnetworks.pm 2020-03-29 11:09:58.719012315 +0100 |
3 |
|
|
+++ smeserver-manager-0.1.0/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/lib/SrvMngr/Controller/Localnetworks.pm 2020-03-25 12:18:00.000000000 +0000 |
4 |
|
|
@@ -101,6 +101,9 @@ |
5 |
|
|
if ($network_db) { |
6 |
|
|
@localnetworks = $network_db->get_all_by_prop( type => 'network' ); |
7 |
|
|
} |
8 |
|
|
+ # Load up ln_datas with values need by template |
9 |
|
|
+ $ln_datas{subnet} = $rec->prop('Mask'); |
10 |
|
|
+ $ln_datas{router} = $rec->prop('Router'); |
11 |
|
|
$c->stash( ln_datas => \%ln_datas, localnetworks => \@localnetworks ,ret =>\%ret); |
12 |
|
|
} |
13 |
|
|
|
14 |
|
|
@@ -110,6 +113,8 @@ |
15 |
|
|
$c->stash(localnetwork=>$localnetwork); |
16 |
|
|
my $rec = $network_db->get($localnetwork) || die("Failed to get local network in db::$localnetwork"); |
17 |
|
|
my $subnet = $rec->prop('Mask'); |
18 |
|
|
+ $ln_datas{subnet} = $subnet; |
19 |
|
|
+ $ln_datas{router} = $rec->prop('Router'); |
20 |
|
|
my $numhosts = hosts_on_network($localnetwork,$subnet); |
21 |
|
|
$ln_datas{localnetwork} = $localnetwork; |
22 |
|
|
$ln_datas{deletehosts} = $numhosts>0?1:0; |
23 |
|
|
@@ -124,7 +129,7 @@ |
24 |
|
|
$c->stash( localnetworks => \@localnetworks ); |
25 |
|
|
} |
26 |
|
|
|
27 |
|
|
- $ln_datas{'trt'} = $trt; |
28 |
|
|
+ $ln_datas{'trt'} = $trt; |
29 |
|
|
$c->stash( title => $title, modul => $modul, ln_datas => \%ln_datas ); |
30 |
|
|
$c->render( template => 'localnetworks' ); |
31 |
|
|
|
32 |
|
|
diff -urN smeserver-manager-0.1.0.old/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_add.html.ep smeserver-manager-0.1.0/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_add.html.ep |
33 |
|
|
--- smeserver-manager-0.1.0.old/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_add.html.ep 2020-03-29 11:10:00.301025598 +0100 |
34 |
|
|
+++ smeserver-manager-0.1.0/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_add.html.ep 2020-03-26 09:47:00.000000000 +0000 |
35 |
|
|
@@ -4,25 +4,29 @@ |
36 |
|
|
% my %ret; |
37 |
|
|
% unless (length($retref)) {%ret = (ret=>"");} |
38 |
|
|
% else {%ret = %$retref;} |
39 |
|
|
+ |
40 |
|
|
+ % my @vars = split(",",$ret{vars}); |
41 |
|
|
+ % my $var1 = @vars[0]; |
42 |
|
|
+ % my $var2 = @vars[1]; |
43 |
|
|
+ % my $var3 = @vars[2]; |
44 |
|
|
+ % my $var4 = @vars[3]; |
45 |
|
|
+ % my $var5 = @vars[4]; |
46 |
|
|
+ % my $var6 = @vars[5]; |
47 |
|
|
+ |
48 |
|
|
%if ($ret{'ret'} eq "") { |
49 |
|
|
|
50 |
|
|
%} elsif (index($ret{ret},"SUCCESS") != -1) { |
51 |
|
|
<div class='success'> |
52 |
|
|
<h2> Operation Status Report</h2> |
53 |
|
|
- %= $c->l($ret{ret},$ret{vars}); |
54 |
|
|
- </div> |
55 |
|
|
- %} else { |
56 |
|
|
- <div class='error'> |
57 |
|
|
- <h2> Operation Status Report</h2> |
58 |
|
|
- %= $c->l($ret{ret},$ret{vars}); |
59 |
|
|
+ %= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); |
60 |
|
|
</div> |
61 |
|
|
+ %} else { |
62 |
|
|
+ <div class='sme-error'> |
63 |
|
|
+ <h2> Operation Status Report - Error</h2> |
64 |
|
|
+ %= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); |
65 |
|
|
+ </div> |
66 |
|
|
%} |
67 |
|
|
- |
68 |
|
|
- |
69 |
|
|
- |
70 |
|
|
- <br ><br> |
71 |
|
|
- <br ><br> |
72 |
|
|
- |
73 |
|
|
+ <br /> |
74 |
|
|
% my $btn = l('ADD'); |
75 |
|
|
% my $network_db = esmith::NetworksDB->open(); |
76 |
|
|
|
77 |
|
|
diff -urN smeserver-manager-0.1.0.old/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_del.html.ep smeserver-manager-0.1.0/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_del.html.ep |
78 |
|
|
--- smeserver-manager-0.1.0.old/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_del.html.ep 2020-03-29 11:10:00.301025598 +0100 |
79 |
|
|
+++ smeserver-manager-0.1.0/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_del.html.ep 2020-03-25 11:56:00.000000000 +0000 |
80 |
|
|
@@ -1,19 +1,15 @@ |
81 |
|
|
<div id='ln_del'> |
82 |
|
|
|
83 |
|
|
% my $btn = l('REMOVE'); |
84 |
|
|
- % my $localnetwork = $c->param('localnetwork'); |
85 |
|
|
- % my $network_db = esmith::NetworksDB->open(); |
86 |
|
|
- % my $record = $network_db->get($localnetwork); |
87 |
|
|
- % my $subnet = $record->prop('Mask'); |
88 |
|
|
- % my $router = $record->prop('Router'); |
89 |
|
|
- %#my %ln_datas = $c->stash("ln_datas"); |
90 |
|
|
% my $deletehosts = $ln_datas->{deletehosts}; |
91 |
|
|
+ % my $subnet = $ln_datas->{subnet}; |
92 |
|
|
+ % my $router = $ln_datas->{router}; |
93 |
|
|
|
94 |
|
|
% if ($config->{debug} == 1) { |
95 |
|
|
<p> |
96 |
|
|
%= dumper $c->current_route |
97 |
|
|
%= dumper $c->stash("ret") |
98 |
|
|
- %= dumper $c->param("localnetwork"); |
99 |
|
|
+ %= dumper %$ln_datas |
100 |
|
|
%= dumper $deletehosts |
101 |
|
|
</p> |
102 |
|
|
% } |
103 |
|
|
diff -urN smeserver-manager-0.1.0.old/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_list.html.ep smeserver-manager-0.1.0/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_list.html.ep |
104 |
|
|
--- smeserver-manager-0.1.0.old/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_list.html.ep 2020-03-29 11:10:00.301025598 +0100 |
105 |
|
|
+++ smeserver-manager-0.1.0/root/etc/e-smith/web/panels/manager2/cgi-bin/srvmngr/themes/default/templates/partials/_ln_list.html.ep 2020-03-26 09:51:00.000000000 +0000 |
106 |
|
|
@@ -8,32 +8,42 @@ |
107 |
|
|
% unless (length($retref)) {%ret = (ret=>"");} |
108 |
|
|
% else {%ret = %$retref;} |
109 |
|
|
|
110 |
|
|
+ % if ($config->{debug} == 1) { |
111 |
|
|
+ <p> |
112 |
|
|
+ %= dumper "Ret:".$ret{ret}; |
113 |
|
|
+ </p> |
114 |
|
|
+ %} |
115 |
|
|
+ |
116 |
|
|
+ % my @vars = split(",",$ret{vars}); |
117 |
|
|
+ % my $var1 = @vars[0]; |
118 |
|
|
+ % my $var2 = @vars[1]; |
119 |
|
|
+ % my $var3 = @vars[2]; |
120 |
|
|
+ % my $var4 = @vars[3]; |
121 |
|
|
+ % my $var5 = @vars[4]; |
122 |
|
|
+ % my $var6 = @vars[5]; |
123 |
|
|
+ |
124 |
|
|
+ |
125 |
|
|
%if ($ret{ret} eq "") { |
126 |
|
|
%=l "ln_FIRSTPAGE_DESC" |
127 |
|
|
%} elsif (index($ret{ret},"SUCCESS") != -1) { |
128 |
|
|
<div class='success'> |
129 |
|
|
<h2> Operation Status Report</h2> |
130 |
|
|
- % my @vars = split(",",$ret{vars}); |
131 |
|
|
- % my $var1 = @vars[0]; |
132 |
|
|
- % my $var2 = @vars[1]; |
133 |
|
|
- % my $var3 = @vars[2]; |
134 |
|
|
- % my $var4 = @vars[3]; |
135 |
|
|
- % my $var5 = @vars[4]; |
136 |
|
|
- % my $var6 = @vars[5]; |
137 |
|
|
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); |
138 |
|
|
</div> |
139 |
|
|
%} else { |
140 |
|
|
- <div class='error'> |
141 |
|
|
- <h2> Operation Status Report</h2> |
142 |
|
|
- %= $c->l($ret{ret},$ret{vars}) |
143 |
|
|
- </div> |
144 |
|
|
+ <div class='sme-error'> |
145 |
|
|
+ <h2> Operation Status Report - Error</h2> |
146 |
|
|
+ %= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6); |
147 |
|
|
+ </div> |
148 |
|
|
%} |
149 |
|
|
- <br ><br> |
150 |
|
|
+ <br><br> |
151 |
|
|
%= submit_button "$btn", class => 'action' |
152 |
|
|
+ <br> |
153 |
|
|
% my $numlocalnetworks = @$localnetworks; |
154 |
|
|
% if ($numlocalnetworks == 0){ |
155 |
|
|
%=l 'ln_LOCAL_NETWORK_NONE' |
156 |
|
|
% } else { |
157 |
|
|
+ <br> |
158 |
|
|
<table class="sme-border"><tbody> |
159 |
|
|
<tr> |
160 |
|
|
<th class='sme-border'> |