Nein, in keinem Browser :-(
Firefox meldet, dass es sich nicht um ein PDF handelt, es fehle "%PDF-" am Beginn der Datei.
Hier die Meldung von IE:
++++++++++++++++++++++++++++++++++
ERROR: No HTML files!
HTMLDOC Version 1.8.23 Copyright 1997-2002 Easy Software Products, All Rights Reserved.
This software is governed by the GNU General Public License, Version 2, and
is based in part on the work of the Independent JPEG Group.
Usage:
htmldoc [options] filename1.html [ ... filenameN.html ]
Options:
--batch filename.book
--bodycolor color
lange Aufzählung von Optionen
++++++++++++++++++++++++++++++++++
Ich habe wie gesagt am funktionnierenden Code nichts mehr gemacht.
Hier der Aufruf des Kalenders mit spez. Optionen:
http://www.islekerart.org/cgi-bin/baseportal.pl?htx=/iogneu/ausg_pdf1&db=main&orub=Alle&sort=Datum1&Datum1%3C=22.10.2004&Datum2%3E=08.10.2004&dt1=08.10.2004&dt2=22.10.2004&Typ==*&Ort==&Land==&lg=DE
Hier die erste Seite:
<perl>
$_header="Content-type: application/pdf\n\n";
$adurli=$ENV{'QUERY_STRING'};
$adurli=~s/ausg_pdf1/ausg_pdf2/g;
$url="http://www.islekerart.org/cgi-bin/baseportal.pl?".$adurli;
out get "http://pdf.baseportal.de?url=".convert_url($url)."&.pdf";
</perl>
Hier die 2. Seite:
<perl>
$Ortout=$Ort;
$trTyp=$Typ;
$trRub=$$Typ;
$dt1=$Datum2;
$dt2=$Datum1;
$dat=datum("jetzt","Tag0.Monat0.Jahr");
$datmax=$dt2;
$Idmax=0;
$count=0;
$cnt=32;
$ct2=$cnt/2;
$tw=680;
$twmid=$tw-200;
$dw=tw/2;
$tbw=$tw."px";
$tdw=$dw."px";
$pt="pgtit_".$lg;
$pgtit_DE="Veranstaltungen im Islek";
$pgtit_FR="Manifestations dans l'Islek";
$adl="advline_".$lg;
$advline_DE="K u n s t, K u l t u r u n d V e r a n s t a l t u n g e n i m D r e i l ä n d e r e c k B e l g i e n - D e u t s c h l a n d - L u x e m b u r g";
$advline_FR="A r t s, c u l t u r e e t m a n i f e s t a t i o n s a u x t r o i s f r o n t i è r e s A l l e m a g n e - B e l g i q u e - L u x e m b o u r g";
$bln="basline_".$lg;
$basline_DE="z u s a m m e n g e s t e l l t a m $dat a u f w w w . i s l e k e r a r t . o r g";
$basline_FR="c o m p i l é l e $dat s u r w w w . i s l e k e r a r t . o r g";
</perl>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
<title>www.islekerart.org - Auszug aus dem Veranstaltungskalender</title>
<link rel="shortcut icon" href="http://www.islekerart.org/favicon.ico">
<style type="text/css">
<!--
body { font-family:arial,helvetica,sans-serif; }
h1 { font-size:+2;letter-spacing:3pt; }
p { font-size:8pt; }
-->
</style>
</head>
<body>
<!-- MEDIA SIZE A4 -->
<!-- MEDIA TOP 0mm -->
<!-- MEDIA BOTTOM 0mm -->
<!-- MEDIA LEFT 20mm -->
<!-- MEDIA RIGHT 20mm -->
<!-- HEADER LEFT "" -->
<!-- HEADER CENTER "" -->
<!-- HEADER RIGHT "" -->
<!-- FOOTER LEFT "" -->
<!-- FOOTER CENTER "" -->
<!-- FOOTER RIGHT "" -->
<loop db^=/iogneu/$db sort=Datum1 range=0,$cnt code=perl>
if($_raw{datmax} lt datum("$Datum2","intern")) {$Idmax=$_id}
</loop>
<perl>
get "Id==!$Idmax", "/iogneu/main";
$datmax=datum("$Datum2","Tag0.Monat0.Jahr");
</perl>
<table border="0" width="$tbw" cellpadding="0" cellspacing="0">
<tr>
<td width="100" valign="bottom"><p><img src="http://islekerart.org/pdf/islekerart.jpg" width="100" height="100" border="0"></p></td>
<td width="$twmid" align="center" valign="bottom">
<perl>
if ($trTyp ne "*")
{
get "rubrkurz~=$trTyp", "/iogneu/thesaurus";
$thestyp="thes_".$lg;
$elmt_typ=$$thestyp;
$elmt_typ=~s/\&/\&\;/g;
}
if ($Ortout ne "") {out "<h1><font size='+4'>$Ortout</font></h1>"}
elsif ($trTyp ne "*" && $trRub eq "") {out "<h1>$elmt_typ</h1>"}
elsif ($trTyp ne "*" && $trRub ne "") {out "<h1>$trRub</h1>"}
elsif ($trTyp eq "*") {out "<h1>$$pt</h1>"}
if ($dt1 eq $dt2) {out "<h1>$dt1</h1>";}
else {out "<h1>$dt1 - $datmax</h1>";}
</perl>
</td>
<td width="100" align="right" valign="bottom"><p><img src="http://islekerart.org/pdf/islekercard.jpg" width="100" height="100" border="0"></p></td>
</tr></table>
<hr size="1px">
<p align="center"><small><perl>out $$adl</perl></small></p>
<hr size="1px">
<table border="0" width="$tbw" cellpadding="0" cellspacing="0">
<tr>
<td width="1px"><img src="http://islekerart.org/images/idle.gif" width="1px" height="1px" border="0"></td>
<td width="$tdw"><img src="http://islekerart.org/images/idle.gif" width="330px" height="1px" border="0"></td>
<td width="18px"><img src="http://islekerart.org/images/idle.gif" width="18px" height="1px" border="0"></td>
<td width="$tdw"><img src="http://islekerart.org/images/idle.gif" width="330px" height="1px" border="0"></td>
</tr>
<tr><td width="1px"><img src="http://islekerart.org/images/idle.gif" width="1px" height="770px" border="0"></td>
<loop db^=/iogneu/$db sort=Datum1 range=0,$cnt code=perl>
if ($count==$ct2) {out "</td><td width='18px'> </td><td valign='top'>"}
if ($count<=$cnt)
{
get "rubrkurz~=$$Typ", "/iogneu/thesaurus";
$thesau="thes_".$lg;
$elmt_rub=$$thesau;
if ($lg eq "DE") {$place=$Platz} else {$place=$Site}
if ($place=~/CAPe/) {$place="CAPe - Centre des Arts Pluriels"}
if ($lg eq "DE") {$title=$Titel} else {$title=$Titre}
$date = $Datum1;
if ($lg eq "FR")
{
if ( $date =~ "So" ) { $date =~ s/So/Di/gi }
elsif ( $date =~ "Mo" ) { $date =~ s/Mo/Lu/gi }
elsif ( $date =~ "Di" ) { $date =~ s/Di/Ma/gi }
elsif ( $date =~ "Mi" ) { $date =~ s/Mi/Me/gi }
elsif ( $date =~ "Do" ) { $date =~ s/Do/Je/gi }
elsif ( $date =~ "Fr" ) { $date =~ s/Fr/Ve/gi }
}
$elmt_dat=$date;
if ( $Datum2 ne $Datum1 )
{
$date2 = $Datum2;
if ($lg eq "FR")
{
if ( $date2 =~ "So" ) { $date2 =~ s/So/Di/gi }
elsif ( $date2 =~ "Mo" ) { $date2 =~ s/Mo/Lu/gi }
elsif ( $date2 =~ "Di" ) { $date2 =~ s/Di/Ma/gi }
elsif ( $date2 =~ "Mi" ) { $date2 =~ s/Mi/Me/gi }
elsif ( $date2 =~ "Do" ) { $date2 =~ s/Do/Je/gi }
elsif ( $date2 =~ "Fr" ) { $date2 =~ s/Fr/Ve/gi }
}
$elmt_dat=$elmt_dat."-".$date2;
}
if ($$Typ eq "Expo") {$col_exp1="<font color='green'>";$col_exp2="</font>"}
else {$col_exp1="";$col_exp2="";}
out "<p>$col_exp1$title$col_exp2<br> <small>$elmt_dat : ";
if ($Ortout ne "") {out "$elmt_rub, $place"}
elsif ($Typ ne "*" && $trRub eq "") {out "$elmt_rub, $Ort ($Land), $place"}
elsif ($Typ ne "*" && $trRub ne "") {out "$Ort ($Land), $place"}
else {out "$elmt_rub, $Ort ($Land), $place"}
out "</small></p>";
}
$count++;
</loop>
</td></tr></table>
<hr size="1px">
<p align="center"><small><perl>out $$bln</perl></small></p>
<hr size="1px">
</body>
</html>
:-)
Christian
