use XML::Simple;
use Data::Dumper;
($sec, $min, $hout, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
my $inputFile = "techniques.xml";
my $locationFile = "TechniquesByLocation.html";
my $typeFile = "TechniquesByType.html";
my $ingredientFile = "TechniquesByIngredient.html";
my $itemFile = "TechniquesByItem.html";
%files = (
"Location", $locationFile,
"Type", $typeFile,
"Ingredient", $ingredientFile,
"Item", $itemFile
);
my $xs1 = XML::Simple->new();
my $doc = $xs1->XMLin($inputFile, ForceArray => ['ingredient', 'on']);
foreach $name (keys(%files)) {
print "Writing Techniques by $name...";
eval("&doBy" . $name . "File");
print "done\n";
}
sub doByLocationFile {
#print "\nBEGIN : doByLocationFile\n";
if (!open(BY_LOCATION, ">" . $locationFile)) {
print "Unable to open file '$locationFile' for writing.\n";
exit 1;
}
# Get a list of technique locations
%locationList = ();
foreach my $technique (keys (%{$doc->{technique}})) {
my $locationType = $doc->{technique}->{$technique}->{source}->{type};
my $location = $doc->{technique}->{$technique}->{source}->{place};
if ($locationType eq "quartermaster") {
$locationList{$location} = $doc->{technique}->{$technique}->{source}->{person};
}
}
my @locations = sort (keys(%locationList));
# Print HTML header
print BY_LOCATION "\n";
print BY_LOCATION "\n";
print BY_LOCATION "\tTechniques by Location\n";
print BY_LOCATION "\t\n";
print BY_LOCATION "\t\n";
print BY_LOCATION "\n";
print BY_LOCATION "\n";
print BY_LOCATION "Techniques by Location\n";
&seeAlso(BY_LOCATION, "Location");
print BY_LOCATION "
\n";
# For each location
foreach my $location (@locations) {
&doLocation($location, $locationList{$location});
}
&doLocationOther(@locations);
print BY_LOCATION "
";
&doFooter(BY_LOCATION);
close(BY_LOCATION);
} # END doByLocationFile
sub doLocation {
local($location, $person) = @_;
print BY_LOCATION "
\n";
print BY_LOCATION "
$location ($person)
\n";
print BY_LOCATION "
\n";
# Get a list of technique types for this location
%typeList = ();
foreach my $technique (keys (%{$doc->{technique}})) {
if ($doc->{technique}->{$technique}->{source}->{place} eq $location) {
$typeList{$doc->{technique}->{$technique}->{type}} = 1;
}
}
print BY_LOCATION "
\n";
} # END doLocation
sub doLocationOther {
local(@locations) = @_;
print BY_LOCATION "
\n";
print BY_LOCATION "
Other
\n";
print BY_LOCATION "
\n";
# Get a list of technique types for this location
%typeList = ();
foreach my $technique (keys (%{$doc->{technique}})) {
if (!&member($doc->{technique}->{$technique}->{source}->{place}, @locations)) {
$typeList{$doc->{technique}->{$technique}->{type}} = 1;
}
}
print BY_LOCATION "
\n";
# Get a list of techniques for this location and type
%techList = ();
$color = 0;
foreach my $technique (sort (keys (%{$doc->{technique}}))) {
if (($doc->{technique}->{$technique}->{source}->{place} eq $location)
&& ($doc->{technique}->{$technique}->{type} eq $type)) {
# Print one technique
if ($color) {
print BY_LOCATION "
\n";
} # END doLocationType
sub doByTypeFile {
if (!open(BY_TYPE, ">" . $typeFile)) {
print "Unable to open file '$typeFile' for writing.\n";
exit 1;
}
# Print HTML header
print BY_TYPE "\n";
print BY_TYPE "\n";
print BY_TYPE "\tTechniques by Type\n";
print BY_TYPE "\t\n";
print BY_TYPE "\t\n";
print BY_TYPE "\n";
print BY_TYPE "\n";
print BY_TYPE "Techniques by Type\n";
&seeAlso(BY_TYPE, "Type");
print BY_TYPE "
\n";
# Get a list of technique types
%types = ();
foreach my $technique (keys (%{$doc->{technique}})) {
$types{$doc->{technique}->{$technique}->{type}} = 1;
}
# For each technique type
foreach my $type (sort (keys %types)) {
&doType($type);
}
print BY_TYPE "
";
print BY_TYPE "\t\n";
&doFooter(BY_TYPE);
close(BY_TYPE);
} # END doByTypeFile
sub doType {
local($type) = @_;
print BY_TYPE "
\n";
print BY_TYPE "
\n";
# Header with expand/collapse control
print BY_TYPE "
\n";
# Get a list of techniques for this type
%techList = ();
$color = 0;
foreach my $technique (sort (keys (%{$doc->{technique}}))) {
if ($doc->{technique}->{$technique}->{type} eq $type) {
# Print one technique
if ($color) {
print BY_TYPE "
\n";
} else {
print BY_TYPE "
\n";
}
$color = !$color;
print BY_TYPE "
$type
\n";
print BY_TYPE "
$technique
\n";
print BY_TYPE "
" . $doc->{technique}->{$technique}->{effect} . "
\n";
# Technique doesn't have 3 tiers
if ($doc->{technique}->{$technique}->{tier}->{name} eq 'ALL') {
# Technique has tier ALL
print BY_TYPE "
\n";
# Get a list of techniques for this ingredient
%techList = ();
$color = 0;
foreach my $technique (sort (keys (%{$doc->{technique}}))) {
if (&uses($technique, $ingredient)) {
my $type = $doc->{technique}->{$technique}->{type};
# Print one technique
if ($color) {
print BY_INGREDIENT "
\n";
} # END doIngredient
sub getTier {
local($technique, $ingredient) = @_;
if ($doc->{technique}->{$technique}->{tier}->{name} eq 'ALL') {
return "";
} else {
# Technique has three tiers
foreach $tier ('I', 'II', 'III') {
my $count = 0;
while ($doc->{technique}->{$technique}->{tier}->{$tier}->{recipie}->{ingredient}->[$count]) {
if ($ingredient eq $doc->{technique}->{$technique}->{tier}->{$tier}->{recipie}->{ingredient}->[$count]->{text}) {
return $tier;
}
$count++;
}
}
}
print "\nError, technique '$technique' does not contain ingredient '$ingredient'!";
return "";
} # END getTier
sub uses {
local($technique, $ingredient) = @_;
if ($doc->{technique}->{$technique}->{tier}->{name} eq 'ALL') {
# Technique doesn't have 3 tiers
if ($doc->{technique}->{$technique}->{tier}->{recipie}) {
my $count = 0;
while ($doc->{technique}->{$technique}->{tier}->{recipie}->{ingredient}->[$count]) {
if ($doc->{technique}->{$technique}->{tier}->{recipie}->{ingredient}->[$count]->{text} eq $ingredient) {
return 1;
}
$count++;
}
}
} else {
# Technique has three tiers
foreach $tier ('I', 'II', 'III') {
my $count = 0;
while ($doc->{technique}->{$technique}->{tier}->{$tier}->{recipie}->{ingredient}->[$count]) {
if ($doc->{technique}->{$technique}->{tier}->{$tier}->{recipie}->{ingredient}->[$count]->{text} eq $ingredient) {
return 1;
}
$count++;
}
}
}
return 0;
} # END uses
sub doByItemFile {
if (!open(BY_ITEM, ">" . $itemFile)) {
print "Unable to open file '$itemFile' for writing.\n";
exit 1;
}
# Print HTML header
print BY_ITEM "\n";
print BY_ITEM "\n";
print BY_ITEM "\tTechniques by Item\n";
print BY_ITEM "\t\n";
print BY_ITEM "\t\n";
print BY_ITEM "\n";
print BY_ITEM "\n";
print BY_ITEM "Techniques by Item\n";
&seeAlso(BY_ITEM, "Item");
print BY_ITEM "
\n";
# Get a list of technique application crafts
%crafts = ();
foreach my $technique (keys (%{$doc->{technique}})) {
foreach $on (@{$doc->{technique}->{$technique}->{onlist}->{on}}) {
$crafts{$on->{skill}} = ();
}
}
# For each technique application craft
foreach my $craft (sort (keys %crafts)) {
# Get a list of technique items craftable using the craft
%items = ();
foreach my $technique (keys (%{$doc->{technique}})) {
foreach $item (@{$doc->{technique}->{$technique}->{onlist}->{on}}) {
if ($craft eq $item->{skill}) {
$items{$item->{content}} = 1;
}
}
}
print BY_ITEM "
\n";
# Get a list of techniques for this on
%techList = ();
$color = 0;
foreach my $technique (sort (keys (%{$doc->{technique}}))) {
if (&isOn($technique, $on)) {
my $type = $doc->{technique}->{$technique}->{type};
# Print one technique
if ($color) {
print BY_ITEM "
![](\"plus.jpg\")
";
print BY_LOCATION "";
print BY_LOCATION " $type Techniques";
print BY_LOCATION "