#!/usr/bin/perl

$content = `tail -n 10 /private/var/log/system.log`;

@linee=split /\n/,$content;

$giorno_oggi=`date "+%h %d"`;
$ora_oggi=`date "+%H:%M:%S"`;
chomp $giorno_oggi;
chomp $ora_oggi;

foreach $linea (@linee)
{
    chomp $linea;
    if($linea =~ /backupd/)
    {
        $linea =~ /([A-Za-z]{3}\s+[0-9]{1,2})\s+([0-9]{1,2}:[0-9]{1,2}:[0-9]{1,2})/;
        $giorno=$1;
        $ora=$2;
        
        if($giorno eq $giorno_oggi)
        {
            my ($h,$m,$s)=split /:/,$ora;
            my ($ho,$mo,$so)=split /:/,$ora_oggi;
            
            if($h==$ho && abs($mo-$m)<=20)
            {
                if($linea =~ /Starting/)
                {
                    $attivo=1;
                }
                elsif($linea =~ /Backup completed/)
                {
                    $attivo=0;
                }
            }
        }
    }
}

$attivo==1 ? print "*\n" : print ".\n";

ps -ax | grep backupd | wc -l | cut -c 8

let tm=`ps -ax | grep backupd | wc -l | cut -c 8`-1

`ps -ax | grep backupd | wc -l | cut -c 8`

let tm=`ps -ax | grep backupd | wc -l | cut -c 8`-1; echo $tm