html/cgi-bin/pakfire.cgi

   1 #!/usr/bin/perl
   2 #
   3 # IPFire CGIs
   4 #
   5 # This file is part of the IPFire Project
   6 #
   7 # This code is distributed under the terms of the GPL
   8 #
   9 # (c) Eric Oberlander June 2002
  10 #
  11 # (c) Darren Critchley June 2003 - added real time clock setting, etc
  12 #
  13
  14 use strict;
  15
  16 # enable only the following on debugging purpose
  17 #use warnings;
  18 #use CGI::Carp 'fatalsToBrowser';
  19
  20 require '/var/ipfire/general-functions.pl';
  21 require "${General::swroot}/lang.pl";
  22 require "${General::swroot}/header.pl";
  23
  24 my %pakfiresettings=();
  25 my $errormessage = '';
  26
  27 &Header::showhttpheaders();
  28
  29 $pakfiresettings{'ACTION'} = '';
  30 $pakfiresettings{'VALID'} = '';
  31
  32 $pakfiresettings{'INSTALLED'} = '';
  33 $pakfiresettings{'AVAIL'} = '';
  34 $pakfiresettings{'AUTOUPD'} = '';
  35
  36 &Header::getcgihash(\%pakfiresettings);
  37
  38 if ($pakfiresettings{'ACTION'} eq $Lang::tr{'save'})
  39 {
  40
  41 }
  42
  43 &General::readhash("${General::swroot}/pakfire/settings", \%pakfiresettings);
  44
  45
  46 my %selected=();
  47 my %checked=();
  48
  49 $checked{'AUTOUPD'}{'off'} = '';
  50 $checked{'AUTOUPD'}{'on'} = '';
  51 $checked{'AUTOUPD'}{$pakfiresettings{'AUTOUPD'}} = "checked='checked'";
  52
  53 &Header::openpage($Lang::tr{'pakfire configuration'}, 1);
  54
  55 &Header::openbigbox('100%', 'left', '', $errormessage);
  56
  57 # DPC move error message to top so it is seen!
  58 if ($errormessage) {
  59         &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
  60         print "<font class='base'>$errormessage&nbsp;</font>\n";
  61         &Header::closebox();
  62         }
  63
  64 &Header::closebox();
  65
  66 &Header::closebigbox();
  67
  68 &Header::closepage();
  69