tennessee
Linuxfan
hallo zusammen,
ich möchte über eine select box webseiten zur Verfügung stellen,
welche dann mittels knopfdruck nach Auswahl in rechten Framefenster zur verfügung gestellt werden.
(linke frame)
Der Teil der die Liste in die selectbox schreibt ist bereits vorhanden und der button zum laden auch. Wenn ich in der action der Form einen link mit target zu einer html seite angebe wird dieser auch per Knopfdruck geladen.
Ich müsste jetzt aus meiner Sicht eigentlich nur den ausgewählten Wert der select box anstelle der htmlseite angebe und schon wäre die Anforderung erfüllt. (siehe fett markierter bereich im code) leider geht das aber so nicht:
rot geht nicht grün geht
habt Ihr eine idee?
print "<form name=form method=post action=/new/$webseite target=rechts>";
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI qw(:all);
print "Content-type: text/html\n\n";
`./getlist.sh`;
my @liste=`cat list.txt` ;
print "<form name=form method=post action=/new/webseite.html target=rechts>";
print "<select name=web>";
foreach my $webseite (@liste) {
chomp $webseite;
print "<option value='$webseite'>$webseite</option>";
}
print "</select>";
print "<br>";
print "<br>";
print "<input type=submit value=laden onclick=load()></input>";
ich möchte über eine select box webseiten zur Verfügung stellen,
welche dann mittels knopfdruck nach Auswahl in rechten Framefenster zur verfügung gestellt werden.
(linke frame)
Der Teil der die Liste in die selectbox schreibt ist bereits vorhanden und der button zum laden auch. Wenn ich in der action der Form einen link mit target zu einer html seite angebe wird dieser auch per Knopfdruck geladen.
Ich müsste jetzt aus meiner Sicht eigentlich nur den ausgewählten Wert der select box anstelle der htmlseite angebe und schon wäre die Anforderung erfüllt. (siehe fett markierter bereich im code) leider geht das aber so nicht:
rot geht nicht grün geht
habt Ihr eine idee?
print "<form name=form method=post action=/new/$webseite target=rechts>";
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI qw(:all);
print "Content-type: text/html\n\n";
`./getlist.sh`;
my @liste=`cat list.txt` ;
print "<form name=form method=post action=/new/webseite.html target=rechts>";
print "<select name=web>";
foreach my $webseite (@liste) {
chomp $webseite;
print "<option value='$webseite'>$webseite</option>";
}
print "</select>";
print "<br>";
print "<br>";
print "<input type=submit value=laden onclick=load()></input>";