|
|
|
@ -1,7 +1,7 @@ |
|
|
|
#!/usr/bin/env tclsh |
|
|
|
#!/usr/bin/env tclsh |
|
|
|
|
|
|
|
|
|
|
|
#Создан: Пн 26 авг 2013 12:42:48 |
|
|
|
#Создан: Пн 26 авг 2013 12:42:48 |
|
|
|
#Изменён: Чт 29 авг 2013 12:20:10 |
|
|
|
#Изменён: Пт 06 сен 2013 14:07:59 |
|
|
|
|
|
|
|
|
|
|
|
# |
|
|
|
# |
|
|
|
# (c) 2013, Maxim Lihachev, <envrm@yandex.ru> |
|
|
|
# (c) 2013, Maxim Lihachev, <envrm@yandex.ru> |
|
|
|
@ -67,7 +67,8 @@ if {$argc < 3} { |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
getUserInfo {*}$argv |
|
|
|
getUserInfo {*}$argv |
|
|
|
|
|
|
|
|
|
|
|
set TEMPLATE mIRC.tpl |
|
|
|
set TEMPLATE [file join [file dirname [file normalize $argv0]] mIRC.tpl] |
|
|
|
|
|
|
|
|
|
|
|
set BUNDLE mIRC_[regsub {@.*$} $mIRC::MAIL {}] |
|
|
|
set BUNDLE mIRC_[regsub {@.*$} $mIRC::MAIL {}] |
|
|
|
|
|
|
|
|
|
|
|
makeBundle $TEMPLATE $BUNDLE |
|
|
|
makeBundle $TEMPLATE $BUNDLE |
|
|
|
|
