Purpose: to investigate issues relating to writing set-userid Tk applications.
Here's a simple set-userid application that I'm trying to get to run.
$ cat setuid.tcl
#!/bin/sh # \ exec tclsh "$0" ${1+"$@"} package require Tclx set i [info loaded] puts $i set effective [id effective userid] set real [id userid ] puts "Before: realid = $real effectiveid = $effective" id userid $real puts "After: realid = $real effectiveid = $effective" package require Tk proc quitApp { args } { puts [format "%s" $args] } set res [wm protocol . WM_DELETE_WINDOW quitApp] puts $res $ su differentuid Password: % chmod 4755 setuid.tcl $ $ /home/lvirden/setuid.tcl
invalid command name "erid]"
while executing
"erid]"
(file "/dev/fd/4" line 1)
Looking for insights on how to get this script to work successfully.