Hallo,
ich habe die letzten Tage an einem Perlscript gebastelt, evtl. kann es ja jemand gebrauchen.
Was macht das Script:
Das Script parsed die Seiten des VDR-Portals (mittels Lynx) und gibt die Seiten "formatiert" in Textdateien aus. Ich habe es geschrieben um mit dem Surfer-Plugin die jeweils letzten Portal-Beiträge zu lesen. Die Änderungen des Scripts getPage.sh vom Surfer-Plugin sind hier [Announce] News-Surfer 0.0.2 beschrieben.
Das Script kann aber auch einzeln von der Konsole aufgerufen und getestet werden.
Die übergebenen Parameter sind die gleichen die das Script "getPage.sh" vom Surfer-Plugin verwendet.
vdr-portal.pl URL LINK WIDTH
LINK:
1 = Erstelle die surfer.tmp.lnk um mit dem Surfer-Plugin die Links abzusurfen.
0 = Keine Links erstellen (ist im Script zwar schon vorbereitet, um den Links aus den Beiträgen zu folgen, allerdings unterstützt dies nicht das Surfer-Plugin).
Mögliche Aufrufe oder URLs für die surfer.conf:
Zitat
vdr-portal.pl "http://www.vdr-portal.de/" 1 56 --> die letzen Themen auf der Portalseite mit den Links in der surfer.tmp.lnk
vdr-portal.pl "http://www.vdr-portal.de/board/portal.php?limit=100" 1 56 --> das gleiche wie oben allerdings die letzten 100 Beiträge
vdr-portal.pl "http://www.vdr-portal.de/board/board.php?boardid=20" 1 56 --> Das Board "C / C++ / Scripten" (boardid=20)
Um Beiträge anzuzeigen:
Zitatvdr-portal.pl "http://www.vdr-portal.de/board/thread.php?threadid=41145&goto=lastpost" 0 56
.... oder was auch immer.
Ich habe jede Menge getestet, aber es wird nicht fehlerfrei sein .
Am Anfang des "vdr-portal.pl" Scripts gibt es noch drei weitere Einstellungen:
ZitatAlles anzeigen# Threads recursiv anzeigen
# 0 --> der neuste Beitrag wird am Ende angezeigt
# 1 --> der neuste Beitrag wird am Anfang angezeigt
$recursiv = 0;
# Konsolen Debug
# 0 --> Keine Konsolenausgabe und die temp. Dateien in /tmp werden gelöscht
# 1 --> Die Beiträge werden auf der Konsole angezeigt und die temp. Dateien in /tmp werden nicht gelöscht
$debug = 0;
# Zitate in den Threads
# 0 --> Zitate werden angezeigt --> 1. Zitat: -> [1. Zitat:}
# 1 --> Zitate werden Newsmässig angezeigt --> >' >> ' >>> ' >>>>
$zitate = 1;
Gruß,
Chuck
- 16.10.06 Script upgedated
* Einige Darstellungsfehler beseitigt
* Timeout für Lynx (wenn das Board nicht erreichbar ist)
* Quote der Beiträge in Newsform >, >>, >>>
* Konsolendebug