3
# Finding today (Mocha) date which is yesterday's KDE server date ...
4
my ($year, $month, $day) = (localtime(time))[5,4,3];
7
$date = sprintf ("%04d-%02d-%02d", $year, $month, $day);
9
print "Running /home/sandros/scripts/load_commits.pl $date\n";
10
exec "/home/sandros/scripts/load_commits.pl $date";
b'\\ No newline at end of file'