GamerWiki:MakeGameEntry

From GamerWiki

#!/usr/bin/perl

# set up the template variables with some default values
my $input="";
my %data = ( 
	gameTitle => "",
	gameCover => "Coverpicture.jpg",
	publisher => "Publisher's name",
	developer => "Developer's name",
	alternativeTitle => "[[Alternative Title 1]] (Region)",
	jpdate => "date/monthintext/year",
	nadate => "date/monthintext/year",
	eudate => "date/monthintext/year",
	audate => "date/monthintext/year",
	genre => "Genre name",
	players => "1",
	esrb => "",
	pegi => "",
	cero => "",
	platform => "Platform released on",
	media => "Media Type (cartridge, cd, etc.)",
	online => "yes/no"
);

while (my ($key,$value) = each %data) {
	print "Enter value for $key [$value]: ";
	$input = <STDIN>;
	chomp($input);
	if ($input ne "") {
		$data{$key}=$input;
	}
}

print "{{GameInfobox|\n";
print "gametitle=",$data{"gameTitle"},"|\n";
print "gamecover=",$data{"gameCover"},"|\n";
print "publisher=",$data{"publisher"},"|\n";
print "developer=",$data{"developer"},"|\n";
print "alternativetitle=",$data{alternativeTitle},"|\n";
print "jpdate=",$data{"jpdate"},"|\n";
print "nadate=",$data{"nadate"},"|\n";
print "eudate=",$data{"eudate"},"|\n";
print "audate=",$data{"audate"},"|\n";
print "genre=",$data{"genre"},"|\n";
print "players=",$data{"players"},"|\n";
print "esrb=",$data{"esrb"},"|\n";
print "pegi=",$data{"pegi"},"|\n";
print "cero=",$data{"cero"},"|\n";
print "platform=",$data{"platform"},"|\n";
print "media=",$data{"media"},"|\n";
print "online=",$data{"online"},"\n";
print "}}\n";