exit(0);
}
+sub delete_task
+{
+ my $query = q{DELETE FROM stempel WHERE stop IS NULL};
+ $dbh->do ($query);
+
+ exit(0);
+}
+
sub list_open
{
my ($d_sec,$d_min,$d_hour,$d_mday,$d_mon,$d_year,$d_wday,$d_isdst) = localtime();
--open list open
--close time close open task
--help this text
- -d terminate task
+ --end|-d terminate task
+ --delete delete open task
END
exit;
}
'open' => \&list_open,
'help' => \&help,
'close=i' => \$opt_close,
+ 'delete' => \&delete_task,
'terminate|end|d' => \&close_task,
);
GetOptions %options;