#!/usr/bin/perl

 use LWP;

 use LWP::UserAgent;

 use HTTP::Request;

 open(STEAMINF, "<", $ARGV[0]);

 my $appid = 0;

 my $version = "";

 while (<STEAMINF>) {

 	if ($_ =~ /^(?:Patch)?Version\s*=\s*([0-9\.]+)/) {

 		$version = $1;

 	} elsif ($_ =~ /appID\s*=\s*([0-9]+)/) {

 		$appid = $1;

 	}

 }

 close STEAMINF;

 if ($appid == 0 || $version eq "") {

 	print "Failed to parse steam.inf\n";

 	exit 2;

 }

 my $request = new HTTP::Request(

 	'GET',

 	sprintf("http://api.steampowered.com/ISteamApps/UpToDateCheck/v0001/?appid=%d&version=%s&format=xml",

 		$appid,

 		$version

 		)

 	);

 my $ua = new LWP::UserAgent;

 my $response = $ua->request($request);

 if (!$response->is_success())

 {

 	printf("Bad response code: %d\n", $response->code());

 	exit 3;

 }

 $version =~ s/\.//g;

 if ($response->content() =~ /<up_to_date>\s*false\s*<\/up_to_date>/) {

 	printf("We are outdated (v%s)\n", $version);

 	if ($response->content() =~ /<required_version>\s*([0-9\.]+)\s*<\/required_version>/) {

 		my $newversion = $1;

 		printf("Latest is v%s\n", $newversion);

 		open(my $f, ">", $ARGV[0].".new");

 		print $f $newversion;

 	}

 	exit 0;

 } else {

 	printf("We are up to date (v%s)\n", $version);

 	exit 1;

 }