An app by Sean Newton, for GunWiki.net
If this application has helped you, please consider making a small donation to GunWiki. Particularly if this app has shown
you how to avoid buying an $80 caliber conversion by picking up one or two inexpensive parts!
Please note that the instructions contain some
non-obvious information you should probably read before you just start clicking away. Of course, if you really want
to just start clicking, feel free.
<%
use strict;
my %OwnedConversions;
my %OwnedParts;
my %DesiredConversions;
my %DesiredParts;
my $dbh=CS::MakeConnect('gunwiki') or die "Can't connect to host!";
my %Machines=CS::LoadHash($dbh, 'calconv_machine', 'id,descr');
my $Action=$Request->QueryString('go');
my %Conversion=CS::LoadHash($dbh, 'calconv_conversion', 'id,descr');
my %MachConv=CS::LoadHash($dbh, 'calconv_conversion', 'id,machine');
my $MachineList=$Request->QueryString('ml');
$MachineList='' unless($MachineList=~m/^[\d,]+$/);
my $Gray ='#A0A0A0';
my $Green ='#80FF80';
my $Red ='#FF4040';
my $Yellow='#FFFF80';
%>
In case you can't find the caliber you're looking for, you may request a new conversion here.
I don't have a lot of major connections, but I do periodically beg Dillon and Brian Enos for more info.
<%
$dbh->disconnect;
return;
} elsif($Action eq 'Choose Machines') {
foreach(keys %Machines) { $MachineList.="$_,"if($Request->QueryString('machine_'.$_) eq 'on'); }
$MachineList=~s/,$//;
}
%>
';
$Count=1;
my $Lines=0;
my $PerColumn=int(@List/$Cols);
++$PerColumn if(@List/$Cols);
# printf "Columns requested: %d, number of calibers in block: %d, per column: %f\n", $Cols, scalar(@List), $PerColumn;
my $Lines=0;
while(($Lines*$Cols)<@List)
{
$Buf.=sprintf "
\n
", ($Lines%2)?'#F0F0F0':'#FFFFFF';
$Buf.=@List[$Lines];
my $Across=1;
while($Across<$Cols)
{
$Buf.='
';
print $Buf;
}
}
%>
<%
if($Request->QueryString('go') ne '') {
my %PartType=CS::LoadHash($dbh, 'calconv_parttype', 'id,descr');
my (%PartID, %PartDesc, %PartFriendly);
{
my ($id, $type, $designation);
my $sth=CS::SelectRecs($dbh, 'calconv_part', 'id,parttype,designation', '', \$id, \$type, \$designation);
while($sth->fetch)
{ $PartID{$id}=$type; $PartDesc{$id}=$designation; $PartFriendly{$id}=$PartType{$type}.' '.$designation }
$sth->finish;
}
my %SpreadOut;
my %TypeColumns;
{
my ($conversion, $part);
my $sth=CS::SelectRecs($dbh, 'calconv_conversion_parts', 'conversion,part', undef, \$conversion, \$part);
while($sth->fetch)
{
next unless($OwnedConversions{$conversion}||$DesiredConversions{$conversion});
$TypeColumns{$PartType{$PartID{$part}}}=1;
$SpreadOut{$conversion}{$PartType{$PartID{$part}}}.=','.$part;
if($OwnedConversions{$conversion}) { $OwnedParts{$part}=1; }
if($DesiredConversions{$conversion}) { $DesiredParts{$part}=1; }
}
$sth->finish;
}
if($Request->QueryString('go') eq 'Spreadsheet View')
{
print "Legend: ";
print "
\n";
print "
Have
\n";
print "
Don't have, want
\n";
print "
N/A
\n";
print "
\n";
print "
\n
Machine
Caliber
";
foreach(sort keys %TypeColumns) { print "
$_
\n"; }
print "
\n";
foreach my $conversion (sort keys %SpreadOut)
{
next unless($DesiredConversions{$conversion}||$OwnedConversions{$conversion});
my $CellColor=$Green;
my ($Missing, $ConvBuf);
foreach my $blah (sort keys %TypeColumns)
{
my $Temp=$SpreadOut{$conversion}{$blah};
$Temp=~s/^,//;
my $Cell;
my $bgcolor=$Gray;
my @List=split (',', $Temp);
$Cell.='
