]>
git.ipfire.org Git - people/teissler/ipfire-2.x.git/blob - html/cgi-bin/dns.cgi
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2007 Michael Tremer & Christian Schmidt #
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. #
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. #
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/>. #
20 ###############################################################################
24 # enable only the following on debugging purpose
26 #use CGI::Carp 'fatalsToBrowser';
28 require '/var/ipfire/general-functions.pl';
29 require "${General::swroot}/lang.pl";
30 require "${General::swroot}/header.pl";
33 my $errormessage = '';
35 &Header
::showhttpheaders
();
37 &General
::readhash
("${General::swroot}/dns/settings", \
%dnssettings);
39 &Header
::getcgihash
(\
%dnssettings);
41 &Header
::openpage
($Lang::tr
{'dns title'}, 1, );
43 &Header
::openbigbox
('100%', 'left', '', $errormessage);
45 if ($dnssettings{'ACTION'} eq $Lang::tr
{'save'}) {
46 if ((&General
::validip
($dnssettings{"DNS0"}) == 1)&&(&General
::validip
($dnssettings{"DNS1"}) == 1)) {
47 if ($errormessage eq "") {
48 &General
::writehash
("${General::swroot}/dns/settings", \
%dnssettings);
49 &Header
::openbox
('100%', 'left', $Lang::tr
{'dns saved'});
50 print "<font class='base'>$Lang::tr{'dns saved txt'}</font>\n";
54 if ((&General
::validip
($dnssettings{"DNS0"}) == 0)&&(&General
::validip
($dnssettings{"DNS1"}) == 1)){
55 $errormessage = $Lang::tr
{'dns error 0'};
57 if ((&General
::validip
($dnssettings{"DNS1"}) == 0)&&(&General
::validip
($dnssettings{"DNS0"}) == 1)){
58 $errormessage = $Lang::tr
{'dns error 1'};
60 if ((&General
::validip
($dnssettings{"DNS1"}) == 0)&&(&General
::validip
($dnssettings{"DNS0"}) == 0)){
61 $errormessage = $Lang::tr
{'dns error 01'};
66 if ($dnssettings{'ACTION'} eq $Lang::tr
{'reconnect'}) {
67 system("/usr/local/bin/redctrl restart >/dev/null 2>&1 &");
68 &Header
::openbox
('100%', 'left', $Lang::tr
{'dns address recon'} );
69 print "<font class='base'>$Lang::tr{'dns address done'}</font>\n";
73 if ($dnssettings{'ACTION'} eq $Lang::tr
{'delete'}) {
74 system("cat /dev/null > ${General::swroot}/dns/settings &");
75 &Header
::openbox
('100%', 'left', $Lang::tr
{'dns address deleted'} );
76 print "<font class='base'>$Lang::tr{'dns address deleted txt'}</font>\n";
80 # DPC move error message to top so it is seen!
82 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
83 print "<font class='base'>$errormessage </font>\n";
87 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
89 &Header
::openbox
('100%', 'left', $Lang::tr
{'dns header'});
92 <table border="0" width='100%'>
94 <td colspan="2"><font class='base'>$Lang::tr{'dns desc'}<br /><img src="/images/dns_link.png" border="0" align="absmiddle"/><a href="http://wiki.ipfire.org/$Lang::tr{'lang'}/configuration/dns_list" target="_blank">$Lang::tr{'dns list'}</a></font></td>
97 <td colspan="2"> </td>
100 <td width="25%"><font class='base'>$Lang::tr{'dns new 0'}</font></td>
103 if ($dnssettings{'ACTION'} eq $Lang::tr
{'delete'}) {
105 <td width="75%"><input type="text" name="DNS0" maxlength="15" value=""/></td>
110 <td width="75%"><input type="text" name="DNS0" maxlength="15" value="$dnssettings{"DNS0"}"/></td>
117 <td><font class='base'>$Lang::tr{'dns new 1'}</font></td>
120 if ($dnssettings{'ACTION'} eq $Lang::tr
{'delete'}) {
122 <td><input type="text" name="DNS1" maxlength="15" value=""/></td>
127 <td><input type="text" name="DNS1" maxlength="15" value="$dnssettings{"DNS1"}"/></td>
134 <td colspan="2"><hr /></td>
137 <td colspan="2"><div align="center">
140 if ($dnssettings{'ACTION'} eq $Lang::tr
{'save'} && $errormessage eq "") {
142 <input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
143
144 <input type='submit' name='ACTION' value='$Lang::tr{'delete'}' />
145
146 <input type='submit' name='ACTION' value='$Lang::tr{'reconnect'}' />
149 } elsif ($dnssettings{'ACTION'} eq $Lang::tr
{'delete'}) {
151 <input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
152
153 <input type='submit' name='ACTION' value='$Lang::tr{'reconnect'}' />
156 } elsif ($dnssettings{'ACTION'} eq $Lang::tr
{'save'}) {
158 <input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
163 <input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
164
165 <input type='submit' name='ACTION' value='$Lang::tr{'delete'}' />
182 &Header
::closebigbox
();
184 &Header
::closepage
();