Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Re: Re: Re: Re: Best way to generate URLs in CGI script?

by merlyn (Sage)
on Jul 27, 2001 at 22:06 UTC ( [id://100400]=note: print w/replies, xml ) Need Help??


in reply to Re: Re: Re: Re: Best way to generate URLs in CGI script?
in thread Best way to generate URLs in CGI script?

No you don't. You want to generate 
<img src="graph?channel=1&amp;xsize=300&amp;ysize=400">

[download]
This is HTML, so HTML entities must be escaped. The code is somewhat simple (typing this from memory, so be kind if I've made a mistake): 
use URI; use HTML::Entities;
my $uri = URI->new("graph", "http");
$uri->query_form(channel => 1, xsize => 300, ysize => 400);
print "<img src=\"", encode_entities($uri->as_string), "\">";

[download]

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Re: Best way to generate URLs in CGI script?
by bikeNomad (Priest) on Jul 27, 2001 at 22:17 UTC
    Actually, I only had to do this (still using CGI):

    use CGI;
use URI;
    my $target   = URI->new( 'graph', 'http' );
    $target->query_form(
           channel => 1,
            xsize => $xsize,
            ysize => $ysize,
        );
         print $q->img(
            {
                -width  => $xsize,
                -height => $ysize,
                -src    => $target->path_query
            }
        );

    [download]
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://100400]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2024-04-25 05:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found