html/cgi-bin/gui.cgi

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