#!/usr/bin/perl -w
use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new ({ binary => 1 })
	or die "Cannot use CSV: ".Text::CSV->error_diag();
my $out = \*STDOUT;
$csv->eol("\n");

mkdir "logos";

my ($info);
while ($_ = <STDIN>) {
	chomp;
	if (/^$/) {
		my ($id, $logo_url) = @$info{qw(appID logo)};
		print "wget $logo_url -O logos/$id.jpg\n" if ! -e "logos/$id.jpg";
		$info = {};
	} else {
		my ($k, $v) = split /: /, $_, 2;
		$info->{$k} = $v;
	}
}