#!/bin/bash

### with embed perl
#   vtipy sa loguju do $HOME/ftipy.txt

# require lynx, cstocs, perl

lynx -dump http://www.funny.sk/jokes/random.php | cstocs 1250 ascii | perl -e '
        open(OUT,">>$ENV{"HOME"}/ftipy.txt");
        $vypis=0;

        while(<STDIN>) {
                if($_ =~ /- hlasovanie -/) {
                        $vypis = 0;
                }

                if($vypis == 1) {
                        print $_;
                        print OUT $_;
                }

                if($_ =~ /hodnotenie/) {
                        $vypis = 1;
                }
        }
        print OUT "        ----------------------------------------------------\n";
        close(OUT)
'