		for {set i 1} {$i<=5} {incr i} {
   					
			switch $preCommand($i) {
				
				-r {
					set preReleaseSet 1
					set preRelease $preArg($i)
				}
				
				-s {
					set preSitesSet 1
					set preSites $preArg($i)
				}
				
				-e {
					set preExcludeSet 1
					set preExclude $preArg($i)
				}
				
				-f {
					set preForceSet 1
					set preForce $preArg($i)
				}
				
				-t {
					set preTypeSet 1
					set preType $preArg($i)
				}		
				
				default {
					putlog "entering switch case"	
				}
			}
			
			if { [info exists $preReleaseSet] == 1 } { 
				
				putlog "release setted"
			} else {
				
				putlog "release not set"
			}
		}