]> git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blame - html/cgi-bin/networks.cgi
projects / people / pmueller / ipfire-2.x.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Corrected credits
[people/pmueller/ipfire-2.x.git] / html / cgi-bin / networks.cgi
CommitLineData
ac1cfefa 1#!/usr/bin/perl
70df8302
MT		 2###############################################################################
3# #
4# IPFire.org - A linux based firewall #
5# Copyright (C) 2007 Michael Tremer & Christian Schmidt #
6# #
7# This program is free software: you can redistribute it and/or modify #
8# it under the terms of the GNU General Public License as published by #
9# the Free Software Foundation, either version 3 of the License, or #
10# (at your option) any later version. #
11# #
12# This program is distributed in the hope that it will be useful, #
13# but WITHOUT ANY WARRANTY; without even the implied warranty of #
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
15# GNU General Public License for more details. #
16# #
17# You should have received a copy of the GNU General Public License #
18# along with this program. If not, see <http://www.gnu.org/licenses/>. #
19# #
20###############################################################################
21
ac1cfefa
MT		 22
23use strict;
24
f2fdd0c1 25require '/var/ipfire/general-functions.pl';
ac1cfefa
MT		 26require "${General::swroot}/lang.pl";
27require "${General::swroot}/header.pl";
28
29my %netsettings=();
30&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
31
32my @networks=();
33my $filename = "${General::swroot}/firewall/customnetworks";
34&setup_default_networks();
35
36&Header::getcgihash(\%cgiparams);
37
38if ($cgiparams{'ACTION'} eq $Lang::tr{'add'}){
39
40 &validateparams();
41 unless($errormessage){
42 $key++; # Add one to last sequence number
43 open(FILE,">>$filename") or die 'Unable to open custom networks file.';
44 flock FILE, 2;
45 print FILE "$key,$cgiparams{'NAME'},$cgiparams{'IPADDRESS'},$cgiparams{'NETMASK'}\n";
46 close(FILE);
47 &General::log("$Lang::tr{'network added'}: $cgiparams{'NAME'}");
48 undef %cgiparams;
49 }
50}
51
52if ($cgiparams{'ACTION'} eq $Lang::tr{'update'})
53{
54 &validateparams();
55 # Darren Critchley - If there is an error don't waste any more processing time
56 if ($errormessage) { $cgiparams{'ACTION'} = $Lang::tr{'edit'}; goto UPD_ERROR; }
57
58 unless($errormessage){
59 open(FILE, $filename) or die 'Unable to open custom networks file.';
60 my @current = <FILE>;
61 close(FILE);
62 open(FILE, ">$filename") or die 'Unable to open config file.';
63 flock FILE, 2;
64 foreach my $line (@current) {
65 chomp($line);
66 my @temp = split(/\,/,$line);
67 if ($cgiparams{'KEY'} eq $temp[0]) {
68 print FILE "$cgiparams{'KEY'},$cgiparams{'NAME'},$cgiparams{'IPADDRESS'},$cgiparams{'NETMASK'}\n";
69 } else {
70 print FILE "$line\n";
71 }
72 }
73 close(FILE);
74 &General::log("$Lang::tr{'network updated'}: $cgiparams{'NAME'}");
75 undef %cgiparams;
76 }
77UPD_ERROR:
78}
79
80if ($cgiparams{'ACTION'} eq $Lang::tr{'edit'})
81{
82 open(FILE, "$filename") or die 'Unable to open custom networks file.';
83 my @current = <FILE>;
84 close(FILE);
85
86 unless ($errormessage)
87 {
88 foreach my $line (@current)
89 {
90 chomp($line);
91 my @temp = split(/\,/,$line);
92 if ($cgiparams{'KEY'} eq $temp[0]) {
93 $cgiparams{'NAME'} = $temp[1];
94 $cgiparams{'IPADDRESS'} = $temp[2];
95 $cgiparams{'NETMASK'} = $temp[3];
96 }
97
98 }
99 }
100}
101
102if ($cgiparams{'ACTION'} eq $Lang::tr{'remove'})
103{
104 open(FILE, $filename) or die 'Unable to open custom networks file.';
105 my @current = <FILE>;
106 close(FILE);
107
108 open(FILE, ">$filename") or die 'Unable to open custom networks file.';
109 flock FILE, 2;
110 foreach my $line (@current)
111 {
112 chomp($line);
113 if ($line ne '') {
114 my @temp = split(/\,/,$line);
115 if ($cgiparams{'KEY'} eq $temp[0]) {
116 &General::log("$Lang::tr{'network removed'}: $temp[1]");
117 } else {
118 print FILE "$temp[0],$temp[1],$temp[2],$temp[3]\n";
119 }
120 }
121 }
122 close(FILE);
123 undef %cgiparams;
124}
125
126if ($cgiparams{'ACTION'} eq $Lang::tr{'reset'})
127{
128 undef %cgiparams;
129}
130
131if ($cgiparams{'ACTION'} eq '')
132{
133 $cgiparams{'KEY'} = '';
134 $cgiparams{'IPADDRESS'} = '';
135 $cgiparams{'NETMASK'} = '';
136 $cgiparams{'NAME'} = '';
137}
138
139&Header::showhttpheaders();
140
141&Header::openpage($Lang::tr{'networks settings'}, 1, '');
142
143&Header::openbigbox('100%', 'LEFT', '', $errormessage);
144
145# DEBUG DEBUG
146#&Header::openbox('100%', 'LEFT', 'DEBUG');
147#foreach $line (keys %cgiparams) {
148# print "<CLASS NAME='base'>$line = $cgiparams{$line}<BR>";
149#}
150#print "$ENV{'QUERY_STRING'}\n";
151#print "&nbsp;</CLASS>\n";
152#&Header::closebox();
153
154if ($errormessage) {
155 &Header::openbox('100%', 'LEFT', $Lang::tr{'error messages'});
156 print "<CLASS NAME='base'><FONT COLOR='${Header::colourred}'>$errormessage\n</FONT>";
157 print "&nbsp;</CLASS>\n";
158 &Header::closebox();
159}
160
161if ($cgiparams{'ACTION'} eq $Lang::tr{'edit'}){
162 &Header::openbox('100%', 'LEFT', "$Lang::tr{'edit network'}:");
163} else {
164 &Header::openbox('100%', 'LEFT', "$Lang::tr{'add network'}:");
165}
166print <<END
167<FORM METHOD='POST'>
168<DIV ALIGN='CENTER'>
169<TABLE WIDTH='100%'>
170<TR align="center">
171 <TD><strong>$Lang::tr{'name'}</strong></TD>
172 <TD><strong>$Lang::tr{'ip address'}</strong></TD>
173 <TD><strong>$Lang::tr{'netmask'}</strong></TD>
174 <TD>&nbsp;</TD>
175 <TD>&nbsp;</TD>
176 <TD>&nbsp;</TD>
177</TR>
178<TR align="center">
179 <TD>
180 <INPUT TYPE='TEXT' NAME='NAME' VALUE='$cgiparams{'NAME'}' SIZE='20' MAXLENGTH='20'>
181 </TD>
182 <TD>
183 <INPUT TYPE='TEXT' NAME='IPADDRESS' VALUE='$cgiparams{'IPADDRESS'}' SIZE='15' MAXLENGTH='15'>
184 </TD>
185 <TD>
186 <INPUT TYPE='TEXT' NAME='NETMASK' VALUE='$cgiparams{'NETMASK'}' SIZE='15' MAXLENGTH='15'>
187 </TD>
188END
189;
190if ($cgiparams{'ACTION'} eq $Lang::tr{'edit'}){
191# Darren Critchley - put in next release - author has authorized GPL inclusion
192# print "<TD ALIGN='CENTER'><a href='ipcalc.cgi' target='_blank'>IP Calculator</a></TD>\n";
193 print "<TD ALIGN='CENTER'><INPUT TYPE='SUBMIT' NAME='ACTION' VALUE='$Lang::tr{'update'}'></TD>\n";
194 print "<INPUT TYPE='HIDDEN' NAME='KEY' VALUE='$cgiparams{'KEY'}'>\n";
195 print "<TD ALIGN='CENTER'><INPUT TYPE='SUBMIT' NAME='ACTION' VALUE='$Lang::tr{'reset'}'></TD>\n";
196} else {
197# Darren Critchley - put in next release - author has authorized GPL inclusion
198# print "<TD ALIGN='CENTER'><a href='ipcalc.cgi' target='_blank'>IP Calculator</a></TD>\n";
199 print "<TD ALIGN='CENTER'><INPUT TYPE='SUBMIT' NAME='ACTION' VALUE='$Lang::tr{'add'}'></TD>\n";
200 print "<TD ALIGN='CENTER'><INPUT TYPE='SUBMIT' NAME='ACTION' VALUE='$Lang::tr{'reset'}'></TD>\n";
201}
202print <<END
203</TR>
204</TABLE>
205</DIV>
206</FORM>
207END
208;
209&Header::closebox();
210
211&Header::openbox('100%', 'LEFT', "$Lang::tr{'custom networks'}:");
212print <<END
213<DIV ALIGN='CENTER'>
214<TABLE WIDTH='100%' ALIGN='CENTER'>
215<TR align="center">
216 <TD><strong>$Lang::tr{'name'}</strong></TD>
217 <TD><strong>$Lang::tr{'ip address'}</strong></TD>
218 <TD><strong>$Lang::tr{'netmask'}</strong></TD>
219</TR>
220END
221;
222&display_custom_networks();
223print <<END
224</TABLE>
225</DIV>
226END
227;
228&Header::closebox();
229
230&Header::openbox('100%', 'LEFT', "$Lang::tr{'default networks'}:");
231print <<END
232<DIV ALIGN='CENTER'>
233<TABLE WIDTH='100%' ALIGN='CENTER'>
234<TR align="center">
235 <TD><strong>$Lang::tr{'name'}</strong></TD>
236 <TD><strong>$Lang::tr{'ip address'}</strong></TD>
237 <TD><strong>$Lang::tr{'netmask'}</strong></TD>
238</TR>
239END
240;
241&display_default_networks();
242print <<END
243</TABLE>
244</DIV>
245END
246;
247&Header::closebox();
248
249 print "$Lang::tr{'this feature has been sponsored by'} : ";
250 print "<A HREF='http://www.kdi.ca/' TARGET='_blank'>Kobelt Development Inc.</A>.\n";
251
252&Header::closebigbox();
253
254&Header::closepage();
255
256sub display_custom_networks
257{
258 open(FILE, "$filename") or die 'Unable to open networks file.';
259 my @current = <FILE>;
260 close(FILE);
261
262 my $id = 0;
263 foreach $line (@current)
264 {
265 chomp($line);
266 if ($line ne ''){
267 my @temp = split(/\,/,$line);
268 # Darren Critchley highlight the row we are editing
269 if ( $cgiparams{'ACTION'} eq $Lang::tr{'edit'} && $cgiparams{'KEY'} eq $temp[0] ) {
270 print "<TR BGCOLOR='${Header::colouryellow}'>\n";
271 } else {
272 if ($id % 2) {
273 print "<TR BGCOLOR='${Header::table1colour}'>\n";
274 } else {
275 print "<TR BGCOLOR='${Header::table2colour}'>\n";
276 }
277 }
278 print "<TD>$temp[1]</TD>\n";
279 print "<TD ALIGN='CENTER'>$temp[2]</TD>\n";
280 print "<TD ALIGN='CENTER'>$temp[3]</TD>\n";
281 print <<END
282<FORM METHOD='POST' NAME='frm$temp[0]'>
283<TD ALIGN='CENTER'>
284 <INPUT TYPE='hidden' NAME='ACTION' VALUE='$Lang::tr{'edit'}'>
285 <INPUT TYPE='image' NAME='$Lang::tr{'edit'}' src='/images/edit.gif' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' width='20' height='20' border='0'>
286 <INPUT TYPE='hidden' NAME='KEY' VALUE='$temp[0]'>
287</TD>
288</FORM>
289<FORM METHOD='POST' NAME='frm$temp[0]b'>
290<TD ALIGN='CENTER'>
291 <INPUT TYPE='hidden' NAME='ACTION' VALUE='$Lang::tr{'remove'}'>
292 <INPUT TYPE='image' NAME='$Lang::tr{'remove'}' src='/images/delete.gif' alt='$Lang::tr{'remove'}' title='$Lang::tr{'remove'}' width='20' height='20' border='0'>
293 <INPUT TYPE='hidden' NAME='KEY' VALUE='$temp[0]'>
294</TD>
295</FORM>
296END
297;
298 print "</TR>\n";
299 $id++;
300 }
301 }
302}
303
304sub display_default_networks
305{
306 foreach $line (sort @networks)
307 {
308 my @temp = split(/\,/,$line);
309 if ($id % 2) {
310 print "<TR BGCOLOR='${Header::table1colour}'>\n";
311 } else {
312 print "<TR BGCOLOR='${Header::table2colour}'>\n";
313 }
314 print "<TD>$temp[0]</TD>\n";
315 print "<TD ALIGN='CENTER'>$temp[1]</TD>\n";
316 print "<TD ALIGN='CENTER'>$temp[2]</TD>\n";
317 print "</TR>\n";
318 $id++;
319 }
320}
321
322sub setup_default_networks
323{
324 # Get current defined networks (Red, Green, Blue, Orange)
325 my $line = "Any,0.0.0.0,0.0.0.0";
326 push (@networks, $line);
327 $line = "localhost,127.0.0.1,255.255.255.255";
328 push (@networks, $line);
329 $line = "localnet,127.0.0.0,255.0.0.0";
330 push (@networks, $line);
331 $line = "Private Network 10.0.0.0,10.0.0.0,255.0.0.0";
332 push (@networks, $line);
333 $line = "Private Network 172.16.0.0,172.16.0.0,255.240.0.0";
334 push (@networks, $line);
335 $line = "Private Network 192.168.0.0,192.168.0.0,255.255.0.0";
336 push (@networks, $line);
337
338 my $red_address=`cat ${General::swroot}/red/local-ipaddress`;
339 $line = "Red Address,$red_address,";
340 push (@networks, $line);
341
342 $line = "Green Address,$netsettings{'GREEN_ADDRESS'},255.255.255.255";
343 push (@networks, $line);
344 $line = "Green Network,$netsettings{'GREEN_NETADDRESS'},$netsettings{'GREEN_NETMASK'}";
345 push (@networks, $line);
346
347 if ($netsettings{'ORANGE_DEV'}ne ''){
348 $line = "Orange Address,$netsettings{'ORANGE_ADDRESS'},255.255.255.255";
349 push (@networks, $line);
350 $line = "Orange Network,$netsettings{'ORANGE_NETADDRESS'},$netsettings{'ORANGE_NETMASK'}";
351 push (@networks, $line);
352 }
353
354 if ($netsettings{'BLUE_DEV'}ne ''){
355 $line = "Blue Address,$netsettings{'BLUE_ADDRESS'},255.255.255.255";
356 push (@networks, $line);
357 $line = "Blue Network,$netsettings{'BLUE_NETADDRESS'},$netsettings{'BLUE_NETMASK'}";
358 push (@networks, $line);
359 }
360 open(FILE, "${General::swroot}/ethernet/aliases") or die 'Unable to open aliases file.';
361 my @current = <FILE>;
362 close(FILE);
363 my $ctr = 0;
364 foreach my $lne (@current)
365 {
366 if ($lne ne ''){
367 chomp($lne);
368 my @temp = split(/\,/,$lne);
369 if ($temp[2] eq '') {
370 $temp[2] = "Alias $ctr : $temp[0]";
371 }
372 $line = "$temp[2],$temp[0],";
373 push (@networks, $line);
374 $ctr++;
375 }
376 }
377}
378
379# Validate Field Entries
380sub validateparams
381{
382 if ($cgiparams{'NAME'} eq '') {
383 $errormessage = $Lang::tr{'nonetworkname'};
384 return;
385 }
386 $cgiparams{'NAME'}=&Header::cleanhtml($cgiparams{'NAME'});
387 unless(&General::validip($cgiparams{'IPADDRESS'})){$errormessage = $Lang::tr{'invalid ip'}; }
388 unless($errormessage){
389 my @tmp = split(/\./,$cgiparams{'IPADDRESS'});
390 if ($cgiparams{'NETMASK'} eq '' && $tmp[3] ne '255' && $tmp[3] ne '0'){
391 $cgiparams{'NETMASK'} = "255.255.255.255";
392 }
393 }
394 unless(&General::validmask($cgiparams{'NETMASK'})){$errormessage = $Lang::tr{'subnet is invalid'}; }
395
396 open(FILE, $filename) or die 'Unable to open custom network file.';
397 my @current = <FILE>;
398 close(FILE);
399 foreach my $line (@current)
400 {
401 chomp($line);
402 if ($line ne '') {
403 my @temp = split(/\,/,$line);
404 if ($cgiparams{'NAME'} eq $temp[1] && $cgiparams{'KEY'} ne $temp[0]) {
405 $errormessage=$Lang::tr{'duplicate name'};
406 return;
407 }
408 $key=$temp[0];
409 }
410 }
411 foreach $line (@networks)
412 {
413 my @temp = split(/\,/,$line);
414 if ($cgiparams{'NAME'} eq $temp[0]) {
415 $errormessage=$Lang::tr{'duplicate name'};
416 return;
417 }
418 }
419}
Peter's tree of IPFire 2.x