[misterhouse-users] Passing multiple args to web_funcs

[David S. <dav...@ya...>]

Hi,
 
This code:
 
        $html_calls .= "<td nowrap>$time</td><td nowrap><a href=\"play_message.pl?user=$user&box=$boxnum&message=$key\"><img src='/graphics/icons/listen.png' border=0 alt='Play message'></a><a href=\"/SUB?vocp_clearmsgs($user,$boxnum,$key)\"><img src='/graphics/icons/listen.png' border=0 alt='Delete message'></a>&nbsp;$number</td><td nowrap>$name2</td><td nowrap>$size</td></tr>";
 
Is trying to pass three args to my web_func vocp_clearmsgs. For some reason, all the args are globbed into the first element of the subroutine. I don't know what I did wrong. My workaround was this:
 
  sub vocp_clearmsgs
{
    my $args = shift;
    my ($user,$mailbox,$message) = split ',', $args;
    print "clearmsgs: mbx:$mailbox user:$user msg:$message";
}
 
What am I doing wrong? How do I get the args to be passed as an array?
Thanks,
David Satterfield

		
---------------------------------
Do you Yahoo!?
 Meet the all-new My Yahoo! – Try it today!