--- a/convert_spede_mn_tuksu.tcl	Thu Sep 08 22:23:33 2011 +0300
+++ b/convert_spede_mn_tuksu.tcl	Thu Sep 08 22:26:52 2011 +0300
@@ -10,8 +10,8 @@
 
 ### Check commandline arguments
 if {$argc != 3} {
-	puts "Usage: $argv0 <input_flat_file_db> <output_sqlite_db_file> <table_name>"
-	exit 0
+  puts "Usage: $argv0 <input_flat_file_db> <output_sqlite_db_file> <table_name>"
+  exit 0
 }
 
 set db_input [lindex $argv 0]
@@ -23,13 +23,13 @@
 puts "NOTICE! This WILL destroy the current data in table '$db_table'!"
 
 if {![confirm_yesno "Proceed"]} {
-	exit 0
+  exit 0
 }
 
 ### Open flatfile for reading
 if {[catch {set fd [open $db_input r]} uerrmsg]} {
-	puts "Could not open file '$db_input' for reading: $uerrmsg"
-	exit 1
+  puts "Could not open file '$db_input' for reading: $uerrmsg"
+  exit 1
 }
 
 ### Open SQLite database, drop old tables, create new
@@ -42,22 +42,22 @@
 set nline 0
 seek $fd 0 start
 while {![eof $fd]} {
-	incr nline
-	set line [gets $fd]
-	if {$line != ""} {
-		set items [split $line "|"]
-		set host [lindex $items 3]
-		set uid [lindex $items 4]
-		set sql "INSERT INTO $db_table (id,utime,utext,user,host,chan) VALUES ([lindex $items 0], [lindex $items 2], '[lescape $items 1]', '[lescape $items 3]', '[lescape $items 4]', '[lescape $items 5]')"
-		if {[catch {dbh eval $sql} uerrmsg]} {
-			puts "\nError ($nline): $uerrmsg on:\n$sql"
-			exit 15
-		}
-	}
-	if {[expr $nline % 10] == 1} {
-		puts -nonewline "."
-		flush stdout
-	}
+  incr nline
+  set line [gets $fd]
+  if {$line != ""} {
+    set items [split $line "|"]
+    set host [lindex $items 3]
+    set uid [lindex $items 4]
+    set sql "INSERT INTO $db_table (id,utime,utext,user,host,chan) VALUES ([lindex $items 0], [lindex $items 2], '[lescape $items 1]', '[lescape $items 3]', '[lescape $items 4]', '[lescape $items 5]')"
+    if {[catch {dbh eval $sql} uerrmsg]} {
+      puts "\nError ($nline): $uerrmsg on:\n$sql"
+      exit 15
+    }
+  }
+  if {[expr $nline % 10] == 1} {
+    puts -nonewline "."
+    flush stdout
+  }
 }
 
 dbh close