#!/usr/bin/perl

print "Content-type: text/html\n\n";

BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
    
require cfg ;

&today ;

#------------------------------------------------------------------------------------------

@ARGV = split(/\\*\&/, $ENV{'QUERY_STRING'});

my $client = $ARGV[0] ;

my ($clientid,$client_accno,$client,$client_branch) = split(/\:/,$client) ;

#------------------------------------------------------------------------------------------

use DBI;
use CGI::Carp qw(fatalsToBrowser);

&get_db_client_details ;

print $json ;

exit ;

#------------------------------------------------------------------------------------------

sub get_db_client_details {

&db_get_client($clientid) ;

$json = '[' ;

$json .= qq(
{"email1":"$cl_email_1","email2":"$cl_email_2","email3":"$cl_email_3","badclient":"$cl_badclient"}) ;   

$json .= ']' ;
    
} #------------------------------------------------------------------------------------------

use db ;
use today ;

1;