Moin,
Ich habe die rss-Lösung von Christian Ries
(http://forum.baseportal.de/cgi-bin/baseportal.pl?htx=/baseportal/forum&wcheck=1&Pos=10646.01=
in meine Internetseite -versuchsweise- mal intergriert.
Bei Christian klappt es ohne iframe.
Ich habe bisher es nur mit iframe geschafft. Ich habe da eine Zelle <td>...</td> vorgesehen...
Es können noch kleine Fehler drin sein, aber die Frage ist nur, ob ein Fehler drin ist, der es verhindert mit <include src=rss> den Templateinhalt zu inkludieren??!?
<style type="text/css">
<!--
body,p,div { font-family:arial,helvetica,sans-serif;font-size:8pt }
-->
</style>
<h4>
|<a href="http://www.otkom.de/cgi-bin/baseportal.pl?htx=/otkom.de/rss&feeder=w-w-w">wer-weiss-was</a>|<br>
|<a href="http://www.otkom.de/cgi-bin/baseportal.pl?htx=/otkom.de/rss&feeder=juleica">Juleica</a>|
</h4>
<table width="142" border="0" style="border-style:none;" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
<tr><td width="100%">
<!-- Bis hier Anfangsteil der Seite inkl. 'Container-Tabelle', in der die News rein sollen -->
<!-- Ab hier wird der Teil aus dem RSS gelesen und layoutiert ausgegeben -->
<perl>
### Einlesen des RSS-Files und in Hauptbestandteile spliten : ###
### 1. Infos zum News-Channels 2. Bild des News-Channels 3. Einzelne Einträge ### http://www.islekerart.org/cgi-bin/baseportal.pl?htx=/rss/rss_events_today
if ($feeder eq "w-w-w" || $feeder eq "") {$rss_url="http://www.wer-weiss-was.de/ssi/theme124-rssfeed091.xml";}
elsif ($feeder eq "juleica") {$rss_url="http://www.dnbp.de/feeds/juleica_net.xml";}
$rss=get "$rss_url";
$rss =~ /<channel>/;
$split1=$';
$split1 =~ /<\/channel>/;
$split2=$`;
$split2 =~ /<item>/;
$part1=$`;
$part2=$&.$';
$part1 =~ /<image>/;
$part1head1=$`;
$part1head2=$&.$';
### Header-Daten Variablen zuordnen ###
while($part1head1=~ m#<(title|link|description|language|lastBuildDate|copyright)>(.*?)</\1>#gim) {
if($1 eq "title") { $head_title=$2; }
elsif($1 eq "link") { $head_link=$2; }
elsif($1 eq "description") { $head_description=$2; }
elsif($1 eq "language") { $head_language=$2; }
elsif($1 eq "lastBuildDate") { $head_lastBuildDate=$2; }
elsif($1 eq "copyright") { $head_copyright=$2; }
}
### Image-Daten Variablen zuordnen ###
while($part1head2=~ m#<(title|url|link)>(.*?)</\1>#gim) {
if($1 eq "title") { $img_title=$2; }
elsif($1 eq "url") { $img_url=$2; }
elsif($1 eq "link") { $img_link=$2; }
}
### Ausgabe des Bildes und/oder des Titels samt Verlinkung zur Homepage des Anbieters ###
if ($img_url ne "")
{
out "<a href='$img_link' target='_blank'><img border='0' src='$img_url' align='middle' alt='$img_title' width='140'></a><br><font size='1'>$head_title</font><br>";
}
else {out "<font size='1'>$head_title</font><br>";}
### Öffnen der 'Container-Tabelle' für die einzelnen Einträge/News ###
out "<table width='100%' border='0' cellpadding='2'><tr><td>";
out "<p><div style='overflow:auto; width:140px; height:400px;text-align:left;'>";
### On the fly -Identifizierung und Direktausgabe der News-Bestandteile ###
while($part2=~ m#<(title|description|link)>(.*?)</\1>#gim)
{
if($1 eq "title") { $item_title=$2; $neu=0;}
elsif($1 eq "description") { $item_description=$2; $neu=0; }
elsif($1 eq "link") { $item_link=$2; $neu=1; }
if ($neu==1)
{
### Einstellungen des Links je nach der Detailseite die aufgerufen wird ###
$javas1="";$javas2="";
$itlink=$javas1.$item_link.$javas2;
out "<b><a href=\"$itlink\"";
out " target='_blank'";
out ">$item_title</a></b><br>";
out "<small>$item_description</small><br><br>";
}
}
out "</div></p></td></tr></table>";
</perl>
<!-- Ende der RSS-Ausgabe und Restteil der Seite -->
</td></tr></table>
Danke auch an Christian, das er sich die Arbeit gemacht hat. ;-)
