#!/usr/bin/perl
use warnings;
#use this to test cc transaction, it simulates the output of perlshop
use warnings;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$grand_total= '109.34';
$order_id= '999999999';
$street1= '9 9th Street';
$country= 'US';
$email= 'z9@z9.com';
$first= 'zjoe';
$last= 'zmon';
$card_no= '4111 1111 1111 1111';
$exp_mon= '09';
$exp_yr= '2004';
$zip= '48127';

$ua = LWP::UserAgent->new();
$req = POST 'http://zentara.zentara.net/~zentara/cgi-bin/store/respgen.pl',
  
 ['IOC_merchant_id' => '1983645028456zz',
  'IOC_order_total_amount' => "$grand_total",
  'IOC_merchant_shopper_id' => 'susehost',
  'IOC_merchant_order_id' => "$order_id",
  'ecom_billto_postal_street_line1' => "$street1",
  'ecom_billto_postal_postalcode' => "$zip",
  'ecom_billto_postal_countrycode' => "$country",
  'ecom_billto_online_email' => "$email",
  'ecom_payment_card_name' => "$first $last",
  'ecom_payment_card_number' => "$card_no",
  'ecom_payment_card_expdate_month' => "$exp_mon",
  'ecom_payment_card_expdate_year' => "$exp_yr",
  'url' => 'http://zentara.zentara.net/~zentara/cgi-bin/shop/boacc.pl',
 ];
$content = $ua->request($req)->as_string;
print $content;

##</code><code>##

#!/usr/bin/perl
use warnings;
use CGI;
use LWP::UserAgent;
my $test= 'TRUE';
#my test= 'FALSE';
my $relay;
my $cgi = new CGI;
my %input= $cgi->Vars(); 
open (TEST,"+>zrelayvars");
foreach $name (keys %input){
        $value = $input{$name};    
        print TEST "$name=$value\n";
        $relay .= "$name=$value&";
         }
$relay .= "Ecom_transaction_complete=$test&";
$relay .= "IOC_response_code=0&";
close TEST;         

my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new (POST => 'https://zentara.zentara.net/~zentara/cgi-bin/shop/boacc.pl');
$req->content_type('application/x-www-form-urlencoded');
$req->content("$relay");
my $res = $ua->request($req);
print $res->as_string;