Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: a quick stab at a public links page

by CharlesClarkson (Curate)
on Jul 22, 2001 at 20:35 UTC ( #98836=note: print w/ replies, xml ) Need Help??


in reply to a quick stab at a public links page

I took a closer look at your script and you don't need CGI::Vars at all. You may want to read the documentation on CGI.pm. Your missing a lot of oppurtunities. Here are few corrections that may have you up and going quickly.

On this line we're creating %params.
my (%params) = $query->Vars;

CGI.pm has a function for this: param. To access any parameter, just call param('any'). To use it as a function we need to change use CGI; to use CGI qw/param/;

Now that we can access param directly, let's make a few changes.

my ($command) = $params{'command'}; touch() if ($command eq "touch"); addlink() if ($command eq "add");
becomes:
touch() if param('command') eq 'touch'; addlink() if param('command') eq 'add';
---------
errorpage("You must fill in both fields!") if (($params{'name'} eq "") || ($params{'url'} eq ""));
becomes:
errorpage('You must fill in both fields!') if param('name') eq '' || param('url') eq '';
---------
print FILE $params{'name'}." ".$params{'url'}."\n";
becomes: print FILE param('name'), ' ', param('url'), "\n";

HTH,
Charles K. Clarkson


Comment on Re: a quick stab at a public links page
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://98836]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2014-09-23 07:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (210 votes), past polls