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 #
  10
  11 use strict;
  12
  13 # enable only the following on debugging purpose
  14 use warnings;
  15 use CGI::Carp 'fatalsToBrowser';
  16
  17 require '/var/ipfire/general-functions.pl';
  18 require "${General::swroot}/lang.pl";
  19 require "${General::swroot}/header.pl";
  20 require "/opt/pakfire/lib/functions.pl";
  21
  22 my %pakfiresettings=();
  23 my $errormessage = '';
  24
  25 &Header::showhttpheaders();
  26
  27 $pakfiresettings{'ACTION'} = '';
  28 $pakfiresettings{'VALID'} = '';
  29
  30 $pakfiresettings{'INSPAKS'} = '';
  31 $pakfiresettings{'DELPAKS'} = '';
  32 $pakfiresettings{'AUTOUPDATE'} = 'off';
  33 $pakfiresettings{'UUID'} = 'on';
  34
  35 &Header::getcgihash(\%pakfiresettings);
  36
  37 &Header::openpage($Lang::tr{'pakfire configuration'}, 1);
  38 &Header::openbigbox('100%', 'left', '', $errormessage);
  39
  40 if ($pakfiresettings{'ACTION'} eq 'install'){
  41         $pakfiresettings{'INSPAKS'} =~ s/\|/\ /g;
  42         if ("$pakfiresettings{'FORCE'}" eq "on") {
  43                 my $command = "/usr/local/bin/pakfire install --non-interactive --no-colors $pakfiresettings{'INSPAKS'} &>/dev/null &";
  44                 system("$command");
  45                 sleep(2);
  46         } else {
  47                 &Header::openbox("100%", "center", "Abfrage");
  48         my @output = `/usr/local/bin/pakfire resolvedeps --no-colors $pakfiresettings{'INSPAKS'}`;
  49                 print <<END;
  50                 <table><tr><td colspan='2'>$Lang::tr{'pakfire install package'}.$pakfiresettings{'INSPAKS'}.$Lang::tr{'pakfire possible dependency'}
  51                 <pre>
  52 END
  53                 foreach (@output) {
  54                         print "$_\n";
  55                 }
  56                 print <<END;
  57                 </pre>
  58                 <tr><td colspan='2'>$Lang::tr{'pakfire accept all'}
  59                 <tr><td colspan='2'>&nbsp;
  60                 <tr><td align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
  61                                                         <input type='hidden' name='INSPAKS' value='$pakfiresettings{'INSPAKS'}' />
  62                                                         <input type='hidden' name='FORCE' value='on' />
  63                                                         <input type='hidden' name='ACTION' value='install' />
  64                                                         <input type='image' alt='$Lang::tr{'install'}' src='/images/go-next.png' />
  65                                                 </form>
  66                                 <td align='left'>
  67                                                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
  68                                                         <input type='hidden' name='ACTION' value='' />
  69                                                         <input type='image' alt='$Lang::tr{'abort'}' src='/images/dialog-error.png' />
  70                                                 </form>
  71                 </table>
  72 END
  73                 &Header::closebox();
  74                 &Header::closebigbox();
  75                 &Header::closepage();
  76                 exit;
  77         }
  78 } elsif ($pakfiresettings{'ACTION'} eq 'remove') {
  79
  80         $pakfiresettings{'DELPAKS'} =~ s/\|/\ /g;
  81         if ("$pakfiresettings{'FORCE'}" eq "on") {
  82                 my $command = "/usr/local/bin/pakfire remove --non-interactive --no-colors $pakfiresettings{'DELPAKS'} &>/dev/null &";
  83                 system("$command");
  84                 sleep(2);
  85         } else {
  86                 &Header::openbox("100%", "center", "Abfrage");
  87         my @output = `/usr/local/bin/pakfire resolvedeps --no-colors $pakfiresettings{'DELPAKS'}`;
  88                 print <<END;
  89                 <table><tr><td colspan='2'>$Lang::tr{'pakfire uninstall package'}.$pakfiresettings{'DELPAKS'}.$Lang::tr{'pakfire possible dependency'}
  90                 <pre>
  91 END
  92                 foreach (@output) {
  93                         print "$_\n";
  94                 }
  95                 print <<END;
  96                 </pre>
  97                 <tr><td colspan='2'>$Lang::tr{'pakfire accept all'}
  98                 <tr><td colspan='2'>&nbsp;
  99                 <tr><td align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 100                                                         <input type='hidden' name='DELPAKS' value='$pakfiresettings{'DELPAKS'}' />
 101                                                         <input type='hidden' name='FORCE' value='on' />
 102                                                         <input type='hidden' name='ACTION' value='remove' />
 103                                                         <input type='image' alt='$Lang::tr{'uninstall'}' src='/images/go-next.png' />
 104                                                 </form>
 105                                 <td align='left'>
 106                                                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 107                                                         <input type='hidden' name='ACTION' value='' />
 108                                                         <input type='image' alt='$Lang::tr{'abort'}' src='/images/dialog-error.png' />
 109                                                 </form>
 110                 </table>
 111 END
 112                 &Header::closebox();
 113                 &Header::closebigbox();
 114                 &Header::closepage();
 115                 exit;
 116         }
 117
 118 } elsif ($pakfiresettings{'ACTION'} eq 'update') {
 119
 120         system("/usr/local/bin/pakfire update --force --no-colors");
 121
 122 } elsif ($pakfiresettings{'ACTION'} eq 'upgrade') {
 123
 124         system("/usr/local/bin/pakfire upgrade -y --no-colors");
 125
 126 } elsif ($pakfiresettings{'ACTION'} eq "$Lang::tr{'save'}") {
 127
 128         &General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings);
 129
 130 }
 131
 132 &General::readhash("${General::swroot}/pakfire/settings", \%pakfiresettings);
 133
 134 my %selected=();
 135 my %checked=();
 136
 137 $checked{'AUTOUPDATE'}{'off'} = '';
 138 $checked{'AUTOUPDATE'}{'on'} = '';
 139 $checked{'AUTOUPDATE'}{$pakfiresettings{'AUTOUPDATE'}} = "checked='checked'";
 140 $checked{'UUID'}{'off'} = '';
 141 $checked{'UUID'}{'on'} = '';
 142 $checked{'UUID'}{$pakfiresettings{'UUID'}} = "checked='checked'";
 143
 144 # DPC move error message to top so it is seen!
 145 if ($errormessage) {
 146         &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
 147         print "<font class='base'>$errormessage&nbsp;</font>\n";
 148         &Header::closebox();
 149 }
 150
 151 my $return = `pidof pakfire`;
 152 chomp($return);
 153 if ($return) {
 154         &Header::openbox( 'Waiting', 1, "<meta http-equiv='refresh' content='5;'>" );
 155         print <<END;
 156         <table>
 157                 <tr><td>
 158                                 <img src='/images/indicator.gif' alt='$Lang::tr{'aktiv'}' />&nbsp;
 159                         <td>
 160                                 $Lang::tr{'pakfire working'}
 161                 <tr><td colspan='2' align='center'>
 162                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 163                                 <input type='image' alt='$Lang::tr{'reload'}' src='/images/view-refresh.png' />
 164                         </form>
 165                 <tr><td colspan='2' align='left'><pre>
 166 END
 167         my @output = `tail -20 /var/log/pakfire.log`;
 168         foreach (@output) {
 169                 print "$_";
 170         }
 171         print <<END;
 172                         </pre>
 173                 </table>
 174 END
 175         &Header::closebox();
 176         &Header::closebigbox();
 177         &Header::closepage();
 178         exit;
 179 }
 180
 181 &Header::openbox("100%", "center", "Pakfire");
 182
 183 system("pakfire update &>dev/null");
 184
 185 print <<END;
 186         <table width='100%'>
 187                 <tr><td width='40%' align="center">Verfuegbare Addons:<br />
 188                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 189                                 <select name="INSPAKS" size="10" multiple>
 190 END
 191                         &Pakfire::dblist("notinstalled", "forweb");
 192
 193 print <<END;
 194                                 </select>
 195                 </td>
 196                 <td width='20%' align="center">
 197                                 <input type='hidden' name='ACTION' value='install' />
 198                                 <input type='image' alt='$Lang::tr{'install'}' src='/images/list-add.png' />
 199                         </form><br />
 200
 201                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 202                                 <input type='hidden' name='ACTION' value='update' />
 203                                 <input type='submit' value='Liste aktualisieren' /><br />
 204                         </form>
 205
 206                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 207                                 <input type='hidden' name='ACTION' value='remove' />
 208                                 <input type='image' alt='$Lang::tr{'remove'}' src='/images/list-remove.png' />
 209                 </td>
 210                 <td width='40%' align="center">$Lang::tr{'pakfire installed addons'}<br />
 211                         <select name="DELPAKS" size="10" multiple>
 212 END
 213
 214                         &Pakfire::dblist("installed", "forweb");
 215
 216 print <<END;
 217                 </select>
 218         </table></form>
 219                 <br /><hr /><br />
 220         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 221         <table width='100%'>
 222                 <tr><td colspan='2'>$Lang::tr{'pakfire updates'}
 223                 <tr><td width='20%'>&nbsp;<td width='60%' align='center'>
 224                         <select name="UPDPAKS" size="5" disabled>
 225 END
 226
 227                         &Pakfire::dblist("upgrade", "forweb");
 228
 229 print <<END;
 230                         </select>
 231                 <td width='20%' align='center' valign='middle'><input type='hidden' name='ACTION' value='upgrade' />
 232                         <input type='image' alt='$Lang::tr{'upgrade'}' src='/images/document-save.png' />
 233         </table></form>
 234                 <br /><hr /><br />
 235         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 236                 <table width='100%'>
 237                         <tr><td width='40%' align="right">$Lang::tr{'pakfire update daily'}
 238                                         <td width='10%' align="left"><input type="checkbox" name="AUTOUPDATE" $checked{'AUTOUPDATE'}{'on'} />
 239                                         <td width='40%' align="right">$Lang::tr{'pakfire register'}
 240                                         <td width='10%' align="left"><input type="checkbox" name="UUID" $checked{'UUID'}{'on'} />
 241                         <tr><td width='100%' colspan="4" align="right"><input type="submit" name="ACTION" value="$Lang::tr{'save'}" />
 242                 </table>
 243         </form>
 244 END
 245
 246 &Header::closebox();
 247 &Header::closebigbox();
 248 &Header::closepage();