[mv] Sending scratch variables to UserTags

["Mats Andersson" <Mats@brain.syh.fi>]

******    message to minivend-users from "Mats Andersson" <Mats@brain.syh.fi>     ******

Ces't la vie! My first mail to this group turns up all hacked and 
mangled. This is how it should look:

I have a UserTag 'md5hash' that accepts a string and converts it to a MD5 hash

-------------
UserTag md5hash HasEndTag
UserTag md5hash Interpolate
UserTag md5hash Routine <<<<EOF
sub {
my $val = shift;
my $hash = MD5->hexhash($val);
return $hash;
}
EOF         
-------------

If I send it a value like [md5hash]foo[/md5hash] I get a correct hash 
returned.

Now this tag is needed to calculate a hash for online banking. I should feed 
it a string like
0002&19&55&00042588INWX0000&LEHTI& 
and get a hash to check against a hash calculated by the bank. This is to 
check that payment was actually made.

The values sent from the bank is captured in scratch variables. I then build 
an other scratch like
--------
[set name=check_hash interpolate=1]
[scratch VERSION]&[scratch STAMP]&[scratch REF]&[scratch PAID]&LEHTI&
[/set]      
---------

This variable i need to send to the md5hash tag. I tried
[md5hash][scratch check_hash][/md5hash]
but this calculates the hash from the string "[scratch check_hash]".

I need to send the value of the check_hash to the tag. 

There must be some basic error in my tag or my thinking (probably both). I am 
fairly new to both Perl and MiniVend.

Version is 3.14

Any help GREATLY appreciated.


- Mats

Soft Brains Ab Oy
0500-661356

Pie Iesu domine, dona eis requiem....[bonk]
-
To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list