#!/usr/bin/perl
# Originalquelle: linux.die.net/man/1/xscreensaver-command
# repat<repat@repat.de>, Apr2013
# Dieses Skript prueft auf Inaktivitaet mithilfe des xscreensaver-Programms.
# Sollte der User 5 Minuten inaktiv ist, wird der Browser geschlossen und neu gestartet.
# Somit werden alle Sitzungsdaten geloescht.

my $blanked = 0;
open (IN, "xscreensaver-command -watch  |");
while(<IN>) {
        if (m/^(BLANK|LOCK)/) {
                if (!$blanked) {
                        # Schliesse Browser
                        # Starte Browser neu
                        print "Deaktiviere xscreensaver...\n";
                        system "xscreensaver-command -deactivate";
                        print "Beende Browser...\n";
                        system "killall browser-repat";
                        print "In 5 Sekunden wird der Browser neu gestartet";
                        $blanked = 1;
                 }
        } elsif (m/^UNBLANK/) {
                $blanked = 0;
        }
}






