]>
git.ipfire.org Git - people/stevee/ipfire-2.x.git/blob - html/cgi-bin/updatexlrator.cgi
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2007 Michael Tremer & Christian Schmidt #
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. #
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. #
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/>. #
20 ###############################################################################
24 # enable only the following on debugging purpose
26 #use CGI::Carp 'fatalsToBrowser';
30 require '/var/ipfire/general-functions.pl';
31 require "${General::swroot}/lang.pl";
32 require "${General::swroot}/header.pl";
40 my %xlratorsettings=();
51 my $repository = "/srv/web/ipfire/html/updatecache";
52 my $hintcolour = '#FFFFCC';
58 my $not_accessed_last='';
62 my @repositorylist=();
63 my @repositoryfiles=();
67 my $chk_cron_dly = "${General::swroot}/updatexlrator/autocheck/cron.daily";
68 my $chk_cron_wly = "${General::swroot}/updatexlrator/autocheck/cron.weekly";
69 my $chk_cron_mly = "${General::swroot}/updatexlrator/autocheck/cron.monthly";
71 &General
::readhash
("${General::swroot}/ethernet/settings", \
%netsettings);
72 &General
::readhash
("${General::swroot}/main/settings", \
%mainsettings);
73 &General
::readhash
("${General::swroot}/proxy/settings", \
%proxysettings);
74 &General
::readhash
("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \
%color);
76 $xlratorsettings{'ACTION'} = '';
77 $xlratorsettings{'ENABLE_LOG'} = 'off';
78 $xlratorsettings{'CHILDREN'} = '5';
79 $xlratorsettings{'PASSIVE_MODE'} = 'off';
80 $xlratorsettings{'MAX_DISK_USAGE'} = '75';
81 $xlratorsettings{'LOW_DOWNLOAD_PRIORITY'} = 'off';
82 $xlratorsettings{'ENABLE_AUTOCHECK'} = 'off';
83 $xlratorsettings{'FULL_AUTOSYNC'} = 'off';
84 $xlratorsettings{'NOT_ACCESSED_LAST'} = 'month1';
86 &Header
::getcgihash
(\
%xlratorsettings);
88 if ($xlratorsettings{'ACTION'} eq $Lang::tr
{'updxlrtr purge'})
90 if (($xlratorsettings{'REMOVE_OBSOLETE'} eq 'on') || ($xlratorsettings{'REMOVE_NOSOURCE'} eq 'on') || ($xlratorsettings{'REMOVE_OUTDATED'} eq 'on'))
92 @repositorylist = <$repository/*>;
93 foreach (@repositorylist)
97 $updatefile = substr($_,rindex($_,"/")+1);
98 if (-e
"$repository/metadata/$updatefile")
100 open (FILE
,"$repository/metadata/$updatefile");
105 if (($xlratorsettings{'REMOVE_NOSOURCE'} eq 'on') && ($metadata[2] == $sfNoSource))
107 unlink("$repository/$updatefile");
108 unlink("$repository/metadata/$updatefile");
110 if (($xlratorsettings{'REMOVE_OUTDATED'} eq 'on') && ($metadata[2] == $sfOutdated))
112 unlink("$repository/$updatefile");
113 unlink("$repository/metadata/$updatefile");
115 if ($xlratorsettings{'REMOVE_OBSOLETE'} eq 'on')
117 if (($xlratorsettings{'NOT_ACCESSED_LAST'} eq 'week') && ($metadata[-1] < (time - 604800)))
119 unlink("$repository/$updatefile");
120 unlink("$repository/metadata/$updatefile");
122 if (($xlratorsettings{'NOT_ACCESSED_LAST'} eq 'month1') && ($metadata[-1] < (time - 2505600)))
124 unlink("$repository/$updatefile");
125 unlink("$repository/metadata/$updatefile");
127 if (($xlratorsettings{'NOT_ACCESSED_LAST'} eq 'month3') && ($metadata[-1] < (time - 7516800)))
129 unlink("$repository/$updatefile");
130 unlink("$repository/metadata/$updatefile");
132 if (($xlratorsettings{'NOT_ACCESSED_LAST'} eq 'month6') && ($metadata[-1] < (time - 15033600)))
134 unlink("$repository/$updatefile");
135 unlink("$repository/metadata/$updatefile");
137 if (($xlratorsettings{'NOT_ACCESSED_LAST'} eq 'year') && ($metadata[-1] < (time - 31536000)))
139 unlink("$repository/$updatefile");
140 unlink("$repository/metadata/$updatefile");
149 if ($xlratorsettings{'ACTION'} eq $Lang::tr
{'save'})
151 if (!($xlratorsettings{'CHILDREN'} =~ /^\d+$/) || ($xlratorsettings{'CHILDREN'} < 1))
153 $errormessage = $Lang::tr
{'updxlrtr invalid num of children'};
156 if (!($xlratorsettings{'MAX_DISK_USAGE'} =~ /^\d+$/) || ($xlratorsettings{'MAX_DISK_USAGE'} < 1) || ($xlratorsettings{'MAX_DISK_USAGE'} > 100))
158 $errormessage = $Lang::tr
{'updxlrtr invalid disk usage'};
165 if ($xlratorsettings{'ACTION'} eq $Lang::tr
{'updxlrtr save and restart'})
167 if (!($xlratorsettings{'CHILDREN'} =~ /^\d+$/) || ($xlratorsettings{'CHILDREN'} < 1))
169 $errormessage = $Lang::tr
{'updxlrtr invalid num of children'};
172 if (!($xlratorsettings{'MAX_DISK_USAGE'} =~ /^\d+$/) || ($xlratorsettings{'MAX_DISK_USAGE'} < 1) || ($xlratorsettings{'MAX_DISK_USAGE'} > 100))
174 $errormessage = $Lang::tr
{'updxlrtr invalid disk usage'};
177 if (!(-e
"${General::swroot}/proxy/enable"))
179 $errormessage = $Lang::tr
{'updxlrtr web proxy service required'};
182 if (!($proxysettings{'ENABLE_UPDXLRATOR'} eq 'on'))
184 $errormessage = $Lang::tr
{'updxlrtr not enabled'};
190 system('/usr/local/bin/squidctrl restart >/dev/null 2>&1');
193 if ($xlratorsettings{'ACTION'} eq $Lang::tr
{'updxlrtr remove file'})
195 $updatefile = $xlratorsettings{'ID'};
196 if (-e
"$repository/$updatefile") { unlink("$repository/$updatefile"); }
197 $updatefile =~ s/^download\///i
;
198 if (-e
"$repository/metadata/$updatefile") { unlink("$repository/metadata/$updatefile"); }
203 $not_accessed_last = $xlratorsettings{'NOT_ACCESSED_LAST'};
204 undef($xlratorsettings{'NOT_ACCESSED_LAST'});
206 if (-e
"${General::swroot}/updatexlrator/settings") { &General
::readhash
("${General::swroot}/updatexlrator/settings", \
%xlratorsettings); }
208 if ($xlratorsettings{'NOT_ACCESSED_LAST'} eq '') { $xlratorsettings{'NOT_ACCESSED_LAST'} = $not_accessed_last; } ;
211 $checked{'ENABLE_LOG'}{'off'} = '';
212 $checked{'ENABLE_LOG'}{'on'} = '';
213 $checked{'ENABLE_LOG'}{$xlratorsettings{'ENABLE_LOG'}} = "checked='checked'";
214 $checked{'PASSIVE_MODE'}{'off'} = '';
215 $checked{'PASSIVE_MODE'}{'on'} = '';
216 $checked{'PASSIVE_MODE'}{$xlratorsettings{'PASSIVE_MODE'}} = "checked='checked'";
217 $checked{'LOW_DOWNLOAD_PRIORITY'}{'off'} = '';
218 $checked{'LOW_DOWNLOAD_PRIORITY'}{'on'} = '';
219 $checked{'LOW_DOWNLOAD_PRIORITY'}{$xlratorsettings{'LOW_DOWNLOAD_PRIORITY'}} = "checked='checked'";
220 $checked{'ENABLE_AUTOCHECK'}{'off'} = '';
221 $checked{'ENABLE_AUTOCHECK'}{'on'} = '';
222 $checked{'ENABLE_AUTOCHECK'}{$xlratorsettings{'ENABLE_AUTOCHECK'}} = "checked='checked'";
223 $checked{'FULL_AUTOSYNC'}{'off'} = '';
224 $checked{'FULL_AUTOSYNC'}{'on'} = '';
225 $checked{'FULL_AUTOSYNC'}{$xlratorsettings{'FULL_AUTOSYNC'}} = "checked='checked'";
227 $selected{'AUTOCHECK_SCHEDULE'}{$xlratorsettings{'AUTOCHECK_SCHEDULE'}} = "selected='selected'";
228 $selected{'NOT_ACCESSED_LAST'}{$xlratorsettings{'NOT_ACCESSED_LAST'}} = "selected='selected'";
230 # ----------------------------------------------------
232 # ----------------------------------------------------
234 &Header
::showhttpheaders
();
236 &Header
::openpage
($Lang::tr
{'updxlrtr configuration'}, 1, '');
238 &Header
::openbigbox
('100%', 'left', '', $errormessage);
241 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
242 print "<font class='base'>$errormessage </font>\n";
246 print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
248 &Header
::openbox
('100%', 'left', "$Lang::tr{'updxlrtr update accelerator'}");
253 <td colspan='4'><b>$Lang::tr{'updxlrtr common settings'}</b></td>
256 <td class='base' width='25%'>$Lang::tr{'updxlrtr enable log'}:</td>
257 <td class='base' width='20%'><input type='checkbox' name='ENABLE_LOG' $checked{'ENABLE_LOG'}{'on'} /></td>
258 <td class='base' width='25%'>$Lang::tr{'updxlrtr children'}:</td>
259 <td class='base' width='30%'><input type='text' name='CHILDREN' value='$xlratorsettings{'CHILDREN'}' size='5' /></td>
262 <td class='base'>$Lang::tr{'updxlrtr passive mode'}:</td>
263 <td class='base'><input type='checkbox' name='PASSIVE_MODE' $checked{'PASSIVE_MODE'}{'on'} /></td>
264 <td class='base'>$Lang::tr{'updxlrtr max disk usage'}:</td>
265 <td class='base'><input type='text' name='MAX_DISK_USAGE' value='$xlratorsettings{'MAX_DISK_USAGE'}' size='1' /> %</td>
268 <td class='base'>$Lang::tr{'updxlrtr low download priority'}:</td>
269 <td class='base'><input type='checkbox' name='LOW_DOWNLOAD_PRIORITY' $checked{'LOW_DOWNLOAD_PRIORITY'}{'on'} /></td>
277 <td colspan='4'><b>$Lang::tr{'updxlrtr source checkup'}</b></td>
280 <td class='base' width='25%'>$Lang::tr{'updxlrtr enable autocheck'}:</td>
281 <td class='base' width='20%'><input type='checkbox' name='ENABLE_AUTOCHECK' $checked{'ENABLE_AUTOCHECK'}{'on'} /></td>
282 <td class='base' width='25%'>$Lang::tr{'updxlrtr source checkup schedule'}:</td>
283 <td class='base' width='30%'>
284 <select name='AUTOCHECK_SCHEDULE'>
285 <option value='daily' $selected{'AUTOCHECK_SCHEDULE'}{'daily'}>$Lang::tr{'updxlrtr daily'}</option>
286 <option value='weekly' $selected{'AUTOCHECK_SCHEDULE'}{'weekly'}>$Lang::tr{'updxlrtr weekly'}</option>
287 <option value='monthly' $selected{'AUTOCHECK_SCHEDULE'}{'monthly'}>$Lang::tr{'updxlrtr monthly'}</option>
292 <td class='base'>$Lang::tr{'updxlrtr full autosync'}:</td>
293 <td class='base'><input type='checkbox' name='FULL_AUTOSYNC' $checked{'FULL_AUTOSYNC'}{'on'} /></td>
301 <td colspan='6'><b>$Lang::tr{'updxlrtr maintenance'}</b></td>
304 <td class='base' colspan='3'><input type='submit' name='ACTION' value='$Lang::tr{'updxlrtr purge'}' /> $Lang::tr{'updxlrtr all files'}</td>
305 <td class='base' width='25%'><input type='checkbox' name='REMOVE_OBSOLETE' $checked{'REMOVE_OBSOLETE'}{'on'} /> $Lang::tr{'updxlrtr not accessed'}</td>
306 <td class='base' colspan='3'><select name='NOT_ACCESSED_LAST'>
307 <option value='week' $selected{'NOT_ACCESSED_LAST'}{'week'}>$Lang::tr{'updxlrtr week'}</option>
308 <option value='month1' $selected{'NOT_ACCESSED_LAST'}{'month1'}>$Lang::tr{'updxlrtr month'}</option>
309 <option value='month3' $selected{'NOT_ACCESSED_LAST'}{'month3'}>$Lang::tr{'updxlrtr 3 months'}</option>
310 <option value='month6' $selected{'NOT_ACCESSED_LAST'}{'month6'}>$Lang::tr{'updxlrtr 6 months'}</option>
311 <option value='year' $selected{'NOT_ACCESSED_LAST'}{'year'}>$Lang::tr{'updxlrtr year'}</option>
318 <td class='base' width='25%'><input type='checkbox' name='REMOVE_NOSOURCE' $checked{'REMOVE_NOSOURCE'}{'on'} /> $Lang::tr{'updxlrtr marked as'}</td>
319 <td class='base' width='3%'><img src='/images/updxl-led-yellow.gif' alt='$Lang::tr{'updxlrtr condition nosource'}' /></td>
320 <td class='base' width='17%'>[<i>$Lang::tr{'updxlrtr condition nosource'}</i>]</td>
321 <td class='base' width='25%'><input type='checkbox' name='REMOVE_OUTDATED' $checked{'REMOVE_OUTDATED'}{'on'} /> $Lang::tr{'updxlrtr marked as'}</td>
322 <td class='base' width='3%'><img src='/images/updxl-led-red.gif' alt='$Lang::tr{'updxlrtr condition outdated'}' /></td>
323 <td class='base' width='27%'>[<i>$Lang::tr{'updxlrtr condition outdated'}</i>]</td>
330 <td align='center' width='45%'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
331 <td align='center' width='45%'><input type='submit' name='ACTION' value='$Lang::tr{'updxlrtr save and restart'}' /></td>
349 # ----------------------------------------------------
351 # ----------------------------------------------------
353 &Header
::openbox
('100%', 'left', "$Lang::tr{'updxlrtr current files'}:");
355 @repositorylist = <$repository/download/*>;
357 undef @repositoryfiles;
358 foreach (@repositorylist)
362 $updatefile = substr($_,rindex($_,"/")+1);
363 $updatefile = "download/$updatefile";
364 push(@repositoryfiles,$updatefile);
368 @repositorylist = <$repository/*>;
370 foreach (@repositorylist)
372 if (!-d
) { push(@repositoryfiles,substr($_,rindex($_,"/")+1)); }
375 if (@repositoryfiles)
379 <colgroup span='2' width='2%'></colgroup>
380 <colgroup span='1' width='0*'></colgroup>
381 <colgroup span='4' width='5%'></colgroup>
382 <colgroup span='1' width='2%'></colgroup>
384 <td class='base' align='center'> </td>
385 <td class='base' align='center'> </td>
386 <td class='base' align='center'><b>$Lang::tr{'updxlrtr filename'}</b></td>
387 <td class='base' align='center'><b>$Lang::tr{'updxlrtr filesize'}</b></td>
388 <td class='base' align='center'><b>$Lang::tr{'date'}</b></td>
389 <td class='base' align='center'><img src='/images/reload.gif' alt='$Lang::tr{'updxlrtr last access'}' /></td>
390 <td class='base' align='center'><img src='/images/floppy.gif' alt='$Lang::tr{'updxlrtr last checkup'}' /></td>
391 <td class='base' align='center'> </td>
396 foreach $updatefile (@repositoryfiles)
400 print "<tr bgcolor='$color{'color20'}'>\n"; }
402 print "<tr bgcolor='$color{'color22'}'>\n"; }
403 $filesize = (-s
"$repository/$updatefile");
404 1 while $filesize =~ s/^(-?\d+)(\d{3})/$1.$2/;
406 my ($SECdt,$MINdt,$HOURdt,$DAYdt,$MONTHdt,$YEARdt) = localtime(&getmtime
("$repository/$updatefile"));
407 $DAYdt = sprintf ("%.02d",$DAYdt);
408 $MONTHdt = sprintf ("%.02d",$MONTHdt+1);
409 $YEARdt = sprintf ("%.04d",$YEARdt+1900);
410 $filedate = $YEARdt."-".$MONTHdt."-".$DAYdt;
416 $shortname = $updatefile;
417 $shortname =~ s/^download\///i
;
419 if (-e
"$repository/metadata/$shortname")
421 open (FILE
,"$repository/metadata/$shortname");
426 ($SECdt,$MINdt,$HOURdt,$DAYdt,$MONTHdt,$YEARdt) = localtime($metadata[-1]);
427 $DAYdt = sprintf ("%.02d",$DAYdt);
428 $MONTHdt = sprintf ("%.02d",$MONTHdt+1);
429 $YEARdt = sprintf ("%.04d",$YEARdt+1900);
430 if (($metadata[-1] =~ /^\d+/) && ($metadata[-1] >= 1)) { $lastaccess = $YEARdt."-".$MONTHdt."-".$DAYdt; }
432 ($SECdt,$MINdt,$HOURdt,$DAYdt,$MONTHdt,$YEARdt) = localtime($metadata[3]);
433 $DAYdt = sprintf ("%.02d",$DAYdt);
434 $MONTHdt = sprintf ("%.02d",$MONTHdt+1);
435 $YEARdt = sprintf ("%.04d",$YEARdt+1900);
436 if (($metadata[3] =~ /^\d+/) && ($metadata[3] >= 1)) { $lastcheck = $YEARdt."-".$MONTHdt."-".$DAYdt; }
439 print "\t\t<td align='center' nowrap='nowrap'> ";
440 if ($metadata[2] eq $sfNoSource)
442 print "<img src='/images/updxl-led-yellow.gif' alt='$Lang::tr{'updxlrtr condition nosource'}' /> </td>\n";
444 if ($metadata[2] eq $sfOk)
446 print "<img src='/images/updxl-led-green.gif' alt='$Lang::tr{'updxlrtr condition ok'}' /> </td>\n";
448 if (($metadata[2] eq $sfOutdated) && (!($updatefile =~ /^download\//i
)))
450 print "<img src='/images/updxl-led-red.gif' alt='$Lang::tr{'updxlrtr condition outdated'}' /> </td>\n";
452 if (($metadata[2] eq $sfOutdated) && ($updatefile =~ /^download\//i
))
454 print "<img src='/images/updxl-led-blue.gif' alt='$Lang::tr{'updxlrtr condition download'}' /> </td>\n";
456 if ($metadata[2] eq '')
458 print "<img src='/images/updxl-led-red.gif' alt='$Lang::tr{'updxlrtr condition outdated'}' /> </td>\n";
461 print "\t\t<td align='center' nowrap='nowrap'> ";
462 if ($metadata[1] eq 'Adobe')
464 print "<img src='/images/updxl-src-adobe.gif' alt='Adobe'}' /> </td>\n";
465 } elsif ($metadata[1] eq 'Microsoft')
467 print "<img src='/images/updxl-src-windows.gif' alt='Microsoft'}' /> </td>\n";
468 } elsif ($metadata[1] eq 'Symantec')
470 print "<img src='/images/updxl-src-symantec.gif' alt='Symantec'}' /> </td>\n";
471 } elsif ($metadata[1] eq 'Avira')
473 print "<img src='/images/updxl-src-avira.gif' alt='Avira'}' /> </td>\n";
474 } elsif ($metadata[1] eq 'Avast')
476 print "<img src='/images/updxl-src-avast.gif' alt='Avast'}' /> </td>\n";
477 } elsif ($metadata[1] eq 'IPFire')
479 print "<img src='/images/IPFire.png' width='18' height='18' alt='IPFire'}' /> </td>\n";
480 } elsif ($metadata[1] eq 'Appel')
482 print "<img src='/images/Apple.png' width='18' height='18' alt='Apple'}' /> </td>\n";
483 } elsif ($metadata[1] eq 'Linux')
485 print "<img src='/images/tux.png' alt='Linux'}' /> </td>\n";
488 print "<img src='/images/updxl-src-unknown.gif' alt='$Lang::tr{'updxlrtr unknown'}' /> </td>\n";
491 $shortname = $updatefile;
492 $shortname =~ s/(.*)_[\da-f]*(\.(exe|cab|psf)$)/\1_*\2/i;
493 $shortname =~ s/^download\///i
;
496 <td class='base' align='left' title='$updatefile'>$shortname</td>
497 <td class='base' align='right' nowrap='nowrap'> $filesize </td>
498 <td class='base' align='center' nowrap='nowrap'> $filedate </td>
499 <td class='base' align='center' nowrap='nowrap'> $lastaccess </td>
500 <td class='base' align='center' nowrap='nowrap'> $lastcheck </td>
502 <form method='post' name='frma$id' action='$ENV{'SCRIPT_NAME'}'>
503 <input type='image' name='$Lang::tr{'updxlrtr remove file'}' src='/images/delete.gif' title='$Lang::tr{'updxlrtr remove file'}' alt='$Lang::tr{'updxlrtr remove file'}' />
504 <input type='hidden' name='ID' value='$updatefile' />
505 <input type='hidden' name='ACTION' value='$Lang::tr{'updxlrtr remove file'}' />
518 <td class='boldbase'> <b>$Lang::tr{'legend'}:</b></td>
519 <td class='base'> </td>
520 <td><img src='/images/reload.gif' alt='$Lang::tr{'updxlrtr last access'}' /></td>
521 <td class='base'>$Lang::tr{'updxlrtr last access'}</td>
522 <td class='base'> </td>
523 <td><img src='/images/floppy.gif' alt='$Lang::tr{'updxlrtr last checkup'}' /></td>
524 <td class='base'>$Lang::tr{'updxlrtr last checkup'}</td>
525 <td class='base'> </td>
526 <td><img src='/images/delete.gif' alt='$Lang::tr{'updxlrtr remove file'}' /></td>
527 <td class='base'>$Lang::tr{'updxlrtr remove file'}</td>
528 <td class='base'> </td>
529 <td class='base'> </td>
530 <td class='base'> </td>
533 <td colspan='13'></td>
536 <td class='base'> $Lang::tr{'status'}:</td>
537 <td class='base'> </td>
538 <td align='center'><img src='/images/updxl-led-green.gif' alt='$Lang::tr{'updxlrtr condition ok'}' /></td>
539 <td class='base'>$Lang::tr{'updxlrtr condition ok'}</td>
540 <td class='base'> </td>
541 <td align='center'><img src='/images/updxl-led-yellow.gif' alt='$Lang::tr{'updxlrtr condition nosource'}' /></td>
542 <td class='base'>$Lang::tr{'updxlrtr condition nosource'}</td>
543 <td class='base'> </td>
544 <td align='center'><img src='/images/updxl-led-red.gif' alt='$Lang::tr{'updxlrtr condition outdated'}' /></td>
545 <td class='base'>$Lang::tr{'updxlrtr condition outdated'}</td>
546 <td class='base'> </td>
547 <td align='center'><img src='/images/updxl-led-blue.gif' alt='$Lang::tr{'updxlrtr condition download'}' /></td>
548 <td class='base'>$Lang::tr{'updxlrtr condition download'}</td>
551 <td colspan='13'></td>
554 <td class='base'> $Lang::tr{'updxlrtr source'}:</td>
555 <td class='base'> </td>
556 <td align='center'><img src='/images/updxl-src-adobe.gif' alt='Adobe' /></td>
557 <td class='base'>Adobe</td>
558 <td class='base'> </td>
559 <td align='center'><img src='/images/updxl-src-windows.gif' alt='Microsoft' /></td>
560 <td class='base'>Microsoft</td>
561 <td class='base'> </td>
562 <td align='center'><img src='/images/updxl-src-symantec.gif' alt='Symantec' /></td>
563 <td class='base'>Symantec</td>
564 <td class='base'> </td>
565 <td align='center'><img src='/images/updxl-src-avira.gif' alt='Avira' /></td>
566 <td class='base'>Avira</td>
567 <td class='base'> </td>
568 <td align='center'><img src='/images/updxl-src-apple.gif' alt='Apple' /></td>
569 <td class='base'>Apple</td>
570 <td class='base'> </td>
573 <td class='base' colspan='2'> </td>
574 <td align='center'><img src='/images/IPFire.png' width='18' height='18' alt='IPFire' /></td>
575 <td class='base'>IPFire</td>
576 <td class='base'> </td>
577 <td align='center'><img src='/images/tux.png' alt='Linux' /></td>
578 <td class='base'>Linux</td>
579 <td class='base'> </td>
580 <td align='center'><img src='/images/updxl-src-avast.gif' alt='Avast' /></td>
581 <td class='base'>Avast</td>
582 <td class='base'> </td>
583 <td align='center'><img src='/images/updxl-src-unknown.gif' alt='$Lang::tr{'updxlrtr unknown'}' /></td>
584 <td class='base'>$Lang::tr{'updxlrtr unknown'}</td>
585 <td class='base'> </td>
586 <td align='center'></td>
587 <td class='base'></td>
588 <td class='base'> </td>
595 print "<i>$Lang::tr{'updxlrtr empty repository'}</i>\n";
602 <tr><td class='boldbase'><b>$Lang::tr{'updxlrtr disk usage'}:</b></td></tr>
605 <table cellpadding='3'>
608 open(DF
,"/bin/df -h $repository|");
611 if ($_ =~ m/^Filesystem/ )
615 <td align='left' class='base'><i>$Lang::tr{'updxlrtr cache dir'}</i></td>
616 <td align='center' class='base'><i>$Lang::tr{'size'}</i></td>
617 <td align='center' class='base'><i>$Lang::tr{'used'}</i></td>
618 <td align='center' class='base'><i>$Lang::tr{'free'}</i></td>
619 <td align='left' class='base' colspan='2'><i>$Lang::tr{'percentage'}</i></td>
626 my ($device,$size,$used,$free,$percent,$mount) = split;
629 <td>[$repository]</td>
630 <td align='right'>$size</td>
631 <td align='right'>$used</td>
632 <td align='right'>$free</td>
636 &percentbar
($percent);
639 <td align='right'>$percent</td>
650 &Header
::closebigbox
();
652 &Header
::closepage
();
654 # -------------------------------------------------------------------
658 if (-e
$chk_cron_dly) { unlink($chk_cron_dly); }
659 if (-e
$chk_cron_wly) { unlink($chk_cron_wly); }
660 if (-e
$chk_cron_mly) { unlink($chk_cron_mly); }
662 if (($xlratorsettings{'ENABLE_AUTOCHECK'} eq 'on') && ($xlratorsettings{'AUTOCHECK_SCHEDULE'} eq 'daily'))
664 symlink("../bin/checkup",$chk_cron_dly)
666 symlink("/bin/false",$chk_cron_dly)
668 if (($xlratorsettings{'ENABLE_AUTOCHECK'} eq 'on') && ($xlratorsettings{'AUTOCHECK_SCHEDULE'} eq 'weekly'))
670 symlink("../bin/checkup",$chk_cron_wly)
672 symlink("/bin/false",$chk_cron_wly)
674 if (($xlratorsettings{'ENABLE_AUTOCHECK'} eq 'on') && ($xlratorsettings{'AUTOCHECK_SCHEDULE'} eq 'monthly'))
676 symlink("../bin/checkup",$chk_cron_mly)
678 symlink("/bin/false",$chk_cron_mly)
681 delete($xlratorsettings{'REMOVE_OBSOLETE'});
682 delete($xlratorsettings{'REMOVE_NOSOURCE'});
683 delete($xlratorsettings{'REMOVE_OUTDATED'});
685 &General
::writehash
("${General::swroot}/updatexlrator/settings", \
%xlratorsettings);
688 # -------------------------------------------------------------------
696 if ($percent =~ m/^(\d+)%$/ )
699 <table width='100' border='1' cellspacing='0' cellpadding='0' style='border-width:1px;border-style:solid;border-color:$fg;width:100px;height:10px;'>
703 if ($percent eq "100%") {
704 print "<td width='100%' bgcolor='$fg' style='background-color:$fg;border-style:solid;border-width:1px;border-color:$bg'>"
705 } elsif ($percent eq "0%") {
706 print "<td width='100%' bgcolor='$bg' style='background-color:$bg;border-style:solid;border-width:1px;border-color:$bg'>"
708 print "<td width='$percent' bgcolor='$fg' style='background-color:$fg;border-style:solid;border-width:1px;border-color:$bg'></td><td width='" . (100-$1) . "%' bgcolor='$bg' style='background-color:$bg;border-style:solid;border-width:1px;border-color:$bg'>"
711 <img src='/images/null.gif' width='1' height='1' alt='' /></td></tr></table>
717 # -------------------------------------------------------------------
721 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($_[0]);
726 # -------------------------------------------------------------------