#! /usr/bin/env tclsh
package require Thread


::thread::create {
	puts up
	package require mysqltcl
	puts down
	set dbhost "localhost"
	set dbuser "root"
	set dbname "test1"
	set dbpwd "1"

	set db_handle [::mysql::connect -host $dbhost -user $dbuser -db $dbname -password $dbpwd]
	set sql "INSERT INTO sbtest (k,c,pad) VALUES('1','a','b');"
	::mysql::exec $db_handle $sql
	puts [::mysql::insertid $db_handle]
	::mysql::endquery $db_handle
	::mysql::close $db_handle 
}

Что-то странное, up выводится, а все , что ниже package require mysqltcl не отрабатывает без каких либо ошибок. Что это?

Можно ли сидеть на EOL базовой системе но с актуальными портами?

Сервер. Поднят бондинг balance-rr на 3х линках. Линки заведены в hp свич.

Счич. 3 порта в транке. Транк в влане 123.

Хост. 1 порт поткнут в HP в влан 123.

На канальном уровне хост и сервер видят друг друга. На сетевом не видят. Куда рыть?

Не пойму, где туплю. Активированы ACL grsec. Хочу скрыть файл /aide.img от всех, кроме роли admin. Как такое провернуть? Сделал

define global_denied {
        /aide.img       h
}

Неосилил... Сам текст

subject /bin/cat o {
        /                               h
        /bin                            h
        /bin/cat                        rx
        /etc                            rx
        /etc/ld.so.cache                r
        /lib64/ld-2.15.so               x
        /lib64/libc-2.15.so             rx
        /usr                            h
        /usr/lib64/locale/locale-archive        r
        /var                            h
        +CAP_ALL
        bind    disabled
        connect disabled
        sock_allow_family all
}

subject /bin/zsh o {
        /                               h
        /bin                            rx
        -CAP_ALL
        sock_allow_family all
}

Надо положить в 1й список все subject (т.е. /bin/cat и /bin/zsh), а во второй все то, что лежит между {} соответственно. Смотрю сюда но просветлиния не приходит. Подсказки приветствуются.

regexp -expanded {^([\S\s]*)# THIS IS TEST} $a a acctual_rules

Ошибка

couldn't compile regular expression pattern: invalid escape \ sequence
    while executing
"regexp -expanded {^([\S\s]*)# THIS IS TEST} $a a acctual_rules"
    (file "./grsec.tcl" line 8)

Сломал мозг. Что не так?

Есть вариант получения статуса ucarp в linux? Не считая парсинга логов

Как указать сабжу использовать 2ю версия питона, игнорируя env?. Сейчас в env по дефорту стоит питон 3.

Как узнать , к каким объектам в easy-rsa/keys/ оносятся отозванные сертификаты в crl.pem ?

Как задать --log-prefix для отельно взятого правила в rules?

На каталог dir1 стоит наследоване пермишенов

default:user::rwx
default:group::rwx
default:mask::rwx
default:other::rx

Юзер создает dir1/dir2 в фтп клиенте cyberduck методом «создать папку».

stat на dir2 говорит

Доступ: (0775/drwxrwxr-x)

Юзер делает drag-and-drop диры dir3 в dir1.

stat dir3 говорит

Доступ: (0755/drwxr-xr-x)

Кто виноват?

Есть софт, много пишет в базу. На уровне mysql можно сделать так, что бы данные хранились в одной базе в течении месяца (и в нее же писала софтина), а в другой данные сохранялись постоянно? Или лучше что бы софт писал в основную, а из нее генерить базу за месяц?

Сделал так

proc file_fr {files} {
        ....
	set array_of_files(nbf) $not_busy_files_list
	set array_of_files(bf) $busy_files_list
	return [array get array_of_files]
}

но кажется, что это геморно как-то. Может есть более красивый ход?

Надо из ленты иключить все записи кроме <title> blabla </title> и сгенерить на выходе новую ленту. Нашел http://rsstool.sourceforge.net/ но что-то не могу вкурить как реализовать с помощью такой штуки сабж. Есть идеи?

Чем искать файлы и директории с кодировкой имен, отличных от UTF8 ?

Как добавить параметры для QEMU в domain XML? Вариант отсюда не работает http://berrange.com/posts/2011/12/19/using-command-line-arg-monitor-command-passthrough-with-libvirt-and-kvm/

Запускаю в qemu android-x86, но сетевых устройств обнаружить не удается. Перепровбовал все net,model= все равно устройств не видит. Где подкрутить?

Как в TCL проверить, что такой-то файл открыт каким-либо приложением на запись?

Надо печатать PDF таким образом, что бы одновременно выводился бы фоном текст (а-ля колонитулы). Банеры в CUPS для этого не подходят, так как несут какую-то иную смысловую нагрузку, добавляя собой титульную и последнюю страницу. Такую печать реально ли реализовать через lp+CUPS, или CUPS+что-то еще?

lp -d HP -h localhost -n 1 -o media=a4 -o page-left=6 -o page-rigth=6  -

При таком раскладе не выводятся первые 2 символа во всех строках. Если убрать page-left=6, то все нормально, но печть начинается с левого самого края листа. Как вытсавить печать с отступом по левому краю?