|
[ Autoren gesucht! ]
|
PHP-Homepage.de sucht laufend Autoren für News und Artikel
Interesse?
|
|
 |
|
[Start] [Suche] [Neue Einträge]
| newsticker script fuer bild-der-wissenschaft |
<? // frontend script // ?>
<?
$cache_file = "tmp/wissenschaft.de.cache";
?>
<table BORDER=0 CELLSPACING=0 WIDTH="200" ><tr>
<td ALIGN=CENTER WIDTH="198" BGCOLOR=#FF9966>
<table BORDER=0 CELLSPACING=0 CELLPADDING=2 WIDTH="198" BGCOLOR="#FFFFFF">
<tr bgcolor=#ffffff>
<?
include($cache_file);
?>
</tr>
</table>
</td>
</tr>
</table>
<? // backend script // ?>
<?
/*
// wissenschaft.de - Headlines auslesen
// 07.05.2001 - andreas 'randy' weinberger <randy@smue.net>
//
// basiert auf heisenewsticker auslese script von Jan "_bErT_" Lehnardt,
// Peter "[DiSAStA]" Petermann, Tobias "Yapa" Ratschiller & #php.de
// (fumanchi, jobeh, sujective, SuXuL and so on ;) )
//
// achtung - ist ned wirklich sauber programmiert - einfach selber
// hinbiegen wie man es braucht :)
//
*/
// die ganzen variablen ;)
$tr_color = "#ffffff";
$link_prefix = "<tr bgcolor=$tr_color><td width=11 align=right valign=top><img src=grfx/weiter.gif border=0 width=11 height=9></td><td>";
$link_postfix = "</td></tr>\n";
$cache_file = "../tmp/wissenschaft.de.cache";
$cache_time = 300;
// wenn max_items nicht durch freshmeat erreicht werden,
// kommen blinder tr's mit rein ..
$max_items = 8;
$ok = 0;
// mehr gibts nimmer
$output="";
$backend = "http://www.wissenschaft.de/sixcms/list.php?page=bdw_news_page";
$items = 0;
$time = split(" ", microtime());
srand((double)microtime()*1000000);
$cache_time_rnd = 300 - rand(0, 600);
// check ob cachefile da ist und alt genug zum neuschreiben
if ( (!(file_exists($cache_file))) || ((filectime($cache_file) + $cache_time - $time[1]) + $cache_time_rnd < 0) || (!(filesize($cache_file))) ) {
// if (true) {
// html-eite oeffnen
$fpread = fopen($backend, 'r');
if(!$fpread) {
echo "$errstr ($errno)<br>\n";
exit;
} else {
//cachefile oeffnen
$fpwrite = fopen($cache_file, 'w');
if(!$fpwrite) {
echo "$errstr ($errno)<br>\n";
exit;
} else {
while(! feof($fpread) ) {
$zeile = ltrim(Chop(fgets($fpread, 102400)));
$zeile=str_replace("\"","",$zeile);
if ((strstr($zeile,"<a href=detail.php")) && (strstr($zeile,"<td align=left valign=top>"))) {
$zeile=str_replace("<td align=left valign=top>","",$zeile);
$zeile=str_replace("</td>","",$zeile);
$zeile=str_replace("<tt>","",$zeile);
$zeile=str_replace("</tt>","",$zeile);
$zeile=str_replace("<i>","",$zeile);
$zeile=str_replace("</i>","",$zeile);
$zeile=str_replace("<span class=blackfett>","",$zeile);
$zeile=str_replace("</span>","",$zeile);
if ($items < $max_items) {
$startlink=strpos($zeile,"<");
$stoplink=strpos($zeile,">");
// links extrahieren
$link=substr($zeile,$startlink,$stoplink-$startlink+1);
$link=str_replace("<a href=detail.php?","<a class=small-links href=redirect/redirect.php?url=http://www.wissenschaft.de/sixcms/detail.php?",$link);
$text=explode(">",$zeile);
$text=explode("<",$text[1]);
$text=str_replace(" ","",$text[0]);
$text="<a class=small-text>".$text;
$text=str_replace(" ",":</a> $link",$text);
print "$link_prefix$category$link$text$link_postfix<br>";
$output=$output. "$link_prefix$category$link$text$link_postfix";
$items++;
}
}
}
}
}
fclose($fpread);
// ueberzaehlige zeilen ausfuellen
while ($items < $max_items) {
$output=$output. "<tr bgcolor=$tr_color><td colspan=2> </td></tr>\n";
$items++;
}
// cachefile schliessen
$fpwrite=fopen($cache_file,'w');
fputs($fpwrite, $output);
fclose($fpwrite);
}
?>
|
|
