sqripts

[Christos Ricudis]

Hello All!

Ka8omai ayto ton kairo kai grafw diafora scriptonia gia to systhma moy. To 
teleytaio htan to automatically-get-my-mail-when-I'm-idle-for-more-than-5-
hours.pl : 

#!/usr/bin/perl

$minidle=2592000; # one month;

foreach $file (@ARGV) { 
        ($a,$a,$a,$a,$a,$a,$a,$a,$b)=stat($file);
        $idle=time() - $b ; 
        if ($idle < $minidle) {
                $minidle = $idle;
        }
}

# 18000 secs = 5 hours

if ($minidle > 18000) { 
        system ("sh /root/bin/getmymail.sh > /dev/null 2>&1");
}

Trekste to ws ekshs :

koko.perl /dev/tty[1-9]

ean 8elete na parakoloy8eite to idle time twn vc's apo 1 ews 9.


To proteleytaio script poy eftiaksa htan to automatically-download-and-
uudecode-tsontes-from-altavista.pl alla ayto dianeimetai mono enanti xrhmatwn. 

--
Christos Ricudis
I am a target. Please bomb me at N40 33.765' E22 55.130' Alt. 69ft
--
====================================================================
Gia boithia (h na diagrafhte) e-mail sto majordomo at hellug.gr
Ta archives tis listas einai sto http://lists.hellug.gr/archives
prin steilete kapoia erothsh psakte mipos exei hdh apanththei.
Gia opoiodipote problima stilte e-mail ston owner-linux-greek-users at hellug.gr
====================================================================