expect/tcl that have limited regexp capabilities.
Pullup from 1-2-3 branch
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@14044
dc483132-0cff-0310-8789-
dd5450dbe970
-2001-11-02 Tom Yu <tlyu@mit.edu>
+2001-11-06 Tom Yu <tlyu@mit.edu>
+
+ * rsh.exp: Fix date-grabbing regexp to deal with older versions of
+ expect/tcl that have limited regexp capabilities.
+
+12001-11-02 Tom Yu <tlyu@mit.edu>
* rsh.exp: Fix date grabbing code so we don't try to parse the
timezone-less date out of of a syslog message. expect eof in
set testname "date"
spawn $RSH $hostname -k $REALMNAME -D 3544 -A date
expect {
- -re "\[A-Za-z0-9\]+ \[A-Za-z0-9\]+ +\[0-9\]+ \[0-9\]{2}:\[0-9\]{2}:\[0-9\]{2} \[A-Za-z0-9\]+ \[0-9\]{4}\r\n" {
+ -re "\[A-Za-z0-9\]+ \[A-Za-z0-9\]+ +\[0-9\]+ \[0-9\]+:\[0-9\]+:\[0-9\]+ \[A-Za-z0-9\]+ \[0-9\]+\r\n" {
set result $expect_out(0,string)
}
timeout {