Administrace komentářů

#!/usr/bin/perl

# Uzivatelsky cron podle ktereho budeme spoustet PC
$SOUBOR_CRON="/var/spool/cron/petr";

# Zapisem do souboru nastavime alarm
$ACPI_WAKE_UP="/sys/class/rtc/rtc0/wakealarm";

# Pri debug 1 vypisujeme co delame (0 = jsme potichu)
$DEBUG=1;


open(DATA, "<", $SOUBOR_CRON) or die "Nelze otevřít soubor: $!";

$cas=0;
$starycas=0;

while ($radek=<DATA>) {

chomp $radek;

# je neco na radku - spracujeme
if (length($radek)>0) {
if ($DEBUG==1) { print $radek . "\n"; }

use Schedule::Cron::Events;

my $cron = new Schedule::Cron::Events( $radek, Seconds => time());
my ($sec, $min, $hour, $day, $month, $year) = $cron->nextEvent;
if ($DEBUG==1) { printf("Další start: %2d:%02d:%02d on %d.%02d.%d\n", $hour, $min, $sec, $day, ($month+1), ($year+1900)); }

# turn a local date into a Unix time
use Time::Local;
my $epochSecs = timelocal($sec, $min, $hour, $day, $month, $year);
if ($DEBUG==1) { print "počet " . $epochSecs . " sekund co je " . localtime($epochSecs) . "\n"; }

# Vybirame nejdrivejsi cas
if ($starycas==0) { $starycas=$epochSecs; $cas=$epochSecs; }
if ($epochSecs<$starycas) { $cas=$epochSecs; }
$starycas=$epochSecs;

# konec spracovani radku
}
# konec spracovani souboru
}
close DATA;

# pokud neni cas vetsi jak aktualni nic nedelame
if ($cas>time()) {

if ($DEBUG==1) { print "Ted je cas: " . time() . "\n"; }

if ($DEBUG==1) { print "Nejblizsi cas spusteni nahravani " . $cas . " sekund co je " . localtime($cas) ."\n"; }
# Odecteme 5 minut
$cas-=300;
if ($DEBUG==1) { print "Nejblizsi cas spusteni HTPC (cas nahravani - 5 minut) " . $cas . " sekund co je " . localtime($cas) ."\n"; }

# reset Alarm
open(ALARM, ">", $ACPI_WAKE_UP) or die "Nelze otevřít soubor: $!";
print ALARM "0";
close ALARM;

# Zapis alarmu
open(ALARM, ">", $ACPI_WAKE_UP) or die "Nelze otevřít soubor: $!";
print ALARM $cas;
close ALARM;

}