#!/usr/bin/perl

use Badge;

xmlheader();

for $num (0..5) {

$line = <STDIN>;
chomp $line;
@data = split(";",$line);
foreach (@data) {
  s/^\"//g;
  s/\"$//g;
  s/\\\"/"/g;
}

$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)

$Badge::temporary = 0;

$Badge::name_line1 = $data[0];
$Badge::name_line2 = $data[1];
$Badge::guest_relation = $data[2];
$Badge::host_name = $data[3];
$Badge::country = $data[4];
$Badge::state = $data[5];
@Badge::events = @data[6..14];
@Badge::badge_puzzle = @data[15..26];

$x = ($num >= 3) ? 288 : 0;
$y = ($num % 3) * 216;

print "<g transform=\"translate($x,$y)\">\n";

outerframe();
ipplogo();
namesection();
badgepuzzle();
countrystate();
events();
temporary();

print "</g>\n";
}

print "</svg>\n";