]>
git.ipfire.org Git - ipfire-2.x.git/blob - html/cgi-bin/gui.cgi
5 # This code is distributed under the terms of the GPL
9 # $Id: gui.cgi,v 1.2.2.17 2005/07/06 09:21:22 franck78 Exp $
14 # enable only the following on debugging purpose
16 #use CGI::Carp 'fatalsToBrowser';
18 require 'CONFIG_ROOT/general-functions.pl';
19 require "${General::swroot}/lang.pl";
20 require "${General::swroot}/header.pl";
28 $cgiparams{'JAVASCRIPT'} = 'off';
29 $cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
30 $cgiparams{'REFRESHINDEX'} = 'off';
31 $cgiparams{'ACTION'} = '';
32 &Header
::getcgihash
(\
%cgiparams);
34 &Header
::showhttpheaders
();
35 &General
::readhash
("${General::swroot}/main/settings",\
%mainsettings);
36 if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}")
38 open(FILE
,"${General::swroot}/langs/list");
46 ($lang,$engname,$natname) = split (/:/, $_,3);
47 if ($cgiparams{'lang'} eq $lang)
55 $errormessage="$errormessage<P>$Lang::tr{'invalid input'}";
59 if ($cgiparams{'JAVASCRIPT'} !~ /^(on|off)$/) {
60 $errormessage = $Lang::tr
{'invalid input'};
64 # Set flag if index page is to refresh whilst ppp is up.
65 # Default is NO refresh.
66 if ($cgiparams{'REFRESHINDEX'} ne 'off') {
67 system ('/bin/touch', "${General::swroot}/main/refreshindex");
69 unlink "${General::swroot}/main/refreshindex";
72 # Beep on ip-up or ip-down. Default is ON.
73 if ($cgiparams{'PPPUPDOWNBEEP'} ne 'on') {
74 $cgiparams{'PPPUPDOWNBEEP'} = 'off';
75 system ('/bin/touch', "${General::swroot}/ppp/nobeeps");
77 unlink "${General::swroot}/ppp/nobeeps";
80 # write cgi vars to the file.
81 $mainsettings{'LANGUAGE'} = $cgiparams{'lang'};
82 $mainsettings{'JAVASCRIPT'} = $cgiparams{'JAVASCRIPT'};
83 $mainsettings{'WINDOWWITHHOSTNAME'} = $cgiparams{'WINDOWWITHHOSTNAME'};
84 $mainsettings{'PPPUPDOWNBEEP'} = $cgiparams{'PPPUPDOWNBEEP'};
85 $mainsettings{'REFRESHINDEX'} = $cgiparams{'REFRESHINDEX'};
86 &General
::writehash
("${General::swroot}/main/settings", \
%mainsettings);
87 &Lang
::reload
($cgiparams{'lang'});
90 if ($mainsettings{'JAVASCRIPT'}) {
91 $cgiparams{'JAVASCRIPT'} = $mainsettings{'JAVASCRIPT'};
93 $cgiparams{'JAVASCRIPT'} = 'on';
96 if ($mainsettings{'WINDOWWITHHOSTNAME'}) {
97 $cgiparams{'WINDOWWITHHOSTNAME'} = $mainsettings{'WINDOWWITHHOSTNAME'};
99 $cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
102 if ($mainsettings{'PPPUPDOWNBEEP'}) {
103 $cgiparams{'PPPUPDOWNBEEP'} = $mainsettings{'PPPUPDOWNBEEP'};
105 $cgiparams{'PPPUPDOWNBEEP'} = 'on';
108 if($mainsettings{'REFRESHINDEX'}) {
109 $cgiparams{'REFRESHINDEX'} = $mainsettings{'REFRESHINDEX'};
111 $cgiparams{'REFRESHINDEX'} = 'off';
116 if ($cgiparams{'ACTION'} eq "$Lang::tr{'restore defaults'}")
118 $cgiparams{'JAVASCRIPT'} = 'on';
119 $cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
120 $cgiparams{'PPPUPDOWNBEEP'} = 'on';
121 $cgiparams{'REFRESHINDEX'} = 'off';
124 $checked{'JAVASCRIPT'}{'off'} = '';
125 $checked{'JAVASCRIPT'}{'on'} = '';
126 $checked{'JAVASCRIPT'}{$cgiparams{'JAVASCRIPT'}} = "checked='checked'";
128 $checked{'WINDOWWITHHOSTNAME'}{'off'} = '';
129 $checked{'WINDOWWITHHOSTNAME'}{'on'} = '';
130 $checked{'WINDOWWITHHOSTNAME'}{$cgiparams{'WINDOWWITHHOSTNAME'}} = "checked='checked'";
132 $checked{'PPPUPDOWNBEEP'}{'off'} = '';
133 $checked{'PPPUPDOWNBEEP'}{'on'} = '';
134 $checked{'PPPUPDOWNBEEP'}{$cgiparams{'PPPUPDOWNBEEP'}} = "checked='checked'";
136 $checked{'REFRESHINDEX'}{'off'} = '';
137 $checked{'REFRESHINDEX'}{'on'} = '';
138 $checked{'REFRESHINDEX'}{$cgiparams{'REFRESHINDEX'}} = "checked='checked'";
140 &Header
::openpage
($Lang::tr
{'gui settings'}, 1, '');
141 &Header
::openbigbox
('100%', 'left', '', $errormessage);
144 &Header
::openbox
('100%','left',$Lang::tr
{'error messages'});
145 print "<font class='base'>${errormessage} </font>\n";
149 &Header
::openbox
('100%','left',$Lang::tr
{'gui settings'});
152 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
155 <td colspan='2'><p><b>$Lang::tr{'display'}</b></td>
158 <td><input type='checkbox' name='JAVASCRIPT' $checked{'JAVASCRIPT'}{'on'} />
159 <td width='100%'>$Lang::tr{'enable javascript'}</td>
162 <td><input type='checkbox' name='WINDOWWITHHOSTNAME' $checked{'WINDOWWITHHOSTNAME'}{'on'} /></td>
163 <td>$Lang::tr{'display hostname in window title'}</td>
166 <td><input type='checkbox' name='REFRESHINDEX' $checked{'REFRESHINDEX'}{'on'} /></td>
167 <td>$Lang::tr{'refresh index page while connected'}</td>
171 <td>$Lang::tr{'languagepurpose'}</td>
175 <td><select name='lang'>
180 open(FILE
,"${General::swroot}/langs/list");
188 ($lang,$engname,$natname) = split (/:/, $_, 3);
189 print "<option value='$lang' ";
190 if ($lang =~ /$mainsettings{'LANGUAGE'}/)
192 print " selected='selected'";
195 >$engname ($natname)</option>
203 <td colspan='2'><hr /><p><b>$Lang::tr{'sound'}</b></td>
206 <td><input type ='checkbox' name='PPPUPDOWNBEEP' $checked{'PPPUPDOWNBEEP'}{'on'} /></td>
207 <td>$Lang::tr{'beep when ppp connects or disconnects'}</td>
210 <td colspan='2'><hr /></td>
216 <td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' /></td>
217 <td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
225 &Header
::closebigbox
();
226 &Header
::closepage
();