Link "zusammensetzen" mit Perl oder JavaScript

[Hans-Peter]

Hallo Stefan,

wirklich quick und dirty (und nur weil Du gegen UBB <--kommdesign.de) ;-)) bist

(FORM ACTION="/cgi-bin/domainabfrage.pl" METHOD="POST")
(P)Domainname: (INPUT TYPE="TEXT" NAME="domain")(/P)(BR)
(P)(SELECT NAME="endung" SIZE="1")
(OPTION VALUE="de")de(/OPTION)
(OPTION VALUE="com")com(/OPTION)
(OPTION VALUE="net")net(/OPTION)
(OPTION VALUE="org")org(/OPTION)
(/SELECT)(/P)
(P)(INPUT TYPE="SUBMIT" NAME="Abfrage starten")(/P)(/FORM)

#!/usr/bin/perl

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
    foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}

$domain = $FORM{'domain'};
$endung = $FORM{'endung'};

if ($endung eq "de")
{
print "Location: http://www.ripe.net/cgi-bin/whois?query=$domain.de\n\n";
}

else
{
print "Location: http://nsi.com/cgi-bin/whois/whois?STRING=$domain.$endung\n\n";
}
exit;

Gruesse
Hans-Peter