48 lines
993 B
Perl
48 lines
993 B
Perl
|
#!/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;
|