/[radius]/radius/radiusd/testsuite/lib/radiusd.exp
ViewVC logotype

Diff of /radius/radiusd/testsuite/lib/radiusd.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by gray, Thu May 29 15:50:28 2003 UTC revision 1.6 by gray, Fri Nov 7 14:47:29 2003 UTC
# Line 73  proc default_radiusd_version {} { Line 73  proc default_radiusd_version {} {
73      regexp "Compilation flags: (.*)\r?" [lindex $tmp 3] m RADIUSFLAGS      regexp "Compilation flags: (.*)\r?" [lindex $tmp 3] m RADIUSFLAGS
74      set flg [split $RADIUSFLAGS]      set flg [split $RADIUSFLAGS]
75      for {set i 0} {$i < [llength $flg]} {incr i} {      for {set i 0} {$i < [llength $flg]} {incr i} {
76          set CAPABILITY([lindex $flg $i]) 1          if [regexp "(.*)=(.*)" [lindex $flg $i] var name value] {
77                set CAPABILITY($name) $value
78            } else {
79                set CAPABILITY([lindex $flg $i]) 1
80            }
81      }      }
82  }  }
83    
# Line 106  proc default_radiusd_start {args} { Line 110  proc default_radiusd_start {args} {
110      append sw " "      append sw " "
111            
112      if [info exists CAPABILITY(USE_SERVER_GUILE)] {      if [info exists CAPABILITY(USE_SERVER_GUILE)] {
113          append sw "--guile"          append sw "--guile "
114        }
115        if [info exists CAPABILITY(USE_SNMP)] {
116            append sw "--snmp "
117      }      }
118    
119      if [info exists host_board] {      if [info exists host_board] {
120          if [board_info $host_board exists top_srcdir] {          if [board_info $host_board exists top_srcdir] {
121              append sw " --srcdir [board_info $host_board top_srcdir]"              append sw "--srcdir [board_info $host_board top_srcdir]"
122          }          }
123          if [board_info $host_board exists top_builddir] {          if [board_info $host_board exists top_builddir] {
124              append sw " --builddir [board_info $host_board top_builddir]"              append sw "--builddir [board_info $host_board top_builddir]"
125          }          }
126      }      }
127    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26