Hinzugefügt:

[people/pmueller/ipfire-2.x.git] / src / scripts / updatelists.pl

#!/usr/bin/perl\r
\r
use strict;\r
use LWP::UserAgent;\r
require "CONFIG_ROOT/general-functions.pl";\r
\r
my @this;\r
my $return = &downloadlist();\r
if($return && $return->is_success) {\r
	unless(open(LIST, ">CONFIG_ROOT/patches/available")) {\r
		die "Could not open available lists database.";\r
	}\r
	flock LIST, 2;\r
	@this = split(/----START LIST----\n/,$return->content);\r
	print LIST $this[1];\r
	close(LIST);\r
} else {\r
	die "Could not download patches list.";\r
}\r
\r
sub downloadlist {\r
	unless(-e "CONFIG_ROOT/red/active") {\r
		die "Not connected.";\r
	}\r
\r
	my $downloader = LWP::UserAgent->new;\r
	$downloader->timeout(5);\r
\r
	my %proxysettings;\r
	&General::readhash("CONFIG_ROOT/proxy/settings", \%proxysettings);\r
\r
	if ($_=$proxysettings{'UPSTREAM_PROXY'}) {\r
		my ($peer, $peerport) = (/^(?:[a-zA-Z ]+\:\/\/)?(?:[A-Za-z0-9\_\.\-]*?(?:\:[A-Za-z0-9\_\.\-]*?)?\@)?([a-zA-Z0-9\.\_\-]*?)(?:\:([0-9]{1,5}))?(?:\/.*?)?$/);\r
		if ($proxysettings{'UPSTREAM_USER'}) {\r
			$downloader->proxy("http","http://$proxysettings{'UPSTREAM_USER'}:$proxysettings{'UPSTREAM_PASSWORD'}@"."$peer:$peerport/");\r
		} else {\r
			$downloader->proxy("http","http://$peer:$peerport/");\r
		}\r
	}\r
\r
	return $downloader->get("http://www.ipcop.org/patches/${General::version}", 'Cache-Control', 'no-cache');\r
}\r