<% $VERMIETER{betriebsname} %>
<% "$VERMIETER{vorname} $VERMIETER{nachname}" %>
<% $VERMIETER{strasse} %> <% $VERMIETER{hausnummer}%>
<% $VERMIETER{plz}%> <% $VERMIETER{ort}%>
<% $VERMIETER{telefon} ? qq( $VERMIETER{telefonvorwahl}/$VERMIETER{telefon}
) : "" %>
<% $VERMIETER{fax} ? qq( $VERMIETER{faxvorwahl}/$VERMIETER{fax}
) : "" %>
|
<%
my $out;
$ENV{QUERY_STRING} = "id=wetter";
open EXECDATA, "../cgi-bin/wetterimport.pl |";
$out .= ;
$out =~ s/^Content-type: text\/html\n\n//gi;
close EXECDATA;
return $out;
%>
<%
my $out;
$ENV{QUERY_STRING} = "id=daten";
open EXECDATA, "../cgi-bin/wetterimport.pl |";
$out .= ;
$out =~ s/^Content-type: text\/html\n\n//gi;
close EXECDATA;
return $out;
%>
<%
my ($sek,$min,$std,$mtag,$mon,$jahr,$wtag,$jtag,$isdst) = localtime(time);$mon = $mon +1;$jahr = $jahr+1900;
my $datum = sprintf ("%02d.%02d.%04d",$mtag,$mon,$jahr);
my $heutiger_key = crypt($datum,"oberstdorf.de");
my $random = time;
$ziel = qq(http://www.oberstdorf.de/cgi-bin/syndication/se_syndication_webcam.pl?)
. qq(cam=1&key=$heutiger_key&random=$random);
qq( )
%>
Marktplatz Oberstdorf, 815m |
<%
my ($sek,$min,$std,$mtag,$mon,$jahr,$wtag,$jtag,$isdst) = localtime(time);$mon = $mon +1;$jahr = $jahr+1900;
my $datum = sprintf ("%02d.%02d.%04d",$mtag,$mon,$jahr);
my $heutiger_key = crypt($datum,"oberstdorf.de");
my $random = time;
$ziel = qq(http://www.oberstdorf.de/cgi-bin/syndication/se_syndication_webcam.pl?)
. qq(cam=2&key=$heutiger_key&random=$random);
qq()
%>
Oberstdorf, 815m |
Nebelhornbahn Oberstdorf, 2060m |
Fellhornbahn, 1780m |
|
