html/cgi-bin/pakfire.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 use strict;
  23
  24 # enable only the following on debugging purpose
  25 #use warnings;
  26 #use CGI::Carp 'fatalsToBrowser';
  27
  28 require '/var/ipfire/general-functions.pl';
  29 require "${General::swroot}/lang.pl";
  30 require "${General::swroot}/header.pl";
  31 require "/opt/pakfire/lib/functions.pl";
  32
  33 my %pakfiresettings=();
  34 my $errormessage = '';
  35 my %color = ();
  36 my %mainsettings = ();
  37
  38 &Header::showhttpheaders();
  39
  40 $pakfiresettings{'ACTION'} = '';
  41 $pakfiresettings{'VALID'} = '';
  42
  43 $pakfiresettings{'INSPAKS'} = '';
  44 $pakfiresettings{'DELPAKS'} = '';
  45 $pakfiresettings{'AUTOUPDATE'} = 'off';
  46 $pakfiresettings{'AUTOUPGRADE'} = 'off';
  47 $pakfiresettings{'UUID'} = 'on';
  48
  49 &Header::getcgihash(\%pakfiresettings);
  50 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
  51 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
  52
  53 &Header::openpage($Lang::tr{'pakfire configuration'}, 1);
  54 &Header::openbigbox('100%', 'left', '', $errormessage);
  55
  56 if ($pakfiresettings{'ACTION'} eq 'install'){
  57         $pakfiresettings{'INSPAKS'} =~ s/\|/\ /g;
  58         if ("$pakfiresettings{'FORCE'}" eq "on") {
  59                 my $command = "/usr/local/bin/pakfire install --non-interactive --no-colors $pakfiresettings{'INSPAKS'} &>/dev/null &";
  60                 system("$command");
  61                 sleep(2);
  62         } else {
  63                 &Header::openbox("100%", "center", "Abfrage");
  64         my @output = `/usr/local/bin/pakfire resolvedeps --no-colors $pakfiresettings{'INSPAKS'}`;
  65                 print <<END;
  66                 <table><tr><td colspan='2'>$Lang::tr{'pakfire install package'}.$pakfiresettings{'INSPAKS'}.$Lang::tr{'pakfire possible dependency'}
  67                 <pre>
  68 END
  69                 foreach (@output) {
  70                         print "$_\n";
  71                 }
  72                 print <<END;
  73                 </pre>
  74                 <tr><td colspan='2'>$Lang::tr{'pakfire accept all'}
  75                 <tr><td colspan='2'>&nbsp;
  76                 <tr><td align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
  77                                                         <input type='hidden' name='INSPAKS' value='$pakfiresettings{'INSPAKS'}' />
  78                                                         <input type='hidden' name='FORCE' value='on' />
  79                                                         <input type='hidden' name='ACTION' value='install' />
  80                                                         <input type='image' alt='$Lang::tr{'install'}' src='/images/go-next.png' />
  81                                                 </form>
  82                                 <td align='left'>
  83                                                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
  84                                                         <input type='hidden' name='ACTION' value='' />
  85                                                         <input type='image' alt='$Lang::tr{'abort'}' src='/images/dialog-error.png' />
  86                                                 </form>
  87                 </table>
  88 END
  89                 &Header::closebox();
  90                 &Header::closebigbox();
  91                 &Header::closepage();
  92                 exit;
  93         }
  94 } elsif ($pakfiresettings{'ACTION'} eq 'remove') {
  95
  96         $pakfiresettings{'DELPAKS'} =~ s/\|/\ /g;
  97         if ("$pakfiresettings{'FORCE'}" eq "on") {
  98                 my $command = "/usr/local/bin/pakfire remove --non-interactive --no-colors $pakfiresettings{'DELPAKS'} &>/dev/null &";
  99                 system("$command");
 100                 sleep(2);
 101         } else {
 102                 &Header::openbox("100%", "center", "Abfrage");
 103         my @output = `/usr/local/bin/pakfire resolvedeps --no-colors $pakfiresettings{'DELPAKS'}`;
 104                 print <<END;
 105                 <table><tr><td colspan='2'>$Lang::tr{'pakfire uninstall package'}.$pakfiresettings{'DELPAKS'}.$Lang::tr{'pakfire possible dependency'}
 106                 <pre>
 107 END
 108                 foreach (@output) {
 109                         print "$_\n";
 110                 }
 111                 print <<END;
 112                 </pre>
 113                 <tr><td colspan='2'>$Lang::tr{'pakfire accept all'}
 114                 <tr><td colspan='2'>&nbsp;
 115                 <tr><td align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 116                                                         <input type='hidden' name='DELPAKS' value='$pakfiresettings{'DELPAKS'}' />
 117                                                         <input type='hidden' name='FORCE' value='on' />
 118                                                         <input type='hidden' name='ACTION' value='remove' />
 119                                                         <input type='image' alt='$Lang::tr{'uninstall'}' src='/images/go-next.png' />
 120                                                 </form>
 121                                 <td align='left'>
 122                                                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 123                                                         <input type='hidden' name='ACTION' value='' />
 124                                                         <input type='image' alt='$Lang::tr{'abort'}' src='/images/dialog-error.png' />
 125                                                 </form>
 126                 </table>
 127 END
 128                 &Header::closebox();
 129                 &Header::closebigbox();
 130                 &Header::closepage();
 131                 exit;
 132         }
 133
 134 } elsif ($pakfiresettings{'ACTION'} eq 'update') {
 135
 136         system("/usr/local/bin/pakfire update --force --no-colors &>/dev/null");
 137
 138 } elsif ($pakfiresettings{'ACTION'} eq 'upgrade') {
 139
 140         system("/usr/local/bin/pakfire upgrade -y --no-colors &>/dev/null");
 141
 142 } elsif ($pakfiresettings{'ACTION'} eq "$Lang::tr{'save'}") {
 143
 144         if ($pakfiresettings{'AUTOUPDATE'} == "on") {
 145                 system("/usr/local/bin/pakfire enable updates");
 146         } else {
 147                 system("/usr/local/bin/pakfire disable updates");
 148         }
 149
 150         if ($pakfiresettings{'AUTOUPGRADE'} == "on") {
 151                 system("/usr/local/bin/pakfire enable upgrades");
 152         } else {
 153                 system("/usr/local/bin/pakfire disable upgrades");
 154         }
 155
 156         &General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings);
 157 }
 158
 159 &General::readhash("${General::swroot}/pakfire/settings", \%pakfiresettings);
 160
 161 my %selected=();
 162 my %checked=();
 163
 164 $checked{'AUTOUPDATE'}{'off'} = '';
 165 $checked{'AUTOUPDATE'}{'on'} = '';
 166 $checked{'AUTOUPDATE'}{$pakfiresettings{'AUTOUPDATE'}} = "checked='checked'";
 167 $checked{'AUTOUPGRADE'}{'off'} = '';
 168 $checked{'AUTOUPGRADE'}{'on'} = '';
 169 $checked{'AUTOUPGRADE'}{$pakfiresettings{'AUTOUPGRADE'}} = "checked='checked'";
 170 $checked{'UUID'}{'off'} = '';
 171 $checked{'UUID'}{'on'} = '';
 172 $checked{'UUID'}{$pakfiresettings{'UUID'}} = "checked='checked'";
 173
 174 # DPC move error message to top so it is seen!
 175 if ($errormessage) {
 176         &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
 177         print "<font class='base'>$errormessage&nbsp;</font>\n";
 178         &Header::closebox();
 179 }
 180
 181 my $return = `pidof pakfire`;
 182 chomp($return);
 183 if ($return) {
 184         &Header::openbox( 'Waiting', 1, "<meta http-equiv='refresh' content='10;'>" );
 185         print <<END;
 186         <table>
 187                 <tr><td>
 188                                 <img src='/images/indicator.gif' alt='$Lang::tr{'aktiv'}' />&nbsp;
 189                         <td>
 190                                 $Lang::tr{'pakfire working'}
 191                 <tr><td colspan='2' align='center'>
 192                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 193                                 <input type='image' alt='$Lang::tr{'reload'}' src='/images/view-refresh.png' />
 194                         </form>
 195                 <tr><td colspan='2' align='left'><pre>
 196 END
 197         my @output = `tail -20 /var/log/pakfire.log`;
 198         foreach (@output) {
 199                 print "$_";
 200         }
 201         print <<END;
 202                         </pre>
 203                 </table>
 204 END
 205         &Header::closebox();
 206         &Header::closebigbox();
 207         &Header::closepage();
 208         exit;
 209 }
 210
 211 my $core_release = `cat /opt/pakfire/db/core/mine`;
 212 chomp($core_release);
 213 my $core_update_age = &General::age("/opt/pakfire/db/core/mine");
 214 my $corelist_update_age = &General::age("/opt/pakfire/db/lists/core-list.db");
 215 my $server_update_age = &General::age("/opt/pakfire/db/lists/server-list.db");
 216 my $packages_update_age = &General::age("/opt/pakfire/db/lists/packages_list.db");
 217
 218 &Header::openbox("100%", "center", "Pakfire");
 219
 220 print <<END;
 221         <table width='100%' cellpadding='5' >
 222                 <tr><td width="50%" bgcolor='$color{'color20'}' align="center"><b>(TR) Your system's state:</b>
 223                                 <td width="50%">
 224                 <tr><td align="center">(TR) Core-Update-Level: $core_release<hr />
 225                                         (TR) Last Update made $core_update_age ago<br />
 226                                         (TR) Last server list update made $server_update_age ago<br />
 227                                         (TR) Last core list update made $corelist_update_age ago<br />
 228                                         (TR) Last packages list update made $packages_update_age ago
 229                                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 230                                                 <input type='hidden' name='ACTION' value='update' />
 231                                                 <input type='submit' value='Liste aktualisieren' /><br />
 232                                         </form>
 233                                 <td align="center">
 234                                  <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 235                                         <select name="UPDPAKS" size="5" disabled>
 236 END
 237                                                 &Pakfire::dblist("upgrade", "forweb");
 238         print <<END;
 239                                         </select>
 240                                         <br />
 241                                         <input type='hidden' name='ACTION' value='upgrade' />
 242                                         <input type='image' alt='$Lang::tr{'upgrade'}' src='/images/document-save.png' />
 243                                  </form>
 244
 245                 <tr><td colspan="2"><!-- Just an empty line -->&nbsp;
 246                 <tr><td bgcolor='$color{'color20'}' align="center"><b>$Lang::tr{'pakfire available addons'}</b>
 247                                 <td bgcolor='$color{'color20'}' align="center"><b>$Lang::tr{'pakfire installed addons'}</b>
 248                 <tr><td align="center">
 249                         <p>(TR) Please choose one or more items from the list below and click the 'plus' to install.</p>
 250                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 251                                 <select name="INSPAKS" size="10" multiple>
 252 END
 253                         &Pakfire::dblist("notinstalled", "forweb");
 254
 255 print <<END;
 256                                 </select>
 257                                 <br />
 258                                 <input type='hidden' name='ACTION' value='install' />
 259                                 <input type='image' alt='$Lang::tr{'install'}' src='/images/list-add.png' />
 260                         </form>
 261
 262                 <td align="center">
 263                         <p>(TR) Please choose one or more items from the list below and click the 'minus' to uninstall.</p>
 264                  <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 265                         <select name="DELPAKS" size="10" multiple>
 266 END
 267
 268                         &Pakfire::dblist("installed", "forweb");
 269
 270 print <<END;
 271                         </select>
 272                         <br />
 273                         <input type='hidden' name='ACTION' value='remove' />
 274                         <input type='image' alt='$Lang::tr{'remove'}' src='/images/list-remove.png' />
 275                 </form>
 276         </table>
 277 END
 278
 279 &Header::closebox();
 280 &Header::openbox("100%", "center", "$Lang::tr{'settings'}");
 281
 282 print <<END;
 283         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 284                 <table width='100%'>
 285                         <tr><td colspan='4' bgcolor='$color{'color20'}'><b>$Lang::tr{'basic options'}</b>
 286                         <tr><td width='40%' align="right">$Lang::tr{'pakfire update daily'}
 287                                         <td width='10%' align="left"><input type="checkbox" name="AUTOUPDATE" $checked{'AUTOUPDATE'}{'on'} />
 288                                         <td width='40%' align="right">$Lang::tr{'pakfire register'}
 289                                         <td width='10%' align="left"><input type="checkbox" name="UUID" $checked{'UUID'}{'on'} />
 290                         <tr><td width='40%' align="right">(TR) Apply core updates automatically?
 291                                         <td width='10%' align="left"><input type="checkbox" name="AUTOUPGRADE" $checked{'AUTOUPGRADE'}{'on'} />
 292                                         <td width='50%' colspan="2">&nbsp;
 293                         <tr><td width='100%' colspan="4" align="center"><input type="submit" name="ACTION" value="$Lang::tr{'save'}" />
 294                 </table>
 295         </form>
 296 END
 297
 298 &Header::closebox();
 299 &Header::closebigbox();
 300 &Header::closepage();