Postillion-Newsticker in fortune

[dettus]

Ich persoenlich finde die Newsticker vom Postillion immer sehr sehr lustig.
Daher habe ich mir mal erlaubt zwei Scripte zu schreiben, die das ganze in fortune verpacken.


Zunaechst einmal muessen folgende Programme installiert sein:

curl
html2text
fortune

sowie unter OpenBSD noch die Sourcen, denn ein wichtiges Tool wird nicht mitinstalliert. Das kann man aber zum Glueck nachholen:

cd /usr/src/games/fortune/strfile/
make

Danach habe ich diese beiden Skripte durchlaufen lassen:

#!/bin/sh



echo >newstickers.tmp
for JAHR in `jot 25 2000`
do 
(
    for MONAT in `jot -w %02d 12 1`
    do
        echo $JAHR"/"$MONAT
        curl -o- https://www.der-postillon.com/$JAHR/$MONAT | grep http.*newsticker.*html | sed -e "s/^.*http/http/g"  | sed -e "s/.html.*$/.html/g" | grep der.*com >$JAHR"_"$MONAT".tmp"
        for URL in `cat $JAHR"_"$MONAT".tmp"`
        do
            curl -o- $URL | grep ^.p.+++ >>newstickers.tmp
        done
    done
) &
done

#!/bin/sh


sort newstickers.tmp | \
    sed -e "s/ä/ae/g" | \
    sed -e "s/ö/oe/g" | \
    sed -e "s/ü/ue/g" | \
    sed -e "s/Ä/Ae/g" | \
    sed -e "s/Ü/Ue/g" | \
    sed -e "s/Ö/Oe/g" | \
    sed -e "s/ß/ss/g" | html2text -width 4096 | tr -cd '\11\12\15\40-\176' | 
(
while read -r line;
do
    echo $line | sed -e "s/^.p.//g" | sed -e "s/..p.$//g"
    echo "%"
done
)  >newstickers
/usr/src/games/fortune/strfile/strfile -r newstickers newstickers.dat

doas cp newstickers newstickers.dat /usr/share/games/fortune/
fortune newstickers
rm *.tmp

In der letzten Zeile meiner .bashrc steht jetzt folgendes:

fortune newstickers 1>&2

Kurzer Test:

; bash
+++ Wurden vom Hersteller zurueckgerufen: Kaeufer enttaeuscht ueber Produktmaengel bei Mobiltelefonen +++

Laueft!!