You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

47 lines
1.3 KiB

#!/usr/bin/perl
#
# $Id: shop.pl,v 1.1 2006/05/24 18:38:39 ddoughty Exp $
#
# Source File: shop.pl
# Get config
require 'sitecfg.pl';
require 'testlib.pl';
&app_initialize;
print "Content-Type: text/html\n\n";
if (&get_session($FORM{'tid'}, 1)) {
$SESSION{'clid'} = $FORM{'clid'};
$SESSION{'lang'} = $FORM{'lang'};
&setbrowsertype();
&LanguageSupportInit();
if ($FORM{'dbop'} eq 'shop' || $FORM{'dbop'} eq 'preview') {
&get_client_profile($SESSION{'clid'});
&show_template("shop");
} elsif ($FORM{'dbop'} eq 'confirm') {
### Save order
@orders = &get_data("orders.".$SESSION{'clid'}, 1);
my $oid = $$;
push(@orders, "$oid&".$SESSION{'uid'}."&".$FORM{'orderlist'}."&".$FORM{'total'}."\n");
&save_orders();
### Send user to CC processing
#$FORM{'merchanturl'} = "https://63.211.85.113:21027/sandbox/cc.php";
$FORM{'merchanturl'} = "https://www.goemerchant4.com/trans_center/gateway/process.cgi";
$FORM{'OrderID'} = $SESSION{'clid'}."-$oid";
$url = "https://".$ENV{'SERVER_NAME'};
if ($ENV{'SERVER_PORT'} != 443) {
$url .= ":".$ENV{'SERVER_PORT'};
}
$url .= "$PATHS{'cgiroot'}/shopreturn.pl";
$FORM{'URL'} = $url;
&show_template("shop");
} else {
&show_illegal_access_warning("user");
}
} else {
&show_illegal_access_warning("user");
}