Return to forforum.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / CapaTools

Annotation of capa/capa51/CapaTools/forforum.tcl, revision 1.1

1.1     ! albertel    1: while { ! [eof file0] } {
        !             2: 	set line [ gets file0 ]
        !             3: 	puts "name [lindex [split [lindex $line end] @] 0]"
        !             4: 	puts "password [lindex $line 3]"
        !             5: 	puts "title [string range $line 24 54]"
        !             6: 	puts "email [lindex $line end]"
        !             7: 	puts "my_vista 0"
        !             8: 	puts ""
        !             9: }