[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Target in CGI



Hi,

I am currently using someone elses CGI script to use a pull down 
menu system to go to other pages shown working here - 
http://www.djassociates.com/dja/cgi-bin/index.html

however, If I was to create a frameset, is there a way of making the 
script target to 'main' - showing the pages that load using the menu 
in another frame?

here is the script-
thanks in advance - James

&FormInput(*input);

if($input{'goto'} eq "")
{
        print "HTTP/1.0 302 Temporary Redirection\r\n" if $ENV{PERLXS} 
eq "PerlIS";
        print "Content-type: text/html\n";
        print ("Location: $main\n\n");
}
else
{
        if ($input{'goto'} !~ m?://?)
        {
                $input{'goto'} = "http://" . $input{'goto'};
        }
        print "HTTP/1.0 302 Temporary Redirection\r\n" if $ENV{PERLXS} 
eq "PerlIS";
        print "Content-type: text/html\n";
        print ("Location: $input{'goto'}\n\n");
}

exit;
#-------------------------------------------------------------
# FormInput: Function
#-------------------------------------------------------------
sub FormInput
{
local (*qs) = @_ if @_;

if ($ENV{'REQUEST_METHOD'} eq "GET")
{
        $qs = $ENV{'QUERY_STRING'};
}
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
{
        read(STDIN,$qs,$ENV{'CONTENT_LENGTH'});
}

@qs = split(/&/,$qs);

foreach $i (0 .. $#qs)
{
        $qs[$i] =~ s/\+/ /g;
        $qs[$i] =~ s/%(..)/pack("c",hex($1))/ge;

        ($name,$value) = split(/=/,$qs[$i],2);

        if($qs{$name} ne "")
        {
                $qs{$name} = "$qs{$name}:$value";
        }
        else
        {
                $qs{$name} = $value;
        }
}

return 1;
}

~  James Fox
~  james@djassociates.com
~  +44 (0) 114 2210525

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org