in reply to Re^2: passing vars to a sub
in thread passing vars to a sub

Does
print "you passed $print_subsystem for server $server_name\n",br;
print out the same thing both times? (hardcoded and passed in)? can you try trammell's suggestion and see what the result is?
--------------
It's sad that a family can be torn apart by such a such a simple thing as a pack of wild dogs

Replies are listed 'Best First'.
Re^4: passing vars to a sub
by tcf03 (Deacon) on Mar 11, 2005 at 15:54 UTC
    yes It prints the same thing both times. Funny thing though, If I code the following
    print "first pass",br; get_status("cups", "rlinux1"); print "second pass",br; get_status($SERVERS[$rev_srv_num{$SERVER}]->[2], $SERVER);
    I get
    you passed cups for server rlinux1 RSPARE-35 TFIEDLER 117760 Wed Mar 9 16:58:54 2005 RSPARE-37 root 2048 Thu Mar 10 09:17:53 2005 R_NETADMIN-43 TFIEDLER 74752 Thu Mar 10 12:59:19 2005 R_NETADMIN_NB-44 TFIEDLER 74752 Thu Mar 10 12:59:44 2005 RSPARE-45 TFIEDLER 34816 Fri Mar 11 10:23:08 2005 second pass you passed cups for server rlinux1
    passed to my browser
    but If I change the order of the get_status calls (sending the variables in the first pass, and hard coding the second pass),
    I get:
    first pass you passed cups for server rlinux1
    It never makes it to the second pass.

    BTW I tried writing:get_status($SERVERS[$rev_srv_num{$SERVER}]->[2], $SERVER); as $SERVERS[$rev_srv_num{$SERVER}][2] and that doesnt work either
      Try doing this:
      $cmd = "/usr/bin/lpstat -h $server_name -o"; print $cmd, "\n"; @STATUS = qx/$cmd/;
      Just to see what the command line is each time... we're really just getting into prints for the sake of debugging here... I'm not sure why it's not working.
      --------------
      It's sad that a family can be torn apart by such a such a simple thing as a pack of wild dogs
        this is what is passed to the browser
        first pass you passed cups for server rlinux1 /usr/bin/lpstat -h rlinux1 -o