#!/usr/pkg/bin/perl
# Includes
use CGI;
use DBI;
use URI::Escape;
use Data::Dumper;
use Time::HiRes qw(gettimeofday tv_interval);
my $start = [gettimeofday];
# Flush all output immediately
$| = 1;
### DEBUG ###
$ENV{DEBUG} = 0;
### DEBUG ###
### VERBOSE ###
$ENV{VERBOSE} = 0;
### VERBOSE ###
# Print the content type, etc.
print CGI::header();
# Name of the datasource
#my $dsn = "dbi:mysql:mechdbtest:localhost:6900";
my $dsn = "dbi:mysql:zax:ol.freeshell.org:3306";
# Login credentials
#my $user = "bt";
#my $pass = "bt";
my $user = "zax";
my $pass = "mechdb";
# Get a handle to the database.
my $dbh = DBI->connect($dsn, $user, $pass) or die "Can't connect to the DB: $DBI::errstr\n";
# Parameters from the HTML form
%P = ();
# Determine the script name so that it can properly reference itself
$0 =~ m,/([^/]+)$,;
my $script = $1;
# Generate some Name->Id and Id->Name lookup tables
my %ClassNameToId = GenerateLookup("Class", "Name,Id");
my %ClassIdToName = reverse(%ClassNameToId);
my %TechNameToId = GenerateLookup("Tech", "ShortName,Id");
my %TechIdToName = reverse(%TechNameToId);
my %EquipmentNameToId = GenerateLookup("Equipment", "ShortName,Id");
my %EquipmentIdToName = reverse(%EquipmentNameToId);
my %WeaponNameToId = GenerateLookup("Weapon", "ShortName,Id");
my %WeaponIdToName = reverse(%WeaponNameToId);
my %WeaponClassNameToId = GenerateLookup("WeaponClass", "ShortName,Id");
my %WeaponClassIdToName = reverse(%WeaponClassNameToId);
my %WeaponTypeNameToId = GenerateLookup("WeaponType", "Name,Id");
my %WeaponTypeIdToName = reverse(%WeaponTypeNameToId);
# Tooltips!
my %EquipmentTooltip = (
'BAP' => 'Beagle Active Probe
Passive
Extends your radar range to 1200 meters',
'ECM' => 'Electronic Countermeasures
Passive
Jams incoming missile radar, making it take longer for an enemy to get a lock',
'IFF' => 'Friend-or-Foe Jammer
Passive
Sends out a neutral signal to all receiving radar, making it impossible to determine if you are friend or foe',
'LA' => 'Light Amplification
Active
Turn on to increase visibility in low-light conditions',
'AMS' => 'Anti-Missile System
Passive
When a locked missile volley is incoming, a portion of them will be neutralized',
'JJ' => 'Jump Jets
Active
Provides your mech with limited periods of flight',
);
my %WeaponData = GetWeaponData();
my %WeaponTooltips = GenerateWeaponTooltips(%WeaponData);
# For Low-Bandwidth display
my %ArmorTypeLongToShort = ("Standard" => "Std", "Reflective" => "Rfl", "Reactive" => "Rct", "Solarian" => "Slr", "Ferro" => "Fer");
print "
\n" if ($ENV{DEBUG});
ParseParams();
my $RestrictMechStatement = BuildRestrictionStatement();
print "DEBUG: CALL GetFullMechConfig('$RestrictMechStatement');
\n" if $ENV{DEBUG};
# Prevent hitting the DB unless we're actually searching (e.g. skip getting the mech list on first load)
my @FullMechConfig = (defined $P{'Search'} || defined $P{'special'}) ? ExecSql("CALL GetFullMechConfig('$RestrictMechStatement');") : ();
my @cOrder = ();
PrintPage();
sub PrintPage
{
print "\n";
print "\n";
PrintPageHeader();
print "\n";
if ($P{weapondata})
{
print GenerateWeaponList(1);
print "\n\n";
return;
}
# print "BattleTech: Firestorm Mech Search BETA
\n";
print "![](\"/img/mechsearch_header_v2.png\")
\n";
# Remove bandwidth param from query string so we can neatly append it to the quick URLs for BW version switching
$ENV{QUERY_STRING} =~ s/bw=(h|l)//;
# Feedback link
print "";
# Bandwidth-sensitive link
if ($P{bw} eq 'h') { print ""; }
else { print ""; }
PrintMechFilter(); # As long as this happens after we query the database for results, we can munge with the contents of %P.
# All columns:
# Id, Name, VariantName, Chassis, Class, Tech, Era, Weight, Sinks, Armor, ArmorType, Speed,
# AlphaStrike, Ballistic, Missile, Beam, Narc, Flare, BAP, JJ, ECM, AMS, IFF, LA
@cOrder = ('Name', 'VariantName', 'Chassis', 'Class', 'Tech', 'Weight', 'Sinks', 'Armor', 'ArmorType', 'Speed',
'AlphaStrike', 'DPS', 'Ballistic', 'Missile', 'Beam', 'Narc', 'Flare');
if ($P{bw} eq 'h') { push(@cOrder, 'BAP', 'JJ', 'ECM', 'AMS', 'IFF', 'LA'); }
else { push(@cOrder, 'Equipment'); }
PrintEventFloater();
# Only print the HTML list if they click 'Search' (or on one of the special links) -- no list on first load.
PrintHTMLList('Full Mech Config', \@cOrder, @FullMechConfig) if (defined $P{'Search'} || defined $P{'special'});
print "
*** Note: DPS and AlphaStrike figures are shown only for the weapons that we have data on. If a mech has weapons for which we do not have data, those weapons are not included in the calculation. If a mech has ONLY those weapons, then we are completely unable to calculate any value for these attributes. DPS calcs are the theoretical maximum DPS; they assume the trigger is always held down and there is zero time (other than reloading) between shots, and that every shot lands fully.\n";
print <
TODO:
Fix the issue with <=1 and =0 weapon searches
Make it more apparent that you can click column headers to sort
Weapon data on weapon mouseover (damage, range, heat, reloadtime)
Mech effective range? (smallest max range to largest max range?)
Mech average range? (average weapon max range)
Optimize the queries on the back end. There is significant hackery afoot.
Make it look pretty.
Whatever other suggestions or requests are made.
Disclaimer: This may not work the way you expect. Data current as of March 23, 2011. This tool is still in beta, please be gentle.
EOT
print "
RestrictMechStatement: '$RestrictMechStatement'
\n" if ($ENV{VERBOSE});
printf "Execution completed in %.2f seconds
\n", scalar tv_interval($start);
print "