--- a/convert_urllog_db.tcl	Thu Sep 08 22:23:33 2011 +0300
+++ b/convert_urllog_db.tcl	Thu Sep 08 22:26:52 2011 +0300
@@ -10,8 +10,8 @@
 
 ### Check commandline arguments
 if {$argc != 2} {
-	puts "Usage: $argv0 <input_flat_file_db> <output_sqlite_db_file>"
-	exit 0
+  puts "Usage: $argv0 <input_flat_file_db> <output_sqlite_db_file>"
+  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 '$db_input' for reading: $uerrmsg"
-	exit 1
+  puts "Could not open '$db_input' for reading: $uerrmsg"
+  exit 1
 }
 
 ### Open SQLite database, drop old table, create new
@@ -43,20 +43,20 @@
 set minentries 9999
 set maxentries 0
 while {![eof $fd]} {
-	incr nline
-	set line [gets $fd]
-	if {$line != ""} {
-		set items [split $line " "]
-		set tmp [llength $items]
-		if {$tmp > $maxentries} { set maxentries $tmp }
-		if {$tmp < $minentries} { set minentries $tmp }
-	}
+  incr nline
+  set line [gets $fd]
+  if {$line != ""} {
+    set items [split $line " "]
+    set tmp [llength $items]
+    if {$tmp > $maxentries} { set maxentries $tmp }
+    if {$tmp < $minentries} { set minentries $tmp }
+  }
 }
 
 if {$maxentries != 5 || $maxentries != $minentries} {
-	puts "old / variable"
+  puts "old / variable"
 } else {
-	puts "new"
+  puts "new"
 }
 
 ### Show some information
@@ -67,27 +67,27 @@
 set nline 0
 seek $fd 0 start
 while {![eof $fd]} {
-	incr nline
-	set line [gets $fd]
-	set items [split $line " "]
-	if {$line != ""} {
-		set host [lindex $items 3]
-		if {[regexp {^\((.+)\)$} $host ures uhost]} {
-			set host $uhost
-		}
-		set uid [lindex $items 4]
-		if {$uid != ""} {
-			set sql "INSERT INTO $db_table (id,utime,url,user,host) VALUES ($uid, [lindex $items 1], '[lescape $items 0]', '[lescape $items 2]', '[escape $host]')"
-			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]
+  set items [split $line " "]
+  if {$line != ""} {
+    set host [lindex $items 3]
+    if {[regexp {^\((.+)\)$} $host ures uhost]} {
+      set host $uhost
+    }
+    set uid [lindex $items 4]
+    if {$uid != ""} {
+      set sql "INSERT INTO $db_table (id,utime,url,user,host) VALUES ($uid, [lindex $items 1], '[lescape $items 0]', '[lescape $items 2]', '[escape $host]')"
+      if {[catch {dbh eval $sql} uerrmsg]} {
+        puts "\nError ($nline): $uerrmsg on:\n$sql"
+        exit 15
+      }
+    }
+  }
+  if {[expr $nline % 10] == 1} {
+    puts -nonewline "."
+    flush stdout
+  }
 }
 puts "OK"
 
@@ -95,27 +95,27 @@
 set nline 0
 seek $fd 0 start
 while {![eof $fd]} {
-	incr nline
-	set line [gets $fd]
-	set items [split $line " "]
-	if {$line != ""} {
-		set host [lindex $items 3]
-		if {[regexp {^\((.+)\)$} $host ures uhost]} {
-			set host $uhost
-		}
-		set uid [lindex $items 4]
-		if {$uid == ""} {
-			set sql "INSERT INTO $db_table (utime,url,user,host) VALUES ([lindex $items 1], '[lescape $items 0]', '[lescape $items 2]', '[escape $host]')"
-			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]
+  set items [split $line " "]
+  if {$line != ""} {
+    set host [lindex $items 3]
+    if {[regexp {^\((.+)\)$} $host ures uhost]} {
+      set host $uhost
+    }
+    set uid [lindex $items 4]
+    if {$uid == ""} {
+      set sql "INSERT INTO $db_table (utime,url,user,host) VALUES ([lindex $items 1], '[lescape $items 0]', '[lescape $items 2]', '[escape $host]')"
+      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