Googie wrote: Any idea how to get superuser rights by tcl script? It's easy under expect, but I have to do it in clear tcl (without packages). Well? Thanks
MGS [2003/05/08] - What superuser rights are you after? Superuser execute right? Or superuser file access rights?
Have you tried using 'sudo'? The -S option enables reading password on stdin.
You could use this rough code as a basis:
proc sudo:passwd {pipe} {
puts "sudo:passwd \[$pipe\]"
catch {puts $pipe mypass}
fileevent $pipe writable {}
}
proc sudo:read {pipe} {
puts "sudo:read \[$pipe\]"
variable $pipe
upvar 0 $pipe _
set chars [gets $pipe line]
puts " read \[$line\] ($chars chars)"
append _(stdout) $line\n
if { [eof $pipe] } {
puts " got eof"
fileevent $pipe readable {}
fileevent $pipe writable {}
if { [catch {close $pipe} code] } {
puts " Got error closing sudo pipe"
puts " \[$::errorCode\] $code"
} else {
puts " Successfully closed sudo pipe"
puts " code = \[$code\]"
}
set _(done) 1
}
}
proc sudo:run {args} {
set cmd [eval concat $args]
puts "cmd = \[$cmd\]"
set list [concat [list sudo -S] $cmd [list 2>&1]]
puts "list = \[$list\]"
if { [catch {open |$list r+} pipe] } {
puts "\[$::errorCode\] $pipe"
} else {
puts " open returned \[$pipe\]"
fconfigure $pipe -buffering none -blocking 1
fileevent $pipe writable [list sudo:passwd $pipe]
fileevent $pipe readable [list sudo:read $pipe]
}
variable $pipe
upvar 0 $pipe _
set _(done) 1
set _(stdout) ""
set ns [namespace current]
if { [string equal $ns ::] } { set ns "" }
return ${ns}::$pipe
}
set sudo [sudo:run [list ls -l /root]]
vwait ${sudo}(done)
puts " sudo = \[$sudo\]"
upvar #0 $sudo array
parray array
Note you'll have to change 'mypass' in sudo:passwd to whatever your password is.
If you're after superuser rights to read protected files, you could always use 'cat' ...