GlobalSubs -- Issues with getting them to work?!

[Jason Korkin <jkorkin@korksoft.com>]

******    message to minivend-users from Jason Korkin <jkorkin@korksoft.com>     ******

Hi All,
    Wrote the following GlobalSub; tried to (1) #include it at the end of the
minivend.cfg file, (2) write it directly in the minivend.cfg file... how come
I cannot get it to work (or any GlobalSub for that matter)?

GlobalSub <<EndOfSub
sub GetUserRecord       {
        my($record) = @_;

        open(DATA, "< /home/shoes/data/$record");
        while(<DATA>)   {
                chop;
                my($tag, $name, $lsize, $rsize, $lwidth, $rwidth, $scale) =
split(/::/, $_);
                if ($tag eq "QUIKSRCH" && $name ne "")  {
                        Safe::$Safe{values}->{name} = $name;
                        Safe::$Safe{values}->{lsize} = $lsize;
                        Safe::$Safe{values}->{rsize} = $rsize;
                        Safe::$Safe{values}->{lwidth} = $lwidth;
                        Safe::$Safe{values}->{rwidth} = $rwidth;
                        Safe::$Safe{values}->{scale} = $scale;
                }
        }
        close(DATA);
        return '';
}

EndOfSub

    Any ideas?  Basically what it is doing is loading a bunch of values into
MV space... (more or less simplified).  Any help would be greatly appreciated... am
I overlooking something here?

    Thanks,

    Jason Korkin.

PS> To the person who answers this questions correctly first, you will receive one
month of free Minivend web hosting on one of our servers.

-
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