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

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: }