#!/bin/usr/perl

use LWP::UserAgent;
use HTTP::Response;
use HTTP::Headers;
use HTTP::Date;

$url = @ARGV[0];
$fname = @ARGV[1];

if (@ARGV < 2) {
	print "Usage: URL FILE\n", "Checks URL for updates and saves it to FILE\n";
	exit(1);
}

$ua = LWP::UserAgent->new;

$mtime = 0;

do {
	$response = $ua->get($url);
	die "Can't get $url\n", "Response tells: ", $response->status_line, "\n"
		unless $response->is_success;

	$ctime = str2time($response->header('Last-Modified'));
	if ($ctime != $mtime) {
		$mtime = $ctime;
		open F, ">".$fname
			or die "Can't open $fname\n";
		print F $response->decoded_content();
		close F;
		print "$fname updated\n";
	}

	sleep(1);
} while(1);