blob: cc42e8dabad9f33742ca555360c1b3d6f13c7690 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
# Standalone Kerberos test.
# This is a DejaGnu test script.
# This script tests that the Kerberos tools can talk to each other.
# This mostly just calls procedures in testsuite/config/default.exp.
# Set up the Kerberos files and environment.
if {![get_hostname] || ![setup_kerberos_files] || ![setup_kerberos_env]} {
return
}
# If we do not have what is for a V4 test - return
if ![v4_compatible_enctype] {
return
}
# Initialize the Kerberos database. The argument tells
# setup_kerberos_db that it is being called from here.
if ![setup_kerberos_db 1] {
return
}
# We are about to start up a couple of daemon processes. We do all
# the rest of the tests inside a proc, so that we can easily kill the
# processes when the procedure ends.
proc check_and_destroy_v4_tix { client server } {
global REALMNAME
global des3_krbtgt
# Skip this if we're using a des3 TGT, since that's supposed to fail.
if {$des3_krbtgt} {
return
}
# Make sure that klist can see the ticket.
if ![v4klist "$client" "$server" "v4klist"] {
return
}
# Destroy the ticket.
if ![v4kdestroy "v4kdestroy"] {
return
}
if ![v4klist_none "v4klist no tix 1"] {
return
}
}
proc doit { } {
global REALMNAME
global KLIST
global KDESTROY
global KEY
global hostname
global spawn_id
global tmppwd
# Start up the kerberos and kadmind daemons.
if ![start_kerberos_daemons 1] {
return
}
# Use kadmin to add an host key.
if ![add_random_key host/$hostname 1] {
return
}
# Use ksrvutil to create a srvtab entry.
if ![setup_srvtab 1] {
return
}
# Use kinit to get a ticket.
if [v4kinit krbtest.admin adminpass$KEY 1] {
check_and_destroy_v4_tix krbtest.admin@$REALMNAME krbtgt.$REALMNAME@$REALMNAME
}
# Use kinit with srvtab to get a ticket.
# XXX - Currently kinit doesn't support "-4 -k"!
# set shorthost [string range $hostname 0 [expr [string first . $hostname] - 1]]
# if [v4kinit_kt host.$shorthost SRVTAB:$tmppwd/srvtab 1] {
# check_and_destroy_v4_tix host.$shorthost@$REALMNAME krbtgt.$REALMNAME@$REALMNAME
# }
}
set status [catch doit msg]
stop_kerberos_daemons
if { $status != 0 } {
send_error "ERROR: error in v4standalone.exp\n"
send_error "$msg\n"
exit 1
}
|