[Monetra]
| Link | Monetra |
| Author | Marc Pope |
| Category | Custom Tag |
| Version | 8.x |
| License | http://opensource.org/licenses/gpl-license.php |
| Posted | 16 Jan 2006 |
| Updated | 17 Jan 2006 |
| More by this author... | |
Description
The Monetra tag connects to the Monetra Transaction Server to process credit card transactions. Monetra is a high-end multi-threaded virtual terminal for connecting to major processors such as Vital & First Data among others. If you are processing a large volume of credit cards each month, I highly recommend you check out this software. It's very comprehensive. Runs on many platforms including Mac, Win, Unix. See: www.monetra.com for more info. Props to Kyle Jessup for help with this tag.
Sample Usage
(insert:'username'='YOUR_USERNAME', 'password'='YOUR_PASS', 'action'='preauth', 'account'=$monetra_ccno, 'expdate'=$monetra_expdate, 'amount'=$monetra_authAmount, 'street'=$address, 'zip'=$zip, 'cv'=$cv_code, 'ptrannum'=$transactionID, 'clerkid'='001'); // attempt to preauthorize the amount var: 'result' = (monetra: $transactionID , $m_transaction); ?>
Source Code
Click the "Download" button below to retrieve a copy of this tag, including the complete documentation and sample usage shown on this page. Place the downloaded ".inc" file in your LassoStartup folder, restart Lasso, and you can begin using this tag immediately.
(first) + '=' + #m_temp->(second) + '\r\n';
/iterate;
local:'m_packet' = bytes;
#m_packet->import8Bits:0x02;
#m_packet->(importString:#transID, 'ISO-8859-1');
#m_packet->import8Bits:0x1c;
#m_packet->(importString:#m_query, 'ISO-8859-1');
#m_packet->import8Bits:0x03;
local:'_stx'= bytes;
#_stx->import8Bits:0x02;
local:'_fs'= bytes;
#_fs->import8Bits:0x1c;
local:'_etx'= bytes;
#_etx->import8Bits:0x03;
local:'m_connect'=(net);
local:'result'=(string);
local:'m_result'=(map);
#m_connect->setBlocking:false;
#m_connect->(connect: #m_server, #m_port);
if: #m_connect->(wait:#m_timeout, net_waitwrite) == net_waitwrite;
protect;
#m_connect->setBlocking:true;
#readpacket = #m_connect->(write: #m_packet);
// loop until end of transaction
while: #result !>> #_etx;
#result += #m_connect->(read:4096);
/while;
/protect;
// parse #result into #m_result array
protect;
#m_result = #result->(split: #_fs)->(get:2)->(split:#_etx)->(get:1);
#m_result = #m_result->(split:'\r\n');
#m_result->(remove: (#m_result->(size)));
/protect;
else;
#m_result->(insert:'Error,100');
#m_result->(insert:'ErrorMsg,Unable to connect to Monetra server!');
/if;
#m_connect->(close);
return: #m_result;
/define_tag;
?>
Related Tags
Comments
No comments
