Members

Global symbol "$trans_type" requires explicit package name at noname.pl line 26. Global symbol "$transaction_id" requires explicit package name at noname.pl line 28. Global symbol "$mem_number" requires explicit package name at noname.pl line 29. Global symbol "$apt" requires explicit package name at noname.pl line 30. Global symbol "$month" requires explicit package name at noname.pl line 31. Global symbol "$year" requires explicit package name at noname.pl line 32. Global symbol "$amount" requires explicit package name at noname.pl line 33. Global symbol "$gateway" requires explicit package name at noname.pl line 38. Unmatched right curly bracket at noname.pl line 42, at end of line syntax error at noname.pl line 42, near "}" noname.pl has too many errors. ##

##

use strict;
use DBI;
use CGI::Session;
use CGI qw(:standard);

my $query = new CGI;

print <

Members




HEADER

my $sid = $query->cookie("CGISESSID") || undef;
my $session = new CGI::Session(undef, $sid, {Directory => 'Temp/'});
my $trans_type = 'xxx';
my $transaction_id = 'xxx';
my $mem_number = 'xxx';
my $apt = 'xxx';
my $month = 'xxx';
my $year = 'xxx';
my $amount = 'xxx';
my $naijaXMLRequest = <";
    $trans_type";
    NAIJAMAN009";
    $transaction_id";
    $mem_number";
    $apt";
    $month";
    $year";
    $amount";
";
XML

my $mem = new LastBill;
my $gateway = 'xxx';
$mem->sendHTTP($gateway, "$naijaXMLRequest");


$session->delete();

print
    qq[];