html/cgi-bin/gui.cgi

   1 #!/usr/bin/perl
   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
  22
  23 use strict;
  24
  25 # enable only the following on debugging purpose
  26 #use warnings;
  27 #use CGI::Carp 'fatalsToBrowser';
  28
  29 require '/var/ipfire/general-functions.pl';
  30 require "${General::swroot}/lang.pl";
  31 require "${General::swroot}/header.pl";
  32
  33 my %cgiparams=();
  34 my %mainsettings=();
  35 my %checked=();
  36 my $errormessage='';
  37
  38
  39 $cgiparams{'SPEED'} = 'off';
  40 $cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
  41 $cgiparams{'REBOOTQUESTION'} = 'off';
  42 $cgiparams{'REFRESHINDEX'} = 'off';
  43 $cgiparams{'ACTION'} = '';
  44 &Header::getcgihash(\%cgiparams);
  45
  46 &Header::showhttpheaders();
  47 &General::readhash("${General::swroot}/main/settings",\%mainsettings);
  48 if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}")
  49 {
  50         open(FILE,"${General::swroot}/langs/list");
  51         my $found=0;
  52         while (<FILE>)
  53         {
  54                 my $lang='';
  55                 my $engname='';
  56                 my $natname='';
  57                 chomp;
  58                 ($lang,$engname,$natname) = split (/:/, $_,3);
  59                 if ($cgiparams{'lang'} eq $lang)
  60                 {
  61                         $found=1;
  62                 }
  63         }
  64         close (FILE);
  65         if ( $found == 0 )
  66         {
  67                 $errormessage="$errormessage<P>$Lang::tr{'invalid input'}";
  68                 goto SAVE_ERROR;
  69         }
  70
  71         # Set flag if index page is to refresh whilst ppp is up.
  72         # Default is NO refresh.
  73         if ($cgiparams{'REFRESHINDEX'} ne 'off') {
  74             system ('/usr/bin/touch', "${General::swroot}/main/refreshindex");
  75         } else {
  76             unlink "${General::swroot}/main/refreshindex";
  77         }
  78
  79         # Beep on ip-up or ip-down. Default is ON.
  80         if ($cgiparams{'PPPUPDOWNBEEP'} ne 'on') {
  81             $cgiparams{'PPPUPDOWNBEEP'} = 'off';
  82             system ('/usr/bin/touch', "${General::swroot}/ppp/nobeeps");
  83         } else {
  84             unlink "${General::swroot}/ppp/nobeeps";
  85         }
  86
  87         # write cgi vars to the file.
  88         $mainsettings{'LANGUAGE'} = $cgiparams{'lang'};
  89         $mainsettings{'WINDOWWITHHOSTNAME'} = $cgiparams{'WINDOWWITHHOSTNAME'};
  90         $mainsettings{'REBOOTQUESTION'} = $cgiparams{'REBOOTQUESTION'};
  91         $mainsettings{'PPPUPDOWNBEEP'} = $cgiparams{'PPPUPDOWNBEEP'};
  92         $mainsettings{'SPEED'} = $cgiparams{'SPEED'};
  93         $mainsettings{'THEME'} = $cgiparams{'theme'};
  94         $mainsettings{'REFRESHINDEX'} = $cgiparams{'REFRESHINDEX'};
  95         &General::writehash("${General::swroot}/main/settings", \%mainsettings);
  96         &Lang::reload($cgiparams{'lang'});
  97         SAVE_ERROR:
  98 } else {
  99         if ($mainsettings{'WINDOWWITHHOSTNAME'}) {
 100                 $cgiparams{'WINDOWWITHHOSTNAME'} = $mainsettings{'WINDOWWITHHOSTNAME'};
 101         } else {
 102                 $cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
 103         }
 104
 105         if ($mainsettings{'REBOOTQUESTION'}) {
 106                 $cgiparams{'REBOOTQUESTION'} = $mainsettings{'REBOOTQUESTION'};
 107         } else {
 108                 $cgiparams{'REBOOTQUESTION'} = 'on';
 109         }
 110
 111         if ($mainsettings{'PPPUPDOWNBEEP'}) {
 112                 $cgiparams{'PPPUPDOWNBEEP'} = $mainsettings{'PPPUPDOWNBEEP'};
 113         } else {
 114                 $cgiparams{'PPPUPDOWNBEEP'} = 'on';
 115         }
 116
 117         if ($mainsettings{'THEME'}) {
 118                 $cgiparams{'THEME'} = $mainsettings{'THEME'};
 119         } else {
 120                 $cgiparams{'THEME'} = 'ipfire';
 121         }
 122
 123         if($mainsettings{'REFRESHINDEX'}) {
 124                 $cgiparams{'REFRESHINDEX'} = $mainsettings{'REFRESHINDEX'};
 125         } else {
 126                 $cgiparams{'REFRESHINDEX'} = 'off';
 127         }
 128         if($mainsettings{'SPEED'}) {
 129                 $cgiparams{'SPEED'} = $mainsettings{'SPEED'};
 130         } else {
 131         # if var is not defined it will be set to on because after installation var
 132         # is not set and the speedmeter should be displayed, it can only be deactivated
 133         # by manually setting the var to off
 134                 $cgiparams{'SPEED'} = 'on';
 135         }
 136 }
 137
 138 # Default settings
 139 if ($cgiparams{'ACTION'} eq "$Lang::tr{'restore defaults'}")
 140 {
 141         $cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
 142         $cgiparams{'REBOOTQUESTION'} = 'on';
 143         $cgiparams{'PPPUPDOWNBEEP'} = 'on';
 144         $cgiparams{'REFRESHINDEX'} = 'off';
 145         $cgiparams{'SPEED'} = 'on';
 146         $cgiparams{'THEME'} = 'ipfire';
 147 }
 148
 149 $checked{'WINDOWWITHHOSTNAME'}{'off'} = '';
 150 $checked{'WINDOWWITHHOSTNAME'}{'on'} = '';
 151 $checked{'WINDOWWITHHOSTNAME'}{$cgiparams{'WINDOWWITHHOSTNAME'}} = "checked='checked'";
 152
 153 $checked{'REBOOTQUESTION'}{'off'} = '';
 154 $checked{'REBOOTQUESTION'}{'on'} = '';
 155 $checked{'REBOOTQUESTION'}{$cgiparams{'REBOOTQUESTION'}} = "checked='checked'";
 156
 157 $checked{'PPPUPDOWNBEEP'}{'off'} = '';
 158 $checked{'PPPUPDOWNBEEP'}{'on'} = '';
 159 $checked{'PPPUPDOWNBEEP'}{$cgiparams{'PPPUPDOWNBEEP'}} = "checked='checked'";
 160
 161 $checked{'REFRESHINDEX'}{'off'} = '';
 162 $checked{'REFRESHINDEX'}{'on'} = '';
 163 $checked{'REFRESHINDEX'}{$cgiparams{'REFRESHINDEX'}} = "checked='checked'";
 164
 165 $checked{'SPEED'}{'off'} = '';
 166 $checked{'SPEED'}{'on'} = '';
 167 $checked{'SPEED'}{$cgiparams{'SPEED'}} = "checked='checked'";
 168
 169 &Header::openpage($Lang::tr{'gui settings'}, 1, '');
 170 &Header::openbigbox('100%', 'left', '', $errormessage);
 171
 172 if ($errormessage) {
 173         &Header::openbox('100%','left',$Lang::tr{'error messages'});
 174         print "<font class='base'>${errormessage}&nbsp;</font>\n";
 175         &Header::closebox();
 176 }
 177
 178 &Header::openbox('100%','left',$Lang::tr{'gui settings'});
 179
 180 print <<END
 181 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 182 <table width='100%'>
 183 <tr>
 184     <td colspan='2'><p><b>$Lang::tr{'display'}</b></td>
 185 </tr>
 186 <tr>
 187     <td><input type='checkbox' name='WINDOWWITHHOSTNAME' $checked{'WINDOWWITHHOSTNAME'}{'on'} /></td>
 188     <td>$Lang::tr{'display hostname in window title'}</td>
 189 </tr>
 190 <tr>
 191     <td><input type='checkbox' name='REBOOTQUESTION' $checked{'REBOOTQUESTION'}{'on'} /></td>
 192     <td>$Lang::tr{'reboot question'}</td>
 193 </tr>
 194 <tr>
 195     <td><input type='checkbox' name='REFRESHINDEX' $checked{'REFRESHINDEX'}{'on'} /></td>
 196     <td>$Lang::tr{'refresh index page while connected'}</td>
 197 </tr>
 198 <tr>
 199     <td><input type='checkbox' name='SPEED' $checked{'SPEED'}{'on'} /></td>
 200     <td>$Lang::tr{'show ajax speedmeter in footer'}</td>
 201 </tr>
 202 <tr>
 203     <td>&nbsp;</td>
 204     <td>$Lang::tr{'languagepurpose'}</td>
 205 </tr>
 206 <tr>
 207     <td>&nbsp;</td>
 208     <td><select name='lang'>
 209 END
 210 ;
 211
 212 my $id=0;
 213 open(FILE,"${General::swroot}/langs/list");
 214 while (<FILE>)
 215 {
 216         my $lang='';
 217         my $engname='';
 218         my $natname='';
 219         $id++;
 220         chomp;
 221         ($lang,$engname,$natname) = split (/:/, $_, 3);
 222         print "<option value='$lang' ";
 223         if ($lang =~ /$mainsettings{'LANGUAGE'}/)
 224         {
 225                 print " selected='selected'";
 226         }
 227         print <<END
 228 >$engname ($natname)</option>
 229 END
 230         ;
 231 }
 232
 233 print <<END
 234 </select></td></tr>
 235 <tr>
 236     <td colspan='2'><hr /><p><b>$Lang::tr{'theme'}</b></td>
 237 </tr>
 238 <tr>
 239     <td>&nbsp;</td>
 240     <td><select name='theme'>
 241 END
 242 ;
 243
 244 my $dir = "/srv/web/ipfire/html/themes";
 245 local *DH;
 246 my ($item, $file);
 247 my @files;
 248
 249 # Foreach directory create am theme entry to be selected by user
 250
 251 opendir (DH, $dir);
 252 while ($file = readdir (DH)) {
 253         next if ( $file =~ /^\./ );
 254         push (@files, $file);
 255 }
 256 closedir (DH);
 257
 258 foreach $item (sort (@files)) {
 259         if ( "$mainsettings{'THEME'}" eq "$item" ) {
 260                 print "<option value='$item' selected='selected'>$item</option>\n";
 261         } else {
 262                 print "<option value='$item'>$item</option>\n";
 263         }
 264 }
 265
 266 print <<END
 267 </select></td></tr>
 268 <tr>
 269     <td colspan='2'><hr /><p><b>$Lang::tr{'sound'}</b></td>
 270 </tr>
 271 <tr>
 272     <td><input type ='checkbox' name='PPPUPDOWNBEEP' $checked{'PPPUPDOWNBEEP'}{'on'} /></td>
 273     <td>$Lang::tr{'beep when ppp connects or disconnects'}</td>
 274 </tr>
 275 <tr>
 276     <td colspan='2'><hr /></td>
 277 </tr>
 278 </table>
 279 <div align='center'>
 280 <table width='80%'>
 281 <tr>
 282     <td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' /></td>
 283     <td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
 284 </tr>
 285 </table>
 286 </div>
 287 </form>
 288 END
 289 ;
 290 &Header::closebox();
 291 &Header::closebigbox();
 292 &Header::closepage();
 293
 294
 295