From 41392923a85d48129bb967439ece58e40874c08c Mon Sep 17 00:00:00 2001
From: Joey Schulze <joey@infodrom.org>
Date: Tue, 12 Aug 2008 16:54:29 +0000
Subject: [PATCH] Support closing forgotton tasks

---
 src/InfoCon/stempel/stempel | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/src/InfoCon/stempel/stempel b/src/InfoCon/stempel/stempel
index 48bb3a1..97903a6 100755
--- a/src/InfoCon/stempel/stempel
+++ b/src/InfoCon/stempel/stempel
@@ -199,22 +199,43 @@ sub toggle_task
     }
 }
 
+sub late_close_task
+{
+    my $delta = shift;
+    my ($d_sec,$d_min,$d_hour,$d_mday,$d_mon,$d_year,$d_wday,$d_isdst) = localtime();
+
+    return unless is_open;
+
+    print $delta,$/;
+    my $query = sprintf("UPDATE stempel SET stop=start + interval '%d minutes',time=%d WHERE stop IS NULL",
+			$delta, quarter($delta));
+    $dbh->do($query);
+}
+
 sub help
 {
     print <<"END";
-stempel  Copyright (c) 2007,8  Martin Schulze <joey@infodrom.org>
+stempel  Copyright (c) 2007,8  Martin Schulze <joey\@infodrom.org>
     --list         list all
     --open         list open
+    --close time   close open task
     --help         this text
     -d             terminate task
-    exit
+END
+    exit;
 }
 
+my $opt_close = undef;
 my %options = ('list' => \&list_all,
 	       'open' => \&list_open,
 	       'help' => \&help,
+	       'close=i' => \$opt_close,
 	       'terminate|end|d' => \&close_task,
 	       );
 GetOptions %options;
 
-toggle_task;
+if ($opt_close) {
+    late_close_task $opt_close;
+} else {
+    toggle_task;
+}
-- 
2.20.1