--- a/create_urllog_db.tcl	Thu Sep 08 22:23:33 2011 +0300
+++ b/create_urllog_db.tcl	Thu Sep 08 22:26:52 2011 +0300
@@ -9,33 +9,33 @@
 
 ### Check commandline arguments
 if {$argc < 1} {
-	puts "Creates tables for URLLog target SQLite3 file"
-	puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]"
-	puts ""
-	puts "-drop option will drop any existing URLLog tables."
-	exit 0
+  puts "Creates tables for URLLog target SQLite3 file"
+  puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]"
+  puts ""
+  puts "-drop option will drop any existing URLLog tables."
+  exit 0
 }
 
 set db_drop 0
 set db_output [lindex $argv 0]
 if {$argc >= 2 && [lindex $argv 1] == "-drop"} {
-	set db_drop 1
+  set db_drop 1
 }
 
 ### Open database
 open_db $db_output
 
 if {$db_drop} {
-	puts "WARNING! Dropping old tables URLLog requested!"
-	puts "All data in those tables will be permanently lost!"
+  puts "WARNING! Dropping old tables URLLog requested!"
+  puts "All data in those tables will be permanently lost!"
 
-	if {![confirm_yesno "Proceed"]} {
-		puts "Aborting procedure."
-		dbh close
-		exit 0
-	}
+  if {![confirm_yesno "Proceed"]} {
+    puts "Aborting procedure."
+    dbh close
+    exit 0
+  }
 
-	drop_table "urls"
+  drop_table "urls"
 }
 
 create_table_urls