From: Josip Rodin <joy@numa-ubuntu-vm.(none)>
Date: Sun, 13 Sep 2009 22:48:42 +0000 (+0200)
Subject: indentation fixes
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=2c1ca84a40d1793a9b00f3a1598ae89eb57fa946;p=imunes.git

indentation fixes
---

diff --git a/linux/exec.tcl b/linux/exec.tcl
index 1d205bc..61dc5d1 100755
--- a/linux/exec.tcl
+++ b/linux/exec.tcl
@@ -112,37 +112,38 @@ proc setOperMode { mode } {
 
     # Verify that links to external interfaces are properly configured
     if { $mode == "exec" } {
-	# popis interfacea (BSD ifconfig -l)
-	set extifcs_p [open "| ip link show"]
-	set extifcs_s [read $extifcs_p]
-	if { [catch {close $extifcs_p} err] } {
-	    puts "ip link show failed: $err"
-	}
-	set extifcs_o [split $extifcs_s \n]
-	set extifcs {}
-	foreach iplink_line $extifcs_o {
-	    if { [ regexp -- {^\d+: ([^:]+): } $iplink_line -> extif ] == 0 } {
-	        continue
-	    }
-		# izbaci loopback interface iz popisa (BSD lo0)
-		if { $extif == "lo" } {
-			continue
+		# popis interfacea (BSD ifconfig -l)
+		set extifcs_p [open "| ip link show"]
+		set extifcs_s [read $extifcs_p]
+		if { [catch {close $extifcs_p} err] } {
+		    puts "ip link show failed: $err"
 		}
-		#puts "external interface found: $extif"
-	    lappend extifcs $extif
-	}
-	foreach node $node_list {
-	    if { [nodeType $node] == "rj45" } {
-		set i [lsearch $extifcs [getNodeName $node]]
-		if { $i < 0 } {
-		    after idle {.dialog1.msg configure -wraplength 4i}
-		    tk_dialog .dialog1 "IMUNES error" \
-			"Error: external interface \"[getNodeName $node]\" non-existant" \
-		    info 0 Dismiss
-		    return
+		set extifcs_o [split $extifcs_s \n]
+		set extifcs {}
+		foreach iplink_line $extifcs_o {
+		    if { [ regexp -- {^\d+: ([^:]+): } $iplink_line -> extif ] == 0 } {
+		        continue
+		    }
+			# izbaci loopback interface iz popisa (BSD lo0)
+			if { $extif == "lo" } {
+				continue
+			}
+			#puts "external interface found: $extif"
+		    lappend extifcs $extif
+		}
+		foreach node $node_list {
+		    if { [nodeType $node] != "rj45" } {
+		    	continue
+		    }
+			set i [lsearch $extifcs [getNodeName $node]]
+			if { $i < 0 } {
+			    after idle {.dialog1.msg configure -wraplength 4i}
+			    tk_dialog .dialog1 "IMUNES error" \
+				"Error: external interface \"[getNodeName $node]\" non-existant" \
+			    info 0 Dismiss
+			    return
+		    }
 		}
-	    }
-	}
     }
 
     foreach b {link router hub lanswitch host pc rj45} {