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         if ("$pakfiresettings{'FORCE'}" eq "on") {
  42                 system("/usr/local/bin/pakfire", "install", "--non-interactive", "$pakfiresettings{'INSPAKS'}", "&");
  43                 sleep(1);
  44         } else {
  45                 &Header::openbox("100%", "center", "Abfrage");
  46                 my @output = `/usr/local/bin/pakfire resolvedeps $pakfiresettings{'INSPAKS'}`;
  47                 print <<END;
  48                 <table><tr><td colspan='2'>Sie maechten folgende Pakete installieren: $pakfiresettings{'INSPAKS'}. Moeglicherweise haben diese Pakete Abhaengigkeiten, d.h. andere Pakete muessen zusaetzlich installiert werden. Dazu sehen sie unten eine Liste.
  49                 <pre>
  50 END
  51                 foreach (@output) {
  52                         print "$_\n";
  53                 }
  54                 print <<END;
  55                 </pre>
  56                 <tr><td colspan='2'>Moechten Sie der Installation aller Pakete zustimmen?
  57                 <tr><td colspan='2'>&nbsp;
  58                 <tr><td align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
  59                                                         <input type='hidden' name='INSPAKS' value='$pakfiresettings{'INSPAKS'}' />
  60                                                         <input type='hidden' name='FORCE' value='on' />
  61                                                         <input type='hidden' name='ACTION' value='install' />
  62                                                         <input type='image' alt='$Lang::tr{'install'}' src='/images/go-next.png' />
  63                                                 </form>
  64                                 <td align='left'>
  65                                                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
  66                                                         <input type='hidden' name='ACTION' value='' />
  67                                                         <input type='image' alt='$Lang::tr{'abort'}' src='/images/dialog-error.png' />
  68                                                 </form>
  69                 </table>
  70 END
  71                 &Header::closebox();
  72                 &Header::closebigbox();
  73                 &Header::closepage();
  74                 exit;
  75         }
  76 } elsif ($pakfiresettings{'ACTION'} eq 'remove') {
  77
  78 } elsif ($pakfiresettings{'ACTION'} eq 'update') {
  79
  80         system("/usr/local/bin/pakfire update --force");
  81
  82 } elsif ($pakfiresettings{'ACTION'} eq 'upgrade') {
  83
  84         system("/usr/local/bin/pakfire upgrade -y");
  85
  86 } elsif ($pakfiresettings{'ACTION'} eq "$Lang::tr{'save'}") {
  87
  88         &General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings);
  89
  90 }
  91
  92 &General::readhash("${General::swroot}/pakfire/settings", \%pakfiresettings);
  93
  94 my %selected=();
  95 my %checked=();
  96
  97 $checked{'AUTOUPDATE'}{'off'} = '';
  98 $checked{'AUTOUPDATE'}{'on'} = '';
  99 $checked{'AUTOUPDATE'}{$pakfiresettings{'AUTOUPDATE'}} = "checked='checked'";
 100 $checked{'UUID'}{'off'} = '';
 101 $checked{'UUID'}{'on'} = '';
 102 $checked{'UUID'}{$pakfiresettings{'UUID'}} = "checked='checked'";
 103
 104 # DPC move error message to top so it is seen!
 105 if ($errormessage) {
 106         &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
 107         print "<font class='base'>$errormessage&nbsp;</font>\n";
 108         &Header::closebox();
 109 }
 110
 111 my $return = `pidof pakfire`;
 112 chomp($return);
 113 if ($return) {
 114         &Header::openbox("100%", "center", "Aktiv");
 115         print <<END;
 116         <table>
 117                 <tr><td>
 118                                 <img src='/images/indicator.gif' alt='$Lang::tr{'aktiv'}' />&nbsp;
 119                         <td>
 120                                 Pakfire fuehrt gerade eine Aufgabe aus... Bitte warten sie, bis diese erfolgreich beendet wurde.
 121                 <tr><td colspan='2' align='center'>
 122                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 123                                 <input type='image' alt='$Lang::tr{'reload'}' src='/images/view-refresh.png' />
 124                         </form>
 125                 ### TO BE CONTINUED.... WE HAVE TO BEAUTIFY THIS A LITTLE BIT :D
 126                 <tr><td colspan='2' align='left'><pre>
 127 END
 128 my @output = `tail /var/log/messages | grep pakfire`;
 129 foreach (@output) {
 130         print "$_";
 131 }
 132 print <<END;
 133                 </pre>
 134         </table>
 135 END
 136         ### TO BE CONTINUED.... WE HAVE TO BEAUTIFY THIS A LITTLE BIT :D
 137         &Header::closebox();
 138         &Header::closebigbox();
 139         &Header::closepage();
 140         exit;
 141 }
 142
 143 &Header::openbox("100%", "center", "Pakfire");
 144
 145 system("pakfire update &>dev/null");
 146
 147 print <<END;
 148         <table width='100%'>
 149                 <tr><td width='40%' align="center">Verfuegbare Addons:<br />
 150                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 151                                 <select name="INSPAKS" size="10" multiple>
 152 END
 153                         &Pakfire::dblist("notinstalled", "forweb");
 154
 155 print <<END;
 156                                 </select>
 157                 </td>
 158                 <td width='20%' align="center">
 159                                 <input type='hidden' name='ACTION' value='install' />
 160                                 <input type='image' alt='$Lang::tr{'install'}' src='/images/list-add.png' />
 161                         </form><br />
 162
 163                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 164                                 <input type='hidden' name='ACTION' value='update' />
 165                                 <input type='submit' value='Liste aktualisieren' /><br />
 166                         </form>
 167
 168                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 169                                 <input type='hidden' name='ACTION' value='remove' />
 170                                 <input type='image' alt='$Lang::tr{'remove'}' src='/images/list-remove.png' />
 171                 </td>
 172                 <td width='40%' align="center">Installierte Addons:<br />
 173                         <select name="DELPAKS" size="10" multiple>
 174 END
 175
 176                         &Pakfire::dblist("installed", "forweb");
 177
 178 print <<END;
 179                 </select>
 180         </table></form>
 181                 <br /><hr /><br />
 182         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 183         <table width='100%'>
 184                 <tr><td colspan='2'>Zur Verfuegung stehende Updates:
 185                 <tr><td width='20%'>&nbsp;<td width='60%' align='center'>
 186                         <select name="UPDPAKS" size="5" disabled>
 187 END
 188
 189                         &Pakfire::dblist("upgrade", "forweb");
 190
 191 print <<END;
 192                         </select>
 193                 <td width='20%' align='center' valign='middle'><input type='hidden' name='ACTION' value='upgrade' />
 194                         <input type='image' alt='$Lang::tr{'upgrade'}' src='/images/document-save.png' />
 195         </table></form>
 196                 <br /><hr /><br />
 197         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 198                 <table width='100%'>
 199                         <tr><td width='40%' align="right">Automatische Updates taeglich ausfuehren:
 200                                         <td width='10%' align="left"><input type="checkbox" name="AUTOUPDATE" $checked{'AUTOUPDATE'}{'on'} />
 201                                         <td width='40%' align="right">Registrierung am Master-Server:
 202                                         <td width='10%' align="left"><input type="checkbox" name="UUID" $checked{'UUID'}{'on'} />
 203                         <tr><td width='100%' colspan="4" align="right"><input type="submit" name="ACTION" value="$Lang::tr{'save'}" />
 204                 </table>
 205         </form>
 206 END
 207
 208 &Header::closebox();
 209 &Header::closebigbox();
 210 &Header::closepage();