update-servers.pl

#!/usr/bin/perl

use strict;

my $steamPath = "C:\\Steam\\steamcmd";
my $loginCmd = "+login anonymous";
my $quitCmd = "+quit";

my $games = {
	'DirectoryUnderRoot' => SteamAppId
};

foreach my $installDir (keys %$games) {
	print "Updating $installDir\n";
	my $dirCmd = "+force_install_dir \"C:\\$installDir\"";
	my $updateCmd = "+app_update $games->{$installDir}";

	system("$steamPath $loginCmd $dirCmd $updateCmd $quitCmd");
}