#!/usr/bin/perl -w
                              
use strict;
#use CGI;
#use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use bytes;

use lib '../modules';
use bSerialize;

binmode STDOUT;
binmode STDIN;

read(STDIN, my $binary, $ENV{CONTENT_LENGTH});

my @header = (
    'Content-Type: text/html', # HTTP/1.0 200 OK
);
push @header, "Content-Length: $ENV{CONTENT_LENGTH}";

print join("\r\n", @header), "\r\n\r\n$binary";

my $bs = bSerialize->new;
my $bin2eav1 = $bs->bin2eav( \$binary );

open DEBUG, "> ../debug.txt" or die "../debug.txt: $!";
foreach my $key (keys %$bin2eav1) {
    print DEBUG $key."\n";
    print DEBUG "name: ".$bin2eav1->{$key}->{name}."\n";
    print DEBUG "size: ".$bin2eav1->{$key}->{size}."\n";
    print DEBUG "type: ".$bin2eav1->{$key}->{type}."\n";
    print DEBUG "binary: ".$bin2eav1->{$key}->{binary}."\n";
    print DEBUG "--------------------------------------\n";
    open FH0, "> ../".$bin2eav1->{$key}->{name} or die ": $!"; print FH0 $bin2eav1->{$key}->{binary} ; close FH0;
}
close DEBUG; 
exit;