]>
Commit | Line | Data |
---|---|---|
3ea75603 MT |
1 | #!/usr/bin/perl |
2 | # | |
78331e30 | 3 | # IPFire CGIs |
3ea75603 | 4 | # |
78331e30 | 5 | # This file is part of the IPFire Project |
3ea75603 MT |
6 | # |
7 | # This code is distributed under the terms of the GPL | |
8 | # | |
3ea75603 MT |
9 | # |
10 | ||
11 | use strict; | |
12 | ||
13 | # enable only the following on debugging purpose | |
1bd42c89 MT |
14 | use warnings; |
15 | use CGI::Carp 'fatalsToBrowser'; | |
3ea75603 | 16 | |
986e08d9 | 17 | require '/var/ipfire/general-functions.pl'; |
3ea75603 MT |
18 | require "${General::swroot}/lang.pl"; |
19 | require "${General::swroot}/header.pl"; | |
1bd42c89 | 20 | require "/opt/pakfire/lib/functions.pl"; |
3ea75603 MT |
21 | |
22 | my %pakfiresettings=(); | |
23 | my $errormessage = ''; | |
24 | ||
25 | &Header::showhttpheaders(); | |
26 | ||
27 | $pakfiresettings{'ACTION'} = ''; | |
28 | $pakfiresettings{'VALID'} = ''; | |
29 | ||
1bd42c89 MT |
30 | $pakfiresettings{'INSPAKS'} = ''; |
31 | $pakfiresettings{'DELPAKS'} = ''; | |
99e6df8e MT |
32 | $pakfiresettings{'AUTOUPDATE'} = 'off'; |
33 | $pakfiresettings{'UUID'} = 'on'; | |
3ea75603 MT |
34 | |
35 | &Header::getcgihash(\%pakfiresettings); | |
36 | ||
1bd42c89 MT |
37 | &Header::openpage($Lang::tr{'pakfire configuration'}, 1); |
38 | &Header::openbigbox('100%', 'left', '', $errormessage); | |
3ea75603 | 39 | |
957363eb | 40 | if ($pakfiresettings{'ACTION'} eq 'install'){ |
908a3eb7 | 41 | $pakfiresettings{'INSPAKS'} =~ s/\|/\ /g; |
5b2a12ff | 42 | if ("$pakfiresettings{'FORCE'}" eq "on") { |
750c1528 | 43 | my $command = "/usr/local/bin/pakfire install --non-interactive --no-colors $pakfiresettings{'INSPAKS'} &>/dev/null &"; |
908a3eb7 MT |
44 | system("$command"); |
45 | sleep(2); | |
5b2a12ff MT |
46 | } else { |
47 | &Header::openbox("100%", "center", "Abfrage"); | |
74693811 | 48 | my @output = `/usr/local/bin/pakfire resolvedeps --no-colors $pakfiresettings{'INSPAKS'}`; |
5b2a12ff | 49 | print <<END; |
bac7231b | 50 | <table><tr><td colspan='2'>$Lang::tr{'pakfire install package'}.$pakfiresettings{'INSPAKS'}.$Lang::tr{'pakfire possible dependency'} |
5b2a12ff MT |
51 | <pre> |
52 | END | |
53 | foreach (@output) { | |
54 | print "$_\n"; | |
55 | } | |
56 | print <<END; | |
57 | </pre> | |
bac7231b | 58 | <tr><td colspan='2'>$Lang::tr{'pakfire accept all'} |
5b2a12ff MT |
59 | <tr><td colspan='2'> |
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 | ||
74693811 CS |
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'> | |
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 | ||
5b2a12ff MT |
118 | } elsif ($pakfiresettings{'ACTION'} eq 'update') { |
119 | ||
750c1528 | 120 | system("/usr/local/bin/pakfire update --force --no-colors"); |
5b2a12ff | 121 | |
186e3d2c | 122 | } elsif ($pakfiresettings{'ACTION'} eq 'upgrade') { |
5b2a12ff | 123 | |
750c1528 | 124 | system("/usr/local/bin/pakfire upgrade -y --no-colors"); |
5b2a12ff MT |
125 | |
126 | } elsif ($pakfiresettings{'ACTION'} eq "$Lang::tr{'save'}") { | |
127 | ||
1bd42c89 | 128 | &General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings); |
4b122800 | 129 | |
3ea75603 MT |
130 | } |
131 | ||
132 | &General::readhash("${General::swroot}/pakfire/settings", \%pakfiresettings); | |
133 | ||
3ea75603 MT |
134 | my %selected=(); |
135 | my %checked=(); | |
136 | ||
1bd42c89 MT |
137 | $checked{'AUTOUPDATE'}{'off'} = ''; |
138 | $checked{'AUTOUPDATE'}{'on'} = ''; | |
139 | $checked{'AUTOUPDATE'}{$pakfiresettings{'AUTOUPDATE'}} = "checked='checked'"; | |
4b122800 MT |
140 | $checked{'UUID'}{'off'} = ''; |
141 | $checked{'UUID'}{'on'} = ''; | |
142 | $checked{'UUID'}{$pakfiresettings{'UUID'}} = "checked='checked'"; | |
3ea75603 MT |
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 </font>\n"; | |
148 | &Header::closebox(); | |
5b2a12ff MT |
149 | } |
150 | ||
186e3d2c MT |
151 | my $return = `pidof pakfire`; |
152 | chomp($return); | |
153 | if ($return) { | |
74693811 | 154 | &Header::openbox( 'Waiting', 1, "<meta http-equiv='refresh' content='5;'>" ); |
5b2a12ff MT |
155 | print <<END; |
156 | <table> | |
157 | <tr><td> | |
186e3d2c | 158 | <img src='/images/indicator.gif' alt='$Lang::tr{'aktiv'}' /> |
5b2a12ff | 159 | <td> |
bac7231b | 160 | $Lang::tr{'pakfire working'} |
5b2a12ff MT |
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> | |
186e3d2c MT |
165 | <tr><td colspan='2' align='left'><pre> |
166 | END | |
750c1528 MT |
167 | my @output = `tail -20 /var/log/pakfire.log`; |
168 | foreach (@output) { | |
169 | print "$_"; | |
170 | } | |
171 | print <<END; | |
172 | </pre> | |
173 | </table> | |
5b2a12ff MT |
174 | END |
175 | &Header::closebox(); | |
176 | &Header::closebigbox(); | |
177 | &Header::closepage(); | |
178 | exit; | |
179 | } | |
3ea75603 | 180 | |
1bd42c89 MT |
181 | &Header::openbox("100%", "center", "Pakfire"); |
182 | ||
186e3d2c MT |
183 | system("pakfire update &>dev/null"); |
184 | ||
1bd42c89 MT |
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'}'> | |
5b2a12ff | 202 | <input type='hidden' name='ACTION' value='update' /> |
1bd42c89 MT |
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> | |
bac7231b | 210 | <td width='40%' align="center">$Lang::tr{'pakfire installed addons'}<br /> |
1bd42c89 | 211 | <select name="DELPAKS" size="10" multiple> |
957363eb | 212 | END |
5b2a12ff MT |
213 | |
214 | &Pakfire::dblist("installed", "forweb"); | |
215 | ||
216 | print <<END; | |
1bd42c89 MT |
217 | </select> |
218 | </table></form> | |
219 | <br /><hr /><br /> | |
4b122800 MT |
220 | <form method='post' action='$ENV{'SCRIPT_NAME'}'> |
221 | <table width='100%'> | |
bac7231b | 222 | <tr><td colspan='2'>$Lang::tr{'pakfire updates'} |
4b122800 MT |
223 | <tr><td width='20%'> <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 /> | |
1bd42c89 MT |
235 | <form method='post' action='$ENV{'SCRIPT_NAME'}'> |
236 | <table width='100%'> | |
bac7231b | 237 | <tr><td width='40%' align="right">$Lang::tr{'pakfire update daily'} |
1bd42c89 | 238 | <td width='10%' align="left"><input type="checkbox" name="AUTOUPDATE" $checked{'AUTOUPDATE'}{'on'} /> |
bac7231b | 239 | <td width='40%' align="right">$Lang::tr{'pakfire register'} |
4b122800 | 240 | <td width='10%' align="left"><input type="checkbox" name="UUID" $checked{'UUID'}{'on'} /> |
908a3eb7 | 241 | <tr><td width='100%' colspan="4" align="right"><input type="submit" name="ACTION" value="$Lang::tr{'save'}" /> |
1bd42c89 MT |
242 | </table> |
243 | </form> | |
244 | END | |
245 | ||
3ea75603 | 246 | &Header::closebox(); |
3ea75603 | 247 | &Header::closebigbox(); |
3ea75603 | 248 | &Header::closepage(); |