parsing a datagroup/class

Hi Hollio,

 

 

Interesting how we can come up with different takes on this :) I got this to work....doesn't seem as elegant as yours though :(

 

 

 

set _ptr [class startsearch Friendly_URLs]

 

while { [class anymore Friendly_URLs $_ptr] } {

 

set _data [class nextelement Friendly_URLs $_ptr]

 

set short_uri [lindex [string tolower $_data] 0]

 

set redirect_uri [lindex [string tolower $_data] 1]

 

if { $lc_uri equals $short_uri } {

 

HTTP::redirect "$redirect_uri"

 

}

 

}

 

 

Still needs some validation work to ensure the datagroup contains two elements per line, but it does work, just a bit more convoluted than your solution. Actually I aquired this code from some sample code in the sample code area, so I suppose I should blame the original author! :)

 

 

 

Craig