6 Einträge, 1 Seite |
<form method="post" name="searchform" action="http://.../unterkuenfte-ausgabe.html">
1
2
3
4
5
6
7
8
9
10
use HTML::Template;
my $tmpl = HTML::Template->new(filename=>'../htdocs/rems-murr/templates/templ1.html');
my $output = &get_all_unterkunft($dbh);
$tmpl->param("output"=>$output);
....
sub get_all_unterkunft{
my $dbh = shift;
my $output = $dbh->selectall_arrayref("SELECT uname, uort, ukat, upreisinfo, ulogo FROM BETRIEBE", {Slice=>{}});
return $output;
}
1
2
3
4
5
6
7
8
9
10
my $datei = "C:/apachefriends/xampp/htdocs/rems-murr/output.html";
open (DATEI, ">$datei");
print DATEI $tmpl->output();
close (DATEI);
my $UA = LWP::UserAgent->new();
my $url = "http://localhost/rems-murr/output.html";
my $req = HTTP::Request->new('GET' => "$url");
my $result = $UA->request($req);
print "Content-type: text/html\n\n";
print $result->content();
1
2
3
4
<form method="post" name="searchform" action="http://www.eifel.de/unterkuenfte-ausgabe.html">
.....
<input name="Suchen" type="submit" id="Suchen" value="Suchen" />
</form>
1
2
3
4
<Location /irgendetwas.html>
SetHandler perl-script
PerlHandler Ein::Perl::Handler
</Location>
6 Einträge, 1 Seite |