set error ""
foreach script {
#Сюда вписывайте названия своих скриптов.
} {
catch {source scripts/$script} error
if {$error != ""} {
putcmdlog "\002SCRIPT ERROR\002:$script\: $::errorInfo"
}
}
foreach script {
#Сюда вписывайте названия своих скриптов.
} {
catch {source scripts/$script} error
if {$error != ""} {
putcmdlog "\002SCRIPT ERROR\002:$script\: $::errorInfo"
}
}