← Back to branch summary

~ubuntu-branches/ubuntu/maverick/krb5/maverick

« back to all changes in this revision

Viewing changes to src/tests/dejagnu/krb-standalone/kprop.exp

  • Committer: Bazaar Package Importer
  • Author(s): Sam Hartman
  • Date: 2009-05-07 16:16:34 UTC
  • mfrom: (13.1.7 sid)
  • Revision ID: james.westby@ubuntu.com-20090507161634-xqyk0s9na0le4flj
Tags: 1.7dfsg~beta1-4
http://bugs.debian.org/527353
When  decrypting the TGS response fails with the subkey, try with the
session key to work around Heimdal bug, Closes: #527353 

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tests/dejagnu/krb-standalone/kprop.exp
 
1
# Password-changing Kerberos test.
 
2
# This is a DejaGnu test script.
 
3
 
 
4
# We are about to start up a couple of daemon processes.  We do all
 
5
# the rest of the tests inside a proc, so that we can easily kill the
 
6
# processes when the procedure ends.
 
7
 
 
8
proc setup_slave {} {
 
9
    global tmppwd hostname REALMNAME
 
10
    file delete $tmppwd/slave-stash $tmppwd/slave-acl
 
11
    file copy -force $tmppwd/stash:foo $tmppwd/slave-stash
 
12
    file copy -force $tmppwd/acl $tmppwd/slave-acl
 
13
    if ![file exists $tmppwd/kpropdacl] {
 
14
        set aclfile [open $tmppwd/kpropd-acl w]
 
15
        puts $aclfile "host/$hostname@$REALMNAME"
 
16
        close $aclfile
 
17
    }
 
18
    file copy -force $tmppwd/adb.lock $tmppwd/slave-adb.lock
 
19
    foreach suffix { {} .kadm5 .kadm5.lock .ok } {
 
20
        file copy -force $tmppwd/kdc-db$suffix $tmppwd/slave-db$suffix
 
21
    }
 
22
}
 
23
 
 
24
proc scan_kpropd_output {} {
 
25
    global kpropd_spawn_id kpropd_pid
 
26
 
 
27
    # See if kpropd logged anything.
 
28
    expect {
 
29
        -i $kpropd_spawn_id
 
30
        eof {
 
31
            # I think kpropd is supposed to run a loop in standalone
 
32
            # mode, but exiting seems to be normal behavior.
 
33
#           fail "kprop (server exited)"
 
34
            wait -i $kpropd_spawn_id
 
35
            unset kpropd_spawn_id kpropd_pid
 
36
        }
 
37
        timeout { }
 
38
        -re "Connection from \[a-zA-Z.-\]*" { exp_continue }
 
39
        -re "krb5_recvauth" { exp_continue }
 
40
        -re "authenticated client" { exp_continue }
 
41
        -re "calling kdb5_util to load database\r\n" { exp_continue }
 
42
        -re "Child PID is \[0-9\]*\r\n" { exp_continue }
 
43
        -re "Rejected connection" {
 
44
            fail "kprop (rejected)"
 
45
        }
 
46
    }
 
47
}
 
48
 
 
49
proc doit { } {
 
50
    global KLIST KDESTROY
 
51
    global REALMNAME KEY
 
52
    global KADMIN_LOCAL KTUTIL KDB5_UTIL KPROPLOG KPROP kpropd_spawn_id
 
53
    global hostname tmppwd spawn_id timeout
 
54
    global KRBIV supported_enctypes portbase mode ulog des3_krbtgt
 
55
 
 
56
    # Delete any db, ulog files
 
57
    delete_db
 
58
 
 
59
    # Initialize the Kerberos database.  The argument tells
 
60
    # setup_kerberos_db that it is being called from here.
 
61
    if ![setup_kerberos_db 0] {
 
62
        return
 
63
    }
 
64
    setup_slave
 
65
    if ![start_kerberos_daemons 0] {
 
66
        return
 
67
    }
 
68
    if ![add_random_key host/$hostname 0] {
 
69
        fail "kprop (host key)"
 
70
        return
 
71
    }
 
72
    if ![setup_srvtab 0] {
 
73
        fail "kprop (srvtab)"
 
74
        return
 
75
    }
 
76
 
 
77
    # Get kprop server up and running.
 
78
    envstack_push
 
79
    setup_kerberos_env slave
 
80
    start_kpropd
 
81
    envstack_pop
 
82
 
 
83
    # Use kadmin to add a key.
 
84
    if ![add_kerberos_key wakawaka 0] {
 
85
        return
 
86
    }
 
87
 
 
88
    # Dump master database.
 
89
    envstack_push
 
90
    setup_kerberos_env kdc
 
91
    spawn $KDB5_UTIL dump $tmppwd/slave_datatrans
 
92
    expect eof
 
93
    if ![check_exit_status "kprop (kdb5_util dump)"] { return }
 
94
 
 
95
    # Just in case kpropd is a little slow in starting up...
 
96
    sleep 1
 
97
 
 
98
    # Try a propagation.
 
99
    spawn $KPROP -f $tmppwd/slave_datatrans -P [expr 10 + $portbase] -s $tmppwd/srvtab $hostname
 
100
    expect eof
 
101
    set kprop_exit [check_exit_status "kprop (exit status)"]
 
102
    # log output for debugging
 
103
    scan_kpropd_output
 
104
    if !$kprop_exit { return }
 
105
 
 
106
    # Examine new database.
 
107
    setup_kerberos_env slave
 
108
    spawn $KADMIN_LOCAL -r $REALMNAME -q listprincs
 
109
    expect {
 
110
        wakawaka@ {
 
111
            expect eof
 
112
        }
 
113
        eof {
 
114
            fail "kprop (updated slave data)"
 
115
            return
 
116
        }
 
117
        timeout {
 
118
            fail "kprop (examining new db)"
 
119
            return
 
120
        }
 
121
    }
 
122
    pass "kprop"
 
123
}
 
124
 
 
125
run_once kprop {
 
126
    catch "unset kpropd_pid"
 
127
    catch "unset kpropd_spawn_id"
 
128
 
 
129
    # Set up the Kerberos files and environment.
 
130
    if {![get_hostname] || ![setup_kerberos_files] || ![setup_kerberos_env]} {
 
131
        return
 
132
    }
 
133
 
 
134
    set status [catch doit msg]
 
135
 
 
136
    stop_kerberos_daemons
 
137
 
 
138
    # if kpropd is running, kill it
 
139
    if [info exists kpropd_pid] {
 
140
        catch {
 
141
            exec kill $kpropd_pid
 
142
            expect -i $kpropd_spawn_id eof
 
143
            wait -i $kpropd_spawn_id
 
144
            unset kpropd_pid kpropd_spawn_id
 
145
        }
 
146
    }
 
147
 
 
148
    delete_db
 
149
 
 
150
    if { $status != 0 } {
 
151
        send_error "ERROR: error in kprop.exp\n"
 
152
        send_error "$msg\n"
 
153
        exit 1
 
154
    }
 
155
}