Bogus: «-» (PERL) JavaScript Variablen an Perl Script übergeben..??

Beitrag lesen

Hye Ihr!

Wieder einmal bin ich mit meinem Latein am Ende.
Ich schaffe es nicht, variablen, die mittels JavaScript definiert wurden, per SSI an ein Perl Script zu übermitteln.

folgenden code verwendete ich (unter anderen):
var requested = location.host;
var new_url = 'exec cgi="/cgi-bin/build_index.cgi?'+requested+'-->';
document.write ("<!--#"+new_url);

oder auch
var requested = location.host;
document.write("<!--#include virtual="/cgi-bin/build_index.cgi?"+requested+""-->");

aber es funktioniert nicht. sobald die zeile mit <!--# beginnt, wird das script aufgerufen...die variable aber nicht mit übermittelt :-(

der quelltext sieht nach einem seitenaufruf dann so aus:
<script>
var requested = location.host;
document.write("

das perl script sieht so aus:
------------------------------
#!/usr/bin/perl
#!c:\perl\bin\perl

use LWP::Simple;

print "content-type: text/html\n\n";
print "start";

print "$ENV{'QUERY_STRING'}";

$requested = $ENV{'QUERY_STRING'};

if ($requested =~ /announcen.at/ $requested =~ /anzeigenmarkt.at/) {
$doc = get "http://$ENV{'SERVER_NAME'}/announcen.at/frameset.shtml";
print $doc;
}
elsif ($requested =~ /energy-drinks.at/ $requested =~ /in-getraenke.at/) {
$doc = get "http://$ENV{'SERVER_NAME'}/energy-drinks.at";
print $doc;
}
elsif ($requested =~ /predl.com/) {
$doc = get "http://www.predl.com/predl_home.shtml";
print $doc;
}
else {
print "content-type: text/html\n\n";
print "Wegweiser";
}
------------------------------

ich steh voll im wald. ich hab schon alle möglichen variationen versucht :-(
was will ich:
ich habe mehrere URL's für meinen server.
wenn ein user zb. über die url www.anzeigenmarkt.at auf meine homepage kommt, dann soll gleich die entsprechende site geladen werden.

vielen, vielen herzlichen dank schon jetzt
mfg
Bogus