diff options
| author | Ken Raeburn <raeburn@mit.edu> | 2008-11-07 21:56:40 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@mit.edu> | 2008-11-07 21:56:40 +0000 |
| commit | bd0e65fb6e24cc0ffe62e127c6138642d399f20d (patch) | |
| tree | 421bd1eb56faf7a03894a8bdfb181a3dc78856b0 /src/tests/dejagnu/config | |
| parent | e2774ce95c14ad7b583503e990da94f0c5924c5b (diff) | |
| download | krb5-bd0e65fb6e24cc0ffe62e127c6138642d399f20d.tar.gz krb5-bd0e65fb6e24cc0ffe62e127c6138642d399f20d.tar.xz krb5-bd0e65fb6e24cc0ffe62e127c6138642d399f20d.zip | |
Test that an iprop update log gets properly created and updated
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@21042 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/tests/dejagnu/config')
| -rw-r--r-- | src/tests/dejagnu/config/default.exp | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp index acd7e7747..e2b8533da 100644 --- a/src/tests/dejagnu/config/default.exp +++ b/src/tests/dejagnu/config/default.exp @@ -450,6 +450,7 @@ foreach i { {KDESTROY $objdir/../../clients/kdestroy/kdestroy} {RESOLVE $objdir/../resolve/resolve} {T_INETD $objdir/t_inetd} + {KPROPLOG $objdir/../../slave/kproplog} } { set varname [lindex $i 0] if ![info exists $varname] { @@ -781,12 +782,15 @@ proc modify_principal { name args } { # kpasswd +5 # krb524 +7 # application servers (krlogind, telnetd, krshd, ftpd, etc) +8 +# iprop +9 if [info exists PORTBASE] { set portbase $PORTBASE } else { set portbase 3085 } +set ulog 0 + # setup_kerberos_files # This procedure will create some Kerberos files which must be created # manually before trying to run any Kerberos programs. Returns 1 on @@ -804,6 +808,7 @@ proc setup_kerberos_files { } { global master_key_type global mode global portbase + global ulog if ![get_hostname] { return 0 @@ -851,6 +856,13 @@ proc setup_kerberos_files { } { puts $conffile " default_principal_expiration = 2037.12.31.23.59.59" puts $conffile " default_principal_flags = -postdateable forwardable" puts $conffile " dict_file = $tmppwd/dictfile" + if { $ulog != 0 } { + puts $conffile " iprop_enable = true" + puts $conffile " iprop_port = [expr 9 + $portbase]" + puts $conffile " iprop_logfile = $tmppwd/db.ulog" + } else { + puts $conffile "# no ulog" + } puts $conffile " \}" puts $conffile "" close $conffile @@ -890,6 +902,13 @@ proc setup_kerberos_files { } { return 1 } +proc reset_kerberos_files { } { + global tmppwd + file delete $tmppwd/kdc.conf $tmppwd/krb5.client.conf \ + $tmppwd/krb5.server.conf $tmppwd/krb5.kdc.conf + setup_kerberos_files +} + proc setup_krb5_conf { {type client} } { global tmppwd global hostname |