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

[synapse0]

Ok.. well I can honestly say I'm not sure what you're trying to do then.. are you trying to call an external program and give it the query string?? if so, you can just set $ENV{QUERY_STRING} to your string, and exec the other cgi.. Otherwise, I need a little clarification..
(i'm at work right now and only half paying attention, that may have something to do with it...)
-Syn0

[bikeNomad]

I've got an image that's generated by another CGI script. So I want to generate something that looks like:

<img src="graph&channel=1&xsize=300&ysize=400">

[merlyn]

No you don't. You want to generate

<img src="graph?channel=1&amp;xsize=300&amp;ysize=400">

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), "\">";

-- Randal L. Schwartz, Perl hacker

[bikeNomad]

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
            }
        );