#!/usr/bin/perl

require "../cgi-lib.pl";
ReadParse(*params);
print "Content-Type: text/html\n\n";
print "<form style=\"display: inline;\">\n";
print "Item ID: <input type=\"text\" value=\"".value_safe($params{id})."\" name=\"id\">\n";
print "Type: <select name=\"type\">\n";
%types = (
    S => 'Set',
    G => 'Gear',
    B => 'Book',
    M => 'Minifig',
    );
foreach my $t (keys %types) {
    print "<option value=\"$t\"".(($params{type} eq $t) ? " selected" : "").">$types{$t}</option>\n";
}
print "</select>\n";

print "Currency: <select name=\"currency\">\n";
%cur = (
    'AUD' => 'Australian Dollar',
    'BRL' => 'Brazillian Dollar',
    'CAD' => 'Canadian Dollar',
    'CHF' => 'Swiss Franc',
    'CZK' => '',
    'DKK' => 'Danish Kroner',
    'EUR' => 'European Euro',
    'GBP' => 'British Pound',
    'HKD' => 'Hong Kong Dollar',
    'HRK' => '',
    'HUF' => '',
    'IDR' => '',
    'JPY' => 'Japanese Yen',
    'KRW' => '',
    'NOK' => '',
    'NZD' => '',
    'PLN' => '',
    'RSD' => '',
    'RUB' => '',
    'SEK' => '',
    'SGD' => '',
    'TWD' => '',
    'UAH' => '',
    'USD' => 'US Dollar',
    'ZAR' => '',
    );
foreach my $c (sort keys %cur) {
    print "<option value=\"$c\"".(($params{currency} eq $c || (!$params{currency} && $c eq "USD")) ? " selected" : "").">$c</option>\n";
}
print "</select>\n";
print "<br>\n";

print "<select name=\"qty\">\n";
print "<option value=\"Y\">Count Total Quantity</option>\n";
print "<option value=\"N\"".(($params{qty} eq "N") ? " selected" : "").">Count Transactions</option>\n";
print "</select>\n";

print "This Currency Only: <input type=\"checkbox\" name=\"cur_only\" value=\"1\"".(($params{cur_only}) ? " checked" : "").">\n";
print "<input type=\"submit\" value=\"Retrieve\">\n";
print "</form><br><br>\n";
if($params{id}) {
    print "<img src=\"bl_price_graph.cgi?";
    print "id=".url_safe($params{id});
    print "&type=".url_safe($params{type});
    print "&currency=".url_safe($params{currency});
    print "&cur_only=".url_safe($params{cur_only});
    print "&qty=N" if($params{qty} eq "N");
    print "\">";
    print "<br>\n";
}

sub value_safe {
    my($val) = @_;
    $val =~ s/\&/&amp;/gsi;
    $val =~ s/\"/&quot;/gsi;
    $val =~ s/>/&gt;/gsi;
    $val =~ s/</&lt;/gsi;
    $val =~ s/([^A-Za-z0-9\~\!\@\#\$\%\^\&\*\(\)\_\+\{\}\|\:\"\<\>\?\`\-\=\[\]\\\;\'\,\.\/\ ])/"&#".ord($1).";"/gse;
    return $val;
}

sub url_safe {
    my($val) = @_;
    $val =~ s/([^A-Za-z0-9])/"%".sprintf("%x",ord($1))/gse;
    return $val;
}