SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sun Oct 26 15:58:51 2008
New Revision: 9924

Modified:
   toys/stbr/stbr.tcl
Log:
- better


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sun Oct 26 15:58:51 2008
@@ -90,9 +90,10 @@
 		set spec [lindex $arg 0]
 		set day [lindex $arg 1]
 		set hour [lindex $arg 2]
-		if {([string length $spec]<2)} {putserv "privmsg $chan :$nick: $usage"; return 0}
-		if {([string length $day]!=10)} {putserv "privmsg $chan :$nick: $usage"; return 0}
-		if {([string length $hour]!=8)} {putserv "privmsg $chan :$nick: $usage"; return 0}
+		if {([string length $spec]<2) || ([string length $day]!=10) || ([string length $hour]!=8)} {
+			putserv "privmsg $chan :$nick: $usage"
+			return 0
+		}
 		set date ""; append date $day; append date " "; append date $hour
 		putcmdlog "Deleting entry for: $spec on $date"
 		exec sqlite $logfile "DELETE FROM application where spec='$spec' and date='$date';"