[ic] MD5-problem

Peter Hellman PHELLMAN@brain.syh.fi
Tue, 28 Nov 2000 14:00:40 +0200

Hi !
I have a minivend 3.14 running, where MD5 is running smoothly.
Now I want to upgrafe my site to Interchange 4.6.

My ISP have installed Bundle::Interchange, that means that the 
nesessary modules should be there.

Hereīs my problem:
I can make a script as follows, giving me the right value back:

use Digest::MD5 qw(md5_hex);

my $val = 123456789;
my $hash = md5_hex($val);
print $hash, "\n";

Now, when I try to write a subroutine like:
UserTag md5hash Interpolate
UserTag md5hash HasEndTag
UserTag md5hash Routine <<EOF
use Digest::MD5 qw(md5_hex);
sub {
my $val = shift;
my $hash = md5_hex($val);
return $hash;
in the catalog.cfg it doesnīt work at all.

When restarting the server I get:
Configuring catalog kauppa...UserTag 'md5hash' subroutine failed 
safe check: require trapped by operation mask at (eval 211) line 1, 
<CONFIG> line 93.

In line 93 of the configuration file 'catalog.cfg':
UserTag md5hash Routine <<EOF
Please help me, I donīt know where to look for the "error".
Thanks in advance !
Peter Hellman

        -   Today is the first day of the rest of your life.   -