#!perl
use strict;
use CGI;
use DBI;
#use CGI::Carp 'fatalsToBrowser';
use XML::Twig;

my $dbh = dbh(); # connect
# customer database
my $sql1 = 'INSERT INTO c_details (f_name,l_name,dob,email) 
           VALUES (?,?,?,?)';
my $sth1 = $dbh->prepare($sql1);

# supplier database
my $sql2 = 'INSERT INTO s_details (name,address,tel_no) 
           VALUES (?,?,?)';
my $sth2 = $dbh->prepare($sql2);

my $cgi = CGI->new;                  
print $cgi->header(-type => "application/json", -charset => "utf-8");
my $xml = $cgi->param("POSTDATA");

# process file
my $t = XML::Twig->new(
  twig_handlers => { 
    'customer' => \&customer,
    'supplier' => \&supplier, }
);

$t->parse($xml);

sub customer {
  my ($t,$elt) = @_;
  my @f=();
  $f[0] = $elt->field('first_name');
  $f[1] = $elt->field('last_name');
  $f[2] = $elt->field('dob');
  $f[3] = $elt->field('email');  
  $sth1->execute(@f) or die $DBI::errstr;
  print join "\t",$sql1,@f,"\n";
}

sub supplier {
  my ($t,$elt) = @_;
  my @f=();
  $f[0] = $elt->field('name');
  $f[1] = $elt->field('address');
  $f[2] = $elt->field('tel-no');
  $sth2->execute(@f) or die $DBI::errstr;
  print join "\t",$sql2,@f,"\n";
}