Kristofer Wolff wrote: > hi folks, > > i write a tiny webserver in perl, and have a problem with the Query_String. > in the server i set up this: > > if ($r->method eq 'GET') > { > my $get = print $r->url();
$get will have the return from print in it (undef or 1 I believe), not the URL. Something like this may be more to your needs: my $get = $r->url(); print $get; If you aren't using strict at the start, you're probably making a mistake. :) > ($url, $ENV{QUERY_STRING}) = split(/\?/, $get); > } > > to get the string behind the '?' as the Query. than i open a .pl given by > the url: > > if($INTERPRETER{$inter}) > { > $out = `$INTERPRETER{$inter} $file`; > $c->send_response("$out"); > } > > it runs fine ! BUT: > if I run a env.pl like > $serversystem = $^O; > print "SERVERSYSTEM = $serversystem"; > print "<hr>"; > print "env:<hr>"; > @key = keys %ENV; > print "<table>"; > foreach (@key) > { > print "<tr><td>$_ </td><td>$ENV{$_}</td></tr>"; > } > print "</table>"; > print "<hr>"; > exit; > > there is no query at all ! > > My problem is, i have a website with many forms ( Get AND post ) how can i > use it in my perl server ? -- ,-/- __ _ _ $Bill Luebkert ICQ=14439852 (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/ _______________________________________________ Perl-Win32-Web mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web