]>
git.ipfire.org Git - people/ms/ipfire-2.x.git/blob - src/scripts/updatelists.pl
5 require "CONFIG_ROOT/general-functions.pl";
8 my $return = &downloadlist
();
9 if($return && $return->is_success) {
10 unless(open(LIST
, ">CONFIG_ROOT/patches/available")) {
11 die "Could not open available lists database.";
14 @this = split(/----START LIST----\n/,$return->content);
18 die "Could not download patches list.";
22 unless(-e
"CONFIG_ROOT/red/active") {
26 my $downloader = LWP
::UserAgent
->new;
27 $downloader->timeout(5);
30 &General
::readhash
("CONFIG_ROOT/proxy/settings", \
%proxysettings);
32 if ($_=$proxysettings{'UPSTREAM_PROXY'}) {
33 my ($peer, $peerport) = (/^(?:[a-zA-Z ]+\:\/\
/)?(?:[A-Za-z0-9\_\.\-]*?(?:\:[A-Za-z0-9\_\.\-]*?)?\@)?([a-zA-Z0-9\.\_\-]*?)(?:\:([0-9]{1,5}))?(?:\/.*?
)?
$/);
34 if ($proxysettings{'UPSTREAM_USER'}) {
35 $downloader->proxy("http","http://$proxysettings{'UPSTREAM_USER'}:$proxysettings{'UPSTREAM_PASSWORD'}@"."$peer:$peerport/");
37 $downloader->proxy("http","http://$peer:$peerport/");
41 return $downloader->get("http://www.ipcop.org/patches/${General::version}", 'Cache-Control', 'no-cache');