]>
git.ipfire.org Git - ipfire-2.x.git/blob - html/cgi-bin/gui.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 ###############################################################################
25 # enable only the following on debugging purpose
27 #use CGI::Carp 'fatalsToBrowser';
29 require '/var/ipfire/general-functions.pl';
30 require "${General::swroot}/lang.pl";
31 require "${General::swroot}/header.pl";
39 $cgiparams{'FX'} = 'off';
40 $cgiparams{'SPEED'} = 'off';
41 $cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
42 $cgiparams{'REBOOTQUESTION'} = 'off';
43 $cgiparams{'REFRESHINDEX'} = 'off';
44 $cgiparams{'ACTION'} = '';
45 &Header
::getcgihash
(\
%cgiparams);
47 &Header
::showhttpheaders
();
48 &General
::readhash
("${General::swroot}/main/settings",\
%mainsettings);
49 if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}")
51 open(FILE
,"${General::swroot}/langs/list");
59 ($lang,$engname,$natname) = split (/:/, $_,3);
60 if ($cgiparams{'lang'} eq $lang)
68 $errormessage="$errormessage<P>$Lang::tr{'invalid input'}";
72 # Set flag if index page is to refresh whilst ppp is up.
73 # Default is NO refresh.
74 if ($cgiparams{'REFRESHINDEX'} ne 'off') {
75 system ('/usr/bin/touch', "${General::swroot}/main/refreshindex");
77 unlink "${General::swroot}/main/refreshindex";
80 # Beep on ip-up or ip-down. Default is ON.
81 if ($cgiparams{'PPPUPDOWNBEEP'} ne 'on') {
82 $cgiparams{'PPPUPDOWNBEEP'} = 'off';
83 system ('/usr/bin/touch', "${General::swroot}/ppp/nobeeps");
85 unlink "${General::swroot}/ppp/nobeeps";
88 # write cgi vars to the file.
89 $mainsettings{'LANGUAGE'} = $cgiparams{'lang'};
90 $mainsettings{'WINDOWWITHHOSTNAME'} = $cgiparams{'WINDOWWITHHOSTNAME'};
91 $mainsettings{'REBOOTQUESTION'} = $cgiparams{'REBOOTQUESTION'};
92 $mainsettings{'PPPUPDOWNBEEP'} = $cgiparams{'PPPUPDOWNBEEP'};
93 $mainsettings{'FX'} = $cgiparams{'FX'};
94 $mainsettings{'SPEED'} = $cgiparams{'SPEED'};
95 $mainsettings{'THEME'} = $cgiparams{'theme'};
96 $mainsettings{'REFRESHINDEX'} = $cgiparams{'REFRESHINDEX'};
97 &General
::writehash
("${General::swroot}/main/settings", \
%mainsettings);
98 &Lang
::reload
($cgiparams{'lang'});
101 if ($mainsettings{'WINDOWWITHHOSTNAME'}) {
102 $cgiparams{'WINDOWWITHHOSTNAME'} = $mainsettings{'WINDOWWITHHOSTNAME'};
104 $cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
107 if ($mainsettings{'REBOOTQUESTION'}) {
108 $cgiparams{'REBOOTQUESTION'} = $mainsettings{'REBOOTQUESTION'};
110 $cgiparams{'REBOOTQUESTION'} = 'on';
113 if ($mainsettings{'PPPUPDOWNBEEP'}) {
114 $cgiparams{'PPPUPDOWNBEEP'} = $mainsettings{'PPPUPDOWNBEEP'};
116 $cgiparams{'PPPUPDOWNBEEP'} = 'on';
119 if ($mainsettings{'FX'}) {
120 $cgiparams{'FX'} = $mainsettings{'FX'};
122 $cgiparams{'FX'} = 'on';
125 if ($mainsettings{'THEME'}) {
126 $cgiparams{'THEME'} = $mainsettings{'THEME'};
128 $cgiparams{'THEME'} = 'ipfire';
131 if($mainsettings{'REFRESHINDEX'}) {
132 $cgiparams{'REFRESHINDEX'} = $mainsettings{'REFRESHINDEX'};
134 $cgiparams{'REFRESHINDEX'} = 'off';
136 if($mainsettings{'SPEED'}) {
137 $cgiparams{'SPEED'} = $mainsettings{'SPEED'};
139 # if var is not defined it will be set to on because after installation var
140 # is not set and the speedmeter should be displayed, it can only be deactivated
141 # by manually setting the var to off
142 $cgiparams{'SPEED'} = 'on';
147 if ($cgiparams{'ACTION'} eq "$Lang::tr{'restore defaults'}")
149 $cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
150 $cgiparams{'REBOOTQUESTION'} = 'on';
151 $cgiparams{'PPPUPDOWNBEEP'} = 'on';
152 $cgiparams{'REFRESHINDEX'} = 'off';
153 $cgiparams{'FX'} = 'on';
154 $cgiparams{'SPEED'} = 'on';
155 $cgiparams{'THEME'} = 'ipfire';
158 $checked{'WINDOWWITHHOSTNAME'}{'off'} = '';
159 $checked{'WINDOWWITHHOSTNAME'}{'on'} = '';
160 $checked{'WINDOWWITHHOSTNAME'}{$cgiparams{'WINDOWWITHHOSTNAME'}} = "checked='checked'";
162 $checked{'REBOOTQUESTION'}{'off'} = '';
163 $checked{'REBOOTQUESTION'}{'on'} = '';
164 $checked{'REBOOTQUESTION'}{$cgiparams{'REBOOTQUESTION'}} = "checked='checked'";
166 $checked{'PPPUPDOWNBEEP'}{'off'} = '';
167 $checked{'PPPUPDOWNBEEP'}{'on'} = '';
168 $checked{'PPPUPDOWNBEEP'}{$cgiparams{'PPPUPDOWNBEEP'}} = "checked='checked'";
170 $checked{'REFRESHINDEX'}{'off'} = '';
171 $checked{'REFRESHINDEX'}{'on'} = '';
172 $checked{'REFRESHINDEX'}{$cgiparams{'REFRESHINDEX'}} = "checked='checked'";
174 $checked{'FX'}{'off'} = '';
175 $checked{'FX'}{'on'} = '';
176 $checked{'FX'}{$cgiparams{'FX'}} = "checked='checked'";
178 $checked{'SPEED'}{'off'} = '';
179 $checked{'SPEED'}{'on'} = '';
180 $checked{'SPEED'}{$cgiparams{'SPEED'}} = "checked='checked'";
182 &Header
::openpage
($Lang::tr
{'gui settings'}, 1, '');
183 &Header
::openbigbox
('100%', 'left', '', $errormessage);
186 &Header
::openbox
('100%','left',$Lang::tr
{'error messages'});
187 print "<font class='base'>${errormessage} </font>\n";
191 &Header
::openbox
('100%','left',$Lang::tr
{'gui settings'});
194 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
197 <td colspan='2'><p><b>$Lang::tr{'display'}</b></td>
200 <td><input type='checkbox' name='FX' $checked{'FX'}{'on'} /></td>
201 <td>$Lang::tr{'display webinterface effects'}</td>
204 <td><input type='checkbox' name='WINDOWWITHHOSTNAME' $checked{'WINDOWWITHHOSTNAME'}{'on'} /></td>
205 <td>$Lang::tr{'display hostname in window title'}</td>
208 <td><input type='checkbox' name='REBOOTQUESTION' $checked{'REBOOTQUESTION'}{'on'} /></td>
209 <td>$Lang::tr{'reboot question'}</td>
212 <td><input type='checkbox' name='REFRESHINDEX' $checked{'REFRESHINDEX'}{'on'} /></td>
213 <td>$Lang::tr{'refresh index page while connected'}</td>
216 <td><input type='checkbox' name='SPEED' $checked{'SPEED'}{'on'} /></td>
217 <td>$Lang::tr{'show ajax speedmeter in footer'}</td>
221 <td>$Lang::tr{'languagepurpose'}</td>
225 <td><select name='lang'>
230 open(FILE
,"${General::swroot}/langs/list");
238 ($lang,$engname,$natname) = split (/:/, $_, 3);
239 print "<option value='$lang' ";
240 if ($lang =~ /$mainsettings{'LANGUAGE'}/)
242 print " selected='selected'";
245 >$engname ($natname)</option>
253 <td colspan='2'><hr /><p><b>$Lang::tr{'theme'}</b></td>
257 <td><select name='theme'>
261 my $dir = "/srv/web/ipfire/html/themes";
266 # Foreach directory create am theme entry to be selected by user
269 while ($file = readdir (DH
)) {
270 next if ( $file =~ /^\./ );
271 push (@files, $file);
275 foreach $item (sort (@files)) {
276 if ( "$mainsettings{'THEME'}" eq "$item" ) {
277 print "<option value='$item' selected='selected'>$item</option>\n";
279 print "<option value='$item'>$item</option>\n";
286 <td colspan='2'><hr /><p><b>$Lang::tr{'sound'}</b></td>
289 <td><input type ='checkbox' name='PPPUPDOWNBEEP' $checked{'PPPUPDOWNBEEP'}{'on'} /></td>
290 <td>$Lang::tr{'beep when ppp connects or disconnects'}</td>
293 <td colspan='2'><hr /></td>
299 <td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' /></td>
300 <td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
308 &Header
::closebigbox
();
309 &Header
::closepage
();