#!/usr/bin/perl
{
    package MyWebServer;
    # https://metacpan.org/pod/HTTP::Server::Simple
    # curl --header "Content-Type: application/json" --request POST --data '{ "type":"cardCheck", "date":"1482307795601", "lang": "EN", "machineName":"PLUSMAKM", "cardNumber":"1234567890", "PIN": "1234" }' http://localhost:2999
    use lib qw (/home/pi/cashcade /home/gary/projects/cashcade);

    use HTTP::Server::Simple::CGI;
    use base qw(HTTP::Server::Simple::CGI);
    # use HTTP::Server::Simple;
    # use base qw(HTTP::Server::Simple);
    use Data::Dumper;
    use JSON;



    sub handle_request {
        my $self = shift;
        my $cgi  = shift;
        my $json_string = $cgi->param('POSTDATA');
        # { "type":"cardCheck", "date":"1482307795601", "lang": "EN", "machineName":"PLUSMAKM", "cardNumber":"1234567890", "PIN": "1234" }
        print "json_string=$json_string\n";
        $json_dict = decode_json $json_string;
        print "json_dict=" . Dumper($json_dict) . "\n";
        my $msg = $json_dict->{param}->{POSTDATA}->[0];
        # my $response = $self->{kiosk}->process($msg);  # note: this says I cannot call on undefined, the problme is, how do I pass the object in
        # print "response=$response\n";
        return $msg;
    }
}


sub sigIntHandler { exit; }
END {
    print "MAIN: END*END*END*END*END*END*END*END*END*END*END*END*END*END\n";
    $kiosk->disconnect();
}


my $kiosk_port = shift // 'unknown';
die "FATAL ERROR: Need to specify a port\n" unless ($kiosk_port ne 'unknown');
my $placard = shift // 'unknown';
die "FATAL ERROR: Need to specify a placard\n" unless ($placard ne 'unknown');
my $debug_level = shift // 9; # TODO: make level higher on final

print "$placard, $debug_level\n";

use Kiosk;
# start the server on port __
print "INSTANTIATING SERVER port $kiosk_port ==============================\n";
my $server = MyWebServer->new($kiosk_port);
print "INSTANTIATING KIOSK ==============================\n";
$kiosk = Kiosk->new($placard, $server, $debug_level);