exit(0);
}
+sub reopen_task
+{
+ my $sql = q{SELECT max(id) AS max_id FROM stempel};
+ my $sth = $dbh->prepare($sql);
+ if ($sth && $sth->execute > 0) {
+ my $row = $sth->fetchrow_hashref;
+ $sql = sprintf("UPDATE stempel SET stop = NULL, time = NULL WHERE id = %d", $row->{max_id});
+ $dbh->do($sql);
+ }
+
+ exit(0);
+}
+
sub list_open
{
my $exit = shift;
--help this text
--end|-d terminate task
--delete delete open task
+ --reopen re-open last task
--task alter task content
END
exit;
'help' => \&help,
'close=i' => \$opt_close,
'delete' => \&delete_task,
+ 'reopen' => \&reopen_task,
'task|t' => \&alter_task,
'terminate|end|d' => \&close_task,
);