set dosya [open $dosya_adresi r] set liste [split [subst -nocommands [read $dosya]] "\n"] regexp -- {DestIP=(.+?) Yport, port to connect to} $liste - ip regexp -- {PortBase=(.+?) Optional Parameters} $liste - port regexp -- {Password=(.+?) PortBase. This is} $liste - pass regexp -- {AdminPassword=(.+?) AutoDumpUsers controls whether} $liste - adminpass close $dosya
set ip "ip.adresi" set port "radyo.portu" set pass "radyo.passı" set adminpass "radyo.admin.passı"