-sub check4updates
-{
- if ((-e "${General::swroot}/red/active") && (-e $sysupdflagfile) && (int(-M $sysupdflagfile) > 7))
- {
- my @response=();;
-
- my $remote = IO::Socket::INET->new(
- PeerHost => 'www.advproxy.net',
- PeerPort => 'http(80)',
- Timeout => 1
- );
-
- if ($remote)
- {
- print $remote "GET http://www.advproxy.net/update-accelerator/version/ipcop/latest HTTP/1.0\n";
- print $remote "User-Agent: Mozilla/4.0 (compatible; IPCop $General::version; $Lang::language; updatexlrator)\n\n";
- while (<$remote>) { push(@response,$_); }
- close $remote;
- if ($response[0] =~ /^HTTP\/\d+\.\d+\s200\sOK\s*$/)
- {
- system("touch $sysupdflagfile");
- return "$response[$#response]";
- }
- }
- }
-}
-
-# -------------------------------------------------------------------
-