]>
Commit | Line | Data |
---|---|---|
3ea75603 | 1 | #!/usr/bin/perl |
70df8302 MT |
2 | ############################################################################### |
3 | # # | |
4 | # IPFire.org - A linux based firewall # | |
324bb888 | 5 | # Copyright (C) 2007-2011 Michael Tremer & Christian Schmidt # |
70df8302 MT |
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 | ############################################################################### | |
3ea75603 MT |
21 | |
22 | use strict; | |
23 | ||
24 | # enable only the following on debugging purpose | |
cb5e9c6c CS |
25 | #use warnings; |
26 | #use CGI::Carp 'fatalsToBrowser'; | |
3ea75603 | 27 | |
986e08d9 | 28 | require '/var/ipfire/general-functions.pl'; |
3ea75603 MT |
29 | require "${General::swroot}/lang.pl"; |
30 | require "${General::swroot}/header.pl"; | |
1bd42c89 | 31 | require "/opt/pakfire/lib/functions.pl"; |
3ea75603 | 32 | |
131f163c | 33 | my %cgiparams=(); |
3ea75603 | 34 | my $errormessage = ''; |
cb5e9c6c | 35 | my %color = (); |
131f163c | 36 | my %pakfiresettings = (); |
cb5e9c6c | 37 | my %mainsettings = (); |
3ea75603 MT |
38 | |
39 | &Header::showhttpheaders(); | |
40 | ||
131f163c MT |
41 | $cgiparams{'ACTION'} = ''; |
42 | $cgiparams{'VALID'} = ''; | |
3ea75603 | 43 | |
131f163c MT |
44 | $cgiparams{'INSPAKS'} = ''; |
45 | $cgiparams{'DELPAKS'} = ''; | |
3ea75603 | 46 | |
7f7f546e SS |
47 | my $page_lock; |
48 | ||
5595bc03 CS |
49 | sub refreshpage{&Header::openbox( 'Waiting', 1, "<meta http-equiv='refresh' content='1;'>" );print "<center><img src='/images/clock.gif' alt='' /><br/><font color='red'>$Lang::tr{'pagerefresh'}</font></center>";&Header::closebox();} |
50 | ||
131f163c | 51 | &Header::getcgihash(\%cgiparams); |
d40aff35 | 52 | |
cb5e9c6c | 53 | &General::readhash("${General::swroot}/main/settings", \%mainsettings); |
8186b372 | 54 | &General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color); |
3ea75603 | 55 | |
1bd42c89 MT |
56 | &Header::openpage($Lang::tr{'pakfire configuration'}, 1); |
57 | &Header::openbigbox('100%', 'left', '', $errormessage); | |
3ea75603 | 58 | |
d702bce2 | 59 | if (($cgiparams{'ACTION'} eq 'install') && (! -e $Pakfire::lockfile)) { |
75ee0279 | 60 | my @pkgs = split(/\|/, $cgiparams{'INSPAKS'}); |
131f163c | 61 | if ("$cgiparams{'FORCE'}" eq "on") { |
7f7f546e SS |
62 | # Lock the page. |
63 | $page_lock = "1"; | |
75ee0279 | 64 | &General::system_background("/usr/local/bin/pakfire", "install", "--non-interactive", "--no-colors", @pkgs); |
5b2a12ff | 65 | } else { |
40228ef4 | 66 | &Header::openbox("100%", "center", $Lang::tr{'request'}); |
75ee0279 | 67 | my @output = &General::system_output("/usr/local/bin/pakfire", "resolvedeps", "--no-colors", @pkgs); |
5b2a12ff | 68 | print <<END; |
124926ee | 69 | <table><tr><td colspan='2'>$Lang::tr{'pakfire install package'} @pkgs $Lang::tr{'pakfire possible dependency'} |
fee5c6b7 | 70 | <pre> |
5b2a12ff MT |
71 | END |
72 | foreach (@output) { | |
fee5c6b7 | 73 | $_ =~ s/\\e\[[0-1]\;[0-9]+m//g; |
5b2a12ff MT |
74 | print "$_\n"; |
75 | } | |
76 | print <<END; | |
77 | </pre> | |
bac7231b | 78 | <tr><td colspan='2'>$Lang::tr{'pakfire accept all'} |
5b2a12ff MT |
79 | <tr><td colspan='2'> |
80 | <tr><td align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}'> | |
131f163c | 81 | <input type='hidden' name='INSPAKS' value='$cgiparams{'INSPAKS'}' /> |
5b2a12ff MT |
82 | <input type='hidden' name='FORCE' value='on' /> |
83 | <input type='hidden' name='ACTION' value='install' /> | |
f8aa0679 | 84 | <input type='image' alt='$Lang::tr{'install'}' title='$Lang::tr{'install'}' src='/images/go-next.png' /> |
5b2a12ff MT |
85 | </form> |
86 | <td align='left'> | |
87 | <form method='post' action='$ENV{'SCRIPT_NAME'}'> | |
88 | <input type='hidden' name='ACTION' value='' /> | |
f8aa0679 | 89 | <input type='image' alt='$Lang::tr{'abort'}' title='$Lang::tr{'abort'}' src='/images/dialog-error.png' /> |
5b2a12ff MT |
90 | </form> |
91 | </table> | |
92 | END | |
93 | &Header::closebox(); | |
94 | &Header::closebigbox(); | |
95 | &Header::closepage(); | |
96 | exit; | |
97 | } | |
d702bce2 | 98 | } elsif (($cgiparams{'ACTION'} eq 'remove') && (! -e $Pakfire::lockfile)) { |
75ee0279 | 99 | my @pkgs = split(/\|/, $cgiparams{'DELPAKS'}); |
131f163c | 100 | if ("$cgiparams{'FORCE'}" eq "on") { |
7f7f546e SS |
101 | # Lock the page. |
102 | $page_lock = "1"; | |
75ee0279 | 103 | &General::system_background("/usr/local/bin/pakfire", "remove", "--non-interactive", "--no-colors", @pkgs); |
74693811 | 104 | } else { |
40228ef4 | 105 | &Header::openbox("100%", "center", $Lang::tr{'request'}); |
75ee0279 | 106 | my @output = &General::system_output("/usr/local/bin/pakfire", "resolvedeps", "--no-colors", @pkgs); |
74693811 | 107 | print <<END; |
124926ee | 108 | <table><tr><td colspan='2'>$Lang::tr{'pakfire uninstall package'} @pkgs $Lang::tr{'pakfire possible dependency'} |
fee5c6b7 | 109 | <pre> |
74693811 CS |
110 | END |
111 | foreach (@output) { | |
fee5c6b7 | 112 | $_ =~ s/\\e\[[0-1]\;[0-9]+m//g; |
74693811 CS |
113 | print "$_\n"; |
114 | } | |
115 | print <<END; | |
116 | </pre> | |
c8915626 | 117 | <tr><td colspan='2'>$Lang::tr{'pakfire uninstall all'} |
74693811 CS |
118 | <tr><td colspan='2'> |
119 | <tr><td align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}'> | |
131f163c | 120 | <input type='hidden' name='DELPAKS' value='$cgiparams{'DELPAKS'}' /> |
74693811 CS |
121 | <input type='hidden' name='FORCE' value='on' /> |
122 | <input type='hidden' name='ACTION' value='remove' /> | |
f8aa0679 | 123 | <input type='image' alt='$Lang::tr{'uninstall'}' title='$Lang::tr{'uninstall'}' src='/images/go-next.png' /> |
74693811 CS |
124 | </form> |
125 | <td align='left'> | |
126 | <form method='post' action='$ENV{'SCRIPT_NAME'}'> | |
127 | <input type='hidden' name='ACTION' value='' /> | |
f8aa0679 | 128 | <input type='image' alt='$Lang::tr{'abort'}' title='$Lang::tr{'abort'}' src='/images/dialog-error.png' /> |
74693811 CS |
129 | </form> |
130 | </table> | |
131 | END | |
132 | &Header::closebox(); | |
133 | &Header::closebigbox(); | |
134 | &Header::closepage(); | |
135 | exit; | |
136 | } | |
137 | ||
d702bce2 | 138 | } elsif (($cgiparams{'ACTION'} eq 'update') && (! -e $Pakfire::lockfile)) { |
7f7f546e SS |
139 | # Set variable to lock the page. |
140 | $page_lock = "1"; | |
bce85943 | 141 | &General::system_background("/usr/local/bin/pakfire", "update", "--force", "--no-colors"); |
d702bce2 | 142 | } elsif (($cgiparams{'ACTION'} eq 'upgrade') && (!-e $Pakfire::lockfile)) { |
7f7f546e SS |
143 | # Lock the page. |
144 | $page_lock = "1"; | |
bce85943 | 145 | &General::system_background("/usr/local/bin/pakfire", "upgrade", "-y", "--no-colors"); |
131f163c | 146 | } elsif ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}") { |
f61be862 MT |
147 | $pakfiresettings{"TREE"} = $cgiparams{"TREE"}; |
148 | ||
149 | # Check for valid input | |
150 | if ($pakfiresettings{"TREE"} !~ m/^(stable|testing|unstable)$/) { | |
151 | $errormessage .= $Lang::tr{'pakfire invalid tree'}; | |
152 | } | |
153 | ||
154 | unless ($errormessage) { | |
155 | &General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings); | |
156 | ||
157 | # Update lists | |
bce85943 | 158 | &General::system_background("/usr/local/bin/pakfire", "update", "--force", "--no-colors"); |
f61be862 | 159 | } |
3ea75603 MT |
160 | } |
161 | ||
162 | &General::readhash("${General::swroot}/pakfire/settings", \%pakfiresettings); | |
163 | ||
3ea75603 MT |
164 | my %selected=(); |
165 | my %checked=(); | |
166 | ||
f61be862 MT |
167 | $selected{"TREE"} = (); |
168 | $selected{"TREE"}{"stable"} = ""; | |
169 | $selected{"TREE"}{"testing"} = ""; | |
170 | $selected{"TREE"}{"unstable"} = ""; | |
171 | $selected{"TREE"}{$pakfiresettings{"TREE"}} = "selected"; | |
172 | ||
3ea75603 MT |
173 | # DPC move error message to top so it is seen! |
174 | if ($errormessage) { | |
175 | &Header::openbox('100%', 'left', $Lang::tr{'error messages'}); | |
176 | print "<font class='base'>$errormessage </font>\n"; | |
177 | &Header::closebox(); | |
5b2a12ff MT |
178 | } |
179 | ||
7f7f546e SS |
180 | # Check if a page lock is required. |
181 | if ($page_lock) { | |
182 | &Header::openbox('Waiting', 1, ,); | |
183 | print <<END; | |
184 | <table> | |
185 | <tr> | |
186 | <td> | |
187 | <img src='/images/indicator.gif' alt='$Lang::tr{'active'}' title='$Lang::tr{'active'}'> | |
188 | </td> | |
189 | ||
190 | <td> | |
191 | $Lang::tr{'pakfire working'} | |
192 | </td> | |
193 | </tr> | |
194 | </table> | |
195 | END | |
196 | &Header::closebox(); | |
197 | ||
198 | # Infinite loop to lock the page until pakfire lockfile is present. | |
199 | while($page_lock) { | |
200 | unless (-e $Pakfire::lockfile) { | |
201 | sleep(1); | |
202 | } else { | |
203 | # Release page lock. | |
204 | undef($page_lock); | |
205 | ||
206 | # Break loop. | |
207 | last; | |
208 | } | |
209 | } | |
210 | ||
211 | # Perform page reload. | |
212 | print "<meta http-equiv='refresh' content='1;'>\n"; | |
213 | exit; | |
214 | } | |
215 | ||
216 | # Check if pakfire is already running. In this case a lockfile is present. | |
d702bce2 | 217 | if (-e $Pakfire::lockfile) { |
ca4c317c | 218 | &Header::openbox( 'Waiting', 1, "<meta http-equiv='refresh' content='10;'>" ); |
5b2a12ff MT |
219 | print <<END; |
220 | <table> | |
221 | <tr><td> | |
6666b93d | 222 | <img src='/images/indicator.gif' alt='$Lang::tr{'active'}' title='$Lang::tr{'active'}' /> |
5b2a12ff | 223 | <td> |
bac7231b | 224 | $Lang::tr{'pakfire working'} |
5b2a12ff MT |
225 | <tr><td colspan='2' align='center'> |
226 | <form method='post' action='$ENV{'SCRIPT_NAME'}'> | |
f8aa0679 | 227 | <input type='image' alt='$Lang::tr{'reload'}' title='$Lang::tr{'reload'}' src='/images/view-refresh.png' /> |
5b2a12ff | 228 | </form> |
212fd689 | 229 | <tr><td colspan='2' align='left'><code> |
186e3d2c | 230 | END |
28593a79 | 231 | my @output = `grep pakfire /var/log/messages | tail -20`; |
750c1528 | 232 | foreach (@output) { |
212fd689 | 233 | print "$_<br>"; |
750c1528 MT |
234 | } |
235 | print <<END; | |
212fd689 | 236 | </code> |
750c1528 | 237 | </table> |
5b2a12ff MT |
238 | END |
239 | &Header::closebox(); | |
240 | &Header::closebigbox(); | |
241 | &Header::closepage(); | |
242 | exit; | |
28593a79 | 243 | refreshpage(); |
5b2a12ff | 244 | } |
3ea75603 | 245 | |
91a08eac | 246 | my $core_release = `cat /opt/pakfire/db/core/mine 2>/dev/null`; |
377560fb MT |
247 | chomp($core_release); |
248 | my $core_update_age = &General::age("/opt/pakfire/db/core/mine"); | |
249 | my $corelist_update_age = &General::age("/opt/pakfire/db/lists/core-list.db"); | |
250 | my $server_update_age = &General::age("/opt/pakfire/db/lists/server-list.db"); | |
251 | my $packages_update_age = &General::age("/opt/pakfire/db/lists/packages_list.db"); | |
252 | ||
1bd42c89 MT |
253 | &Header::openbox("100%", "center", "Pakfire"); |
254 | ||
255 | print <<END; | |
6666b93d | 256 | <table width='95%' cellpadding='5'> |
337305ef | 257 | END |
324bb888 | 258 | if ( -e "/var/run/need_reboot") { |
337305ef JPT |
259 | print "<tr><td align='center' colspan='2'><font color='red'>$Lang::tr{'needreboot'}!</font></td></tr>"; |
260 | print "<tr><td colspan='2'> </font></td></tr>" | |
261 | } | |
262 | print <<END; | |
c5d106c1 | 263 | <tr><td width="50%" bgcolor='$color{'color20'}' align="center"><b>$Lang::tr{'pakfire system state'}:</b> |
6666b93d MF |
264 | |
265 | <td width="50%" bgcolor='$color{'color20'}' align="center"><b>$Lang::tr{'available updates'}:</b></tr> | |
266 | ||
c5d106c1 | 267 | <tr><td align="center">$Lang::tr{'pakfire core update level'}: $core_release<hr /> |
1e908471 JPT |
268 | $Lang::tr{'pakfire last update'} $core_update_age $Lang::tr{'pakfire ago'}<br /> |
269 | $Lang::tr{'pakfire last serverlist update'} $server_update_age $Lang::tr{'pakfire ago'}<br /> | |
270 | $Lang::tr{'pakfire last core list update'} $corelist_update_age $Lang::tr{'pakfire ago'}<br /> | |
271 | $Lang::tr{'pakfire last package update'} $packages_update_age $Lang::tr{'pakfire ago'} | |
377560fb | 272 | <form method='post' action='$ENV{'SCRIPT_NAME'}'> |
6666b93d | 273 | <input type='hidden' name='ACTION' value='update' /><br /> |
1dd22be2 | 274 | <input type='submit' value='$Lang::tr{'calamaris refresh list'}' /><br /> |
377560fb | 275 | </form> |
6666b93d | 276 | <br /> |
377560fb | 277 | <td align="center"> |
6666b93d | 278 | <form method='post' action='$ENV{'SCRIPT_NAME'}'> |
377560fb MT |
279 | <select name="UPDPAKS" size="5" disabled> |
280 | END | |
281 | &Pakfire::dblist("upgrade", "forweb"); | |
282 | print <<END; | |
283 | </select> | |
284 | <br /> | |
285 | <input type='hidden' name='ACTION' value='upgrade' /> | |
f8aa0679 | 286 | <input type='image' alt='$Lang::tr{'upgrade'}' title='$Lang::tr{'upgrade'}' src='/images/document-save.png' /> |
377560fb | 287 | </form> |
fee5c6b7 | 288 | |
377560fb MT |
289 | <tr><td colspan="2"><!-- Just an empty line --> |
290 | <tr><td bgcolor='$color{'color20'}' align="center"><b>$Lang::tr{'pakfire available addons'}</b> | |
291 | <td bgcolor='$color{'color20'}' align="center"><b>$Lang::tr{'pakfire installed addons'}</b> | |
6666b93d | 292 | <tr><td style="padding:5px 10px 20px 20px" align="center"> |
5d22ef4e | 293 | <p>$Lang::tr{'pakfire install description'}</p> |
fee5c6b7 | 294 | <form method='post' action='$ENV{'SCRIPT_NAME'}'> |
1bd42c89 MT |
295 | <select name="INSPAKS" size="10" multiple> |
296 | END | |
297 | &Pakfire::dblist("notinstalled", "forweb"); | |
fee5c6b7 | 298 | |
1bd42c89 MT |
299 | print <<END; |
300 | </select> | |
377560fb | 301 | <br /> |
1bd42c89 | 302 | <input type='hidden' name='ACTION' value='install' /> |
f8aa0679 | 303 | <input type='image' alt='$Lang::tr{'install'}' title='$Lang::tr{'install'}' src='/images/list-add.png' /> |
1bd42c89 | 304 | </form> |
377560fb | 305 | |
6666b93d | 306 | <td style="padding:5px 10px 20px 20px" align="center"> |
5d22ef4e | 307 | <p>$Lang::tr{'pakfire uninstall description'}</p> |
377560fb | 308 | <form method='post' action='$ENV{'SCRIPT_NAME'}'> |
1bd42c89 | 309 | <select name="DELPAKS" size="10" multiple> |
957363eb | 310 | END |
5b2a12ff MT |
311 | |
312 | &Pakfire::dblist("installed", "forweb"); | |
313 | ||
314 | print <<END; | |
377560fb MT |
315 | </select> |
316 | <br /> | |
317 | <input type='hidden' name='ACTION' value='remove' /> | |
f8aa0679 | 318 | <input type='image' alt='$Lang::tr{'remove'}' title='$Lang::tr{'remove'}' src='/images/list-remove.png' /> |
377560fb MT |
319 | </form> |
320 | </table> | |
4b122800 MT |
321 | END |
322 | ||
f61be862 MT |
323 | &Header::closebox(); |
324 | &Header::openbox("100%", "center", "$Lang::tr{'settings'}"); | |
325 | ||
326 | print <<END; | |
327 | <form method='POST' action='$ENV{'SCRIPT_NAME'}'> | |
328 | <table width='95%'> | |
329 | <tr> | |
330 | <td align='left' width='45%'>$Lang::tr{'pakfire tree'}</td> | |
331 | <td width="55%" align="left"> | |
332 | <select name="TREE"> | |
333 | <option value="stable" $selected{"TREE"}{"stable"}>$Lang::tr{'pakfire tree stable'}</option> | |
334 | <option value="testing" $selected{"TREE"}{"testing"}>$Lang::tr{'pakfire tree testing'}</option> | |
335 | <option value="unstable" $selected{"TREE"}{"unstable"}>$Lang::tr{'pakfire tree unstable'}</option> | |
336 | </select> | |
337 | </td> | |
338 | </tr> | |
339 | <tr> | |
340 | <td colspan="2"> </td> | |
341 | </tr> | |
342 | <tr> | |
343 | <td colspan="2" align="center"> | |
344 | <input type="submit" name="ACTION" value="$Lang::tr{'save'}" /> | |
345 | </td> | |
346 | </tr> | |
347 | </table> | |
348 | </form> | |
349 | END | |
350 | ||
3ea75603 | 351 | &Header::closebox(); |
3ea75603 | 352 | &Header::closebigbox(); |
3ea75603 | 353 | &Header::closepage(); |