diff options
Diffstat (limited to 'src/kadmin/passwd/unit-test/config/unix.exp')
-rw-r--r-- | src/kadmin/passwd/unit-test/config/unix.exp | 115 |
1 files changed, 0 insertions, 115 deletions
diff --git a/src/kadmin/passwd/unit-test/config/unix.exp b/src/kadmin/passwd/unit-test/config/unix.exp deleted file mode 100644 index 479d772..0000000 --- a/src/kadmin/passwd/unit-test/config/unix.exp +++ /dev/null @@ -1,115 +0,0 @@ -if { [string length $VALGRIND] } { - rename spawn valgrind_aux_spawn - proc spawn { args } { - global VALGRIND - upvar 1 spawn_id spawn_id - set newargs {} - set inflags 1 - set eatnext 0 - foreach arg $args { - if { $arg == "-ignore" \ - || $arg == "-open" \ - || $arg == "-leaveopen" } { - lappend newargs $arg - set eatnext 1 - continue - } - if [string match "-*" $arg] { - lappend newargs $arg - continue - } - if { $eatnext } { - set eatnext 0 - lappend newargs $arg - continue - } - if { $inflags } { - set inflags 0 - # Only run valgrind for local programs, not - # system ones. -#&&![string match "/bin/sh" $arg] sh is used to start kadmind! - if [string match "/" [string index $arg 0]]&&![string match "/bin/ls" $arg]&&![regexp {/kshd$} $arg] { - set newargs [concat $newargs $VALGRIND] - } - } - lappend newargs $arg - } - set pid [eval valgrind_aux_spawn $newargs] - return $pid - } -} - -# Hack around Solaris 9 kernel race condition that causes last output -# from a pty to get dropped. -if { $PRIOCNTL_HACK } { - catch {exec priocntl -s -c FX -m 30 -p 30 -i pid [getpid]} - rename spawn oldspawn - proc spawn { args } { - upvar 1 spawn_id spawn_id - set newargs {} - set inflags 1 - set eatnext 0 - foreach arg $args { - if { $arg == "-ignore" \ - || $arg == "-open" \ - || $arg == "-leaveopen" } { - lappend newargs $arg - set eatnext 1 - continue - } - if [string match "-*" $arg] { - lappend newargs $arg - continue - } - if { $eatnext } { - set eatnext 0 - lappend newargs $arg - continue - } - if { $inflags } { - set inflags 0 - set newargs [concat $newargs {priocntl -e -c FX -p 0}] - } - lappend newargs $arg - } - set pid [eval oldspawn $newargs] - return $pid - } -} - -# -# kpasswd_version -- extract and print the version number of kpasswd -# - -proc kpasswd_version {} { - global KPASSWD - catch "exec ident $KPASSWD" tmp - if [regexp {Id: kpasswd.c,v ([0-9]+\.[0-9]+)} $tmp \ - dummy version] then { - clone_output "$KPASSWD version $version\n" - } else { - clone_output "$KPASSWD version <unknown>\n" - } -} -# -# kpasswd_load -- loads the program -# -proc kpasswd_load {} { - # -} - -# kpasswd_exit -- clean up and exit -proc kpasswd_exit {} { - # -} - -# -# kpasswd_start -- start kpasswd running -# -proc kpasswd_start { args } { - global KPASSWD - global spawn_id - - verbose "% $KPASSWD $args" 1 - eval spawn $KPASSWD $args -} |