#!/usr/bin/perl

use Badge;

$Badge::name_line1 = "NoName";
$Badge::name_line2 = "NoSurname";
$Badge::guest_relation = "Guest";
$Badge::host_name = "";
@Badge::badge_puzzle = (0,0,0,0,0,0,0,0,0,0,0,0);
$Badge::temporary = 0;
$Badge::country = "NoCountry";
$Badge::state = "";
@Badge::events = (0,0,0,0,0,0,0,0,0);
# 0 = empty
# 1 = present
# (for 2: 1 = Exchange, 2 = Assistant, 3 = City Tour)
# (for 5: 0 = Party, 1 = Filoli)

while ($line = <STDIN>) {
  chomp $line;
  $line =~ s/\#.*//g;
  $line =~ s/^\s+//g;
  $line =~ s/\s+$//g;
  if ($line =~ /^NAMELINE1 (.*)/) {
    $Badge::name_line1 = $1;
  }
  if ($line =~ /^NAMELINE2 (.*)/) {
    $Badge::name_line2 = $1;
  }
  if ($line =~ /^HOSTNAME (.*)/) {
    $Badge::host_name = $1;
  }
  if ($line =~ /^RELATION (.*)/) {
    $Badge::guest_relation = $1;
  }
  if ($line =~ /^TEMPORARY/) {
    $Badge::temporary = 1;
  }
  if ($line =~ /^COUNTRY (.*)/) {
    $Badge::country = $1;
  }
  if ($line =~ /^STATE (.*)/) {
    $Badge::state = $1;
  }
  if ($line =~ /^PUZZLE (.*)/) {
    @Badge::badge_puzzle = split(' ',$1);
  }
  if ($line =~ /^EVENTS (.*)/) {
    @Badge::events = split(' ',$1);
  }
}
$Badge::is_guest = ($host_name ne "");

xmlheader();

$Badge::temporary = 1;
print "<g transform=\"translate(0,0)\">\n";
outerframe();
ipplogo();
namesection();
badgepuzzle();
countrystate();
events();
temporary();
print "</g>\n";

$Badge::temporary = 0;
print "<g transform=\"translate(288,0)\">\n";
outerframe();
ipplogo();
namesection();
badgepuzzle();
countrystate();
events();
temporary();
print "</g>\n";

print "</svg>\n";