use strict;
use DBI;
use CGI::Session;
use CGI qw(:standard);
my $query = new CGI;
print "HTTP/1.0 200 OK\n";
print "Content-type:text/html\n\n\n";
print"\n";
print "\n";
print "Members";
print "\n\n\n";
print"\n";
my $sid = $query->cookie("CGISESSID") || undef;
my $session = new CGI::Session(undef, $sid, {Directory=>'Temp/'});
my ($naijaXMLRequest);
$naijaXMLRequest = "";
$naijaXMLRequest .= "$trans_type";
$naijaXMLRequest .= "NAIJAMAN009";
$naijaXMLRequest .= "$transaction_id";
$naijaXMLRequest .= "$mem_number";
$naijaXMLRequest .= "$apt";
$naijaXMLRequest .= "$month";
$naijaXMLRequest .= "$year";
$naijaXMLRequest .= "$amount";
$naijaXMLRequest .= "";
my $mem = new LastBill;
$mem->sendHTTP( "$gateway", "$naijaXMLRequest" );
$session->delete();
}
}
print qq[];