Gossamer Forum: Products: Gossamer Links: Development, Plugins and Globals: View all variables in $IN?

Aug 21, 2002, 9:30 AM

Andy

Veteran / Moderator (17298 posts)

Aug 21, 2002, 9:30 AM

Post #1 of 18

Shortcut

View all variables in $IN?

Is their a way to print out all the variables in the $IN hash? With an array, I would just use;

foreach $line (@array) { print $line. "<BR>"; }

Any ideas? I feel pretty stupid for making this post Frown

Cheers

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Aug 21, 2002, 9:41 AM

Aki

Staff (429 posts)

Aug 21, 2002, 9:41 AM

Post #2 of 18

Shortcut

Re: [Andy] View all variables in $IN? In reply to

Try;

foreach $line ($IN->param) { print $line. "<BR>"; }

Like in CGI. $IN->get_hash(); will give you a hash reference to all the data

Aug 21, 2002, 9:52 AM

Andy

Veteran / Moderator (17298 posts)

Aug 21, 2002, 9:52 AM

Post #3 of 18

Shortcut

Re: [Aki] View all variables in $IN? In reply to

Hi..that worked great, but it proved my fear :(

It printed out;

Description
Title
OfferDiscount
URL
CatLinks.CategoryID
d
add
Contact_Name
Contact_Email
Type
State

As you can see, nothing referencing the user that is logged in. How easy would it be to grab the username of the person trying to add the link?

Cheers

Andy (mod)
andy@ultranerds.co.uk

Aug 21, 2002, 10:07 AM

Aki

Staff (429 posts)

Aug 21, 2002, 10:07 AM

Post #4 of 18

Shortcut

Re: [Andy] View all variables in $IN? In reply to

This will hopefully give you all the info you need

Code:
 use Links qw/ $IN $DB $CFG $USER /; 

# and somewhere 

if ( $USER ) { 

  require GT::Dumper; 

  print GT::Dumper->dump( $USER ); 

} 

else { 

  print "no user logged in"; 

}

Aug 21, 2002, 10:15 AM

Andy

Veteran / Moderator (17298 posts)

Aug 21, 2002, 10:15 AM

Post #5 of 18

Shortcut

Re: [Aki] View all variables in $IN? In reply to

Mmm...all it seems to do is print;

= undef;

Any ideas?

Cheers for the help so far Smile

Andy (mod)
andy@ultranerds.co.uk

Aug 21, 2002, 10:17 AM

Aki

Staff (429 posts)

Aug 21, 2002, 10:17 AM

Post #6 of 18

Shortcut

Re: [Andy] View all variables in $IN? In reply to

Make sure the calling script also calls init_user(). I think you'll find an example of the calling convention in page.cgi. What USER should contain is a hashed record of everything found for the user in the Users table. Unimpressed

Aug 21, 2002, 10:45 AM

Andy

Veteran / Moderator (17298 posts)

Aug 21, 2002, 10:45 AM

Post #7 of 18

Shortcut

Re: [Aki] View all variables in $IN? In reply to

I already have Links::init_user called. See my top part here;

Code:
    use strict; 
    use GT::Base; 
    use GT::Plugins qw/STOP CONTINUE/; 
    use Links qw/$CFG $IN $DB $USER/; 
    Links::init_user(); 

# Inherit from base class for debug and error methods 
    @Plugins::Check_User_Add::ISA = qw(GT::Base); 

# Your code begins here! Good Luck!

Cheers

Andy (mod)
andy@ultranerds.co.uk

Aug 21, 2002, 10:57 AM

Aki

Staff (429 posts)

Aug 21, 2002, 10:57 AM

Post #8 of 18

Shortcut

Re: [Andy] View all variables in $IN? In reply to

Can you add this call

Links::init("path/to/admin");

before you call init_user?

Aug 21, 2002, 11:33 AM

Andy

Veteran / Moderator (17298 posts)

Aug 21, 2002, 11:33 AM

Post #9 of 18

Shortcut

Re: [Aki] View all variables in $IN? In reply to

Did that....still giving;

= undef;

Unsure

Cheers

Andy (mod)
andy@ultranerds.co.uk

Aug 21, 2002, 12:15 PM

Aki

Staff (429 posts)

Aug 21, 2002, 12:15 PM

Post #10 of 18

Shortcut

Re: [Andy] View all variables in $IN? In reply to

mind sending me the source?

Aug 21, 2002, 12:16 PM

Ian

Veteran / Moderator (2577 posts)

Aug 21, 2002, 12:16 PM

Post #11 of 18

Shortcut

Re: [Aki] View all variables in $IN? In reply to

Can I send you mine too? (just kidding) Angelic

http://www.iuni.com/...tware/web/index.html
Links Plugins

Aug 21, 2002, 12:25 PM

PerlPod2

Novice (22 posts)

Aug 21, 2002, 12:25 PM

Post #12 of 18

Shortcut

Re: [Andy] View all variables in $IN? In reply to

You are logged in when trying the code?

I don't have that much experience really but I'll try to help, unless of course you have already sent your code to Aki.