LINUX.ORG.RU

Сообщения macumazan

 

[TCL] tcllib ftp не могу поймать ошибку

Форум — Development

Передаю через $file 3 пути к объекту (заведомо не существующих), что бы узнать их размер (если они будут когда-нибудь будут лежать на фтп) 

foreach file $files {
    regexp -all $RE $file file file_path
    set ABC [catch {ftp::FileSize $token  $file_path} file_size_remote]
    puts $ABC
}

Отсутствие первого файла ловится нормально (ABC1), а далее валятся ошибки и catch всегда возвращает 0. Почему так? 

ABC 1
error     error | E: Error getting file size!:
error     can't read "errorInfo": no such variable
error         while executing
error     "log::log error "$state | E: $msg:\n$errorInfo""
error         (procedure "DisplayMsg" line 24)
error         invoked from within
error     "DisplayMsg $s $errmsg error"
error         (procedure "WaitOrTimeout" line 17)
error         invoked from within
error     "WaitOrTimeout $s"
error         (procedure "ftp::FileSize" line 24)
error         invoked from within
error     "ftp::FileSize $token $file_path"
ABC 0
error     error | E: Error getting file size!:
error     can't read "errorInfo": no such variable
error         while executing
error     "log::log error "$state | E: $msg:\n$errorInfo""
error         (procedure "DisplayMsg" line 24)
error         invoked from within
error     "DisplayMsg $s $errmsg error"
error         (procedure "WaitOrTimeout" line 17)
error         invoked from within
error     "WaitOrTimeout $s"
error         (procedure "ftp::FileSize" line 24)
error         invoked from within
error     "ftp::FileSize $token $file_path"
ABC 0

 

macumazan
()
13 комментариев

[TCL] catch возвращает неверный код

Форум — Development

Собственно 

catch {exec flac -d $file.flac}
все время возвращает 1, хотя flac по сути нормально отрабатывает. wav файл вполне себе создается. Как жить дальше? Что делать?

 

macumazan
()
6 комментариев

[squid 3] Сложный url_regex

Форум — Admin

Выражение 

.*/(?<!search)(/ad(s|v)

Ошибка 

2011/12/22 17:30:06| aclParseRegexList: Invalid regular expression '.*/(?<!search)(/ad(s|v)'

Ему не по силам такое или я туплю? Ругается точно на (?<!search).

macumazan
()
6 комментариев

[Nagios] Пассивная проверка

Форум — Admin

Не могу найти параметр для шаблона сервиса, который бы отвечал за время актуальности результата проверки. Кто-нибудь подскажет?

 

macumazan
()
1 комментарий

[bcfg2] Принадлиежность клиента к нескольким группам

Форум — Admin

Как сабж организовать? clients.xml и docs ясности не вносит. Может у кого пример есть на примете?

macumazan
()
5 комментариев

[gtk2] Надо опознать виджет

Форум — Development

Интересует название виджета, который реализует выпадающий список с выбором параметров (см. в evince выбор масштаба). Есть мысли?

macumazan
()
2 комментария

[python] Вывод элемента из list

Форум — Development

Есть элемент 

<type 'list'>
[(ObjectName(1.3.6.1.2.1.1.1.0), OctetString('Linux server35 2.6.39-gentoo-r3 #1 SMP Sun Jul 31 14:18:42 MSD 2011 x86_64'))]

Не пойму, каким макаром вывести ObjectName(1.3.6.1.2.1.1.1.0) как строку? в виде 

1.3.6.1.2.1.1.1.0

 

macumazan
()
5 комментариев

[deb-based] отключить автостарт сервиса

Форум — General

Как отключить сабж при установке пакета с этим самым сервисом? Надо что бы пакет поставился и все, более никаких медвежьих услуг от пакетного менеджера.

macumazan
()
8 комментариев

[TCL] Обращение к элементу массива

Форум — Development

Есть масив 

> parray [lindex $q 0]
host1(cpu_cores) = 2
host1(memory)    = 4069

Собственно, имя массива и его значения берутся из заранее существующего списка q 

host1 {cpu_cores 2 memory 4069}

Вопрос, как в таком случае обратится к элементу массива явно не указывая его имя host1, а зная, что имя массива храниться в 

[lindex $q 0]
?

 

macumazan
()
9 комментариев

[TCL] threads and shared var.

Форум — Development

код

#! /usr/bin/tclsh
package require Thread

set bbb {11 22 33 44}

foreach tsv::set array ccc $bbb {
        set id [thread::create -joinable {
                puts [tsv::get array ccc]
        }]
        lappend ti $id
}

foreach id $ti {
        thread::join $id
}

Выхлоп 

./threads.tcl
Error from thread tid0x7f3c860eb700
no key array(ccc)
    while executing
"tsv::get array ccc"
    invoked from within
"puts [tsv::get array ccc]"
Error from thread tid0x7f3c858ea700
no key array(ccc)
    while executing
"tsv::get array ccc"
    invoked from within
"puts [tsv::get array ccc]"
Error from thread tid0x7f3c84ed2700
no key array(ccc)
    while executing
"tsv::get array ccc"
    invoked from within
"puts [tsv::get array ccc]"
Error from thread tid0x7f3c846d1700
no key array(ccc)
    while executing
"tsv::get array ccc"
    invoked from within
"puts [tsv::get array ccc]"

Где накосячил?

 

macumazan
()
7 комментариев

forward между мостом и tap

Форум — Admin

Что-то не получается закрыть forward между vlan0-мостом и tap0. 

bridge name	bridge id		STP enabled	interfaces
vlan0		8000.d2d13f27cd5f	no		tap001

Схема 

              HOST
        +---------------+
        | 192.168.100.1 |                 
        +---- tap0      |   
        |      ^        |
        |      |        |
        |  +-------+    |               KVM GUEST
        |  |       |    |            +---------------+
        |  | tap001|-+  |            |               |
        |  +-------+ |  |            |               |
        |    vlan0   +--+------------+---- nic0      |
        |192.168.169.1  |            |192.168.169.120|
        +---------------+            +---------------+

tcpdump на vlan0 при пинге tap0 из гостя 

16:01:01.812780 00:01:12:c4:a0:e2 (oui Unknown) > d2:d1:3f:27:cd:5f (oui Unknown), ethertype IPv4 (0x0800), length 98: 192.168.169.120 > 192.168.100.1: ICMP echo request, id 47106, seq 10752, length 64
16:01:01.812812 d2:d1:3f:27:cd:5f (oui Unknown) > 00:01:12:c4:a0:e2 (oui Unknown), ethertype IPv4 (0x0800), length 98: 192.168.100.1 > 192.168.169.120: ICMP echo reply, id 47106, seq 10752, length 64

При этом же пинге tcpdump -i tap0 ничего не показывает.

Даже такое правило не помогает 

ebtables -A FORWARD -s d2:d1:3f:27:cd:5f -d 52:54:00:12:34:56 -j DROP

vlan0 mac d2:d1:3f:27:cd:5f 
nic0  mac 52:54:00:12:34:56

Куда копать?

macumazan
()
5 комментариев

nagios3: эскалация

Форум — Admin

Есть 3 юзера. У user 1 

service_notification_options	c,r

у user2 

service_notification_options	c,r

и дефолтный admin от нагиоса root.

Есть эскалация на 2 юзера 

define serviceescalation{
	host_name 		*
	service_description	*	
	first_notification 	10	
	last_notification 	12
	notification_interval 	2
	contacts		user1
}

define serviceescalation{
	host_name 		*
	service_description	*	
	first_notification 	13	
	last_notification 	16
	notification_interval 	5
	contacts		user2
}

Происходит первое событие c и его получают все 3 юзера в одно и тоже время. Спрашивается, почему игнорятся эскалации? Нифига не пойму.

macumazan
()
1 комментарий

Tcl: аналог qetopt

Форум — Development

Кто-нибудь может кинуть простой пример кода разбора передаваемых параметров запуска скрипта? Что-то типа ./script.tcl -a 1 -b 2. А то никак не осилю с какой стороны подойти.

macumazan
()
2 комментария

snmptt парсинг трапа

Форум — Admin

Сам трап 

snmptrapd[1521]: 2011-03-03 16:45:33 10.11.108.116(via UDP: [10.11.108.116]:161->[10.11.110.111]) TRAP, SNMP v1, community public ^I.1.3.6.1.4.1.11.2.3.7.11.51 Enterprise Specific Trap (2) Uptime: 1 day, 3:39:58.98 ^I.1.3.6.1.2.1.16.9.1.1.2.576 = STRING: "W 03/03/11 16:45:32 00576 chassis: 50V Power Supply 1 is Faulted. Failures: 5"
Строки парсинга, которые не работают 
EVENT enterpriseSpecific .1.3.6.1.2.1.16.9.1.1.2.576 "Power Supply Status" Critical
и 
EVENT enterpriseSpecific .1.3.6.1.2.1.16.9.1.1.2.576.* "Power Supply Status" Critical
А вот эта строка отрабатывает нормально 
EVENT enterpriseSpecific .1.3.6.1.4.1.11.2.3.7.11.51.* "Status Events" Normal
Кто может подсказать, почему так?

macumazan
()

Nagios 3: связать группу хостов с группой сервисов

Форум — Admin

По этой доке в упор не вижу, как организовать сабж. Кто поделится рецептом?

macumazan
()
2 комментария

[gentoo] update world без опции deep

Форум — General

Мне кажется или нет, но если постоянно юзать сабж, то можно продинамить security updates ? Достал stage4 полгодичной давности, обновил без deep и смотрю результаты. 

 dev-libs/openssl
[U]  Available versions:
        (0.9.8) 0.9.8q
        (0)     1.0.0c
        {bindist gmp kerberos rfc3779 sse2 test zlib}
     Installed versions:  0.9.8n

и повод для беспокойства есть тут

Deep неизбежен?

 

macumazan
()
6 комментариев

[CentOS] дешевый тру энтерпрайз

Форум — Talks

Нулевая установка, scheck ssh, удаленное обновление, reboot...досвидос.. тихонечко так в grub default=0 поменялось на default=2. Бегом опять к машине. Да я скоро арч буду ставить вместо это «трушного» серверного дистрибутива.

 

macumazan
()
56 комментариев (стр. 2)

[RCS] Смена группы у файла

Форум — General

есть файл с правами 

# file: named.conf
# owner: root
# group: named

после co -l ./named.conf получаю смену группы 

# group: root

Как его заставить не менять группу?

macumazan
()

[claws-mail] Шаблон ответа

Форум — Desktop

Если сделать так %I> то получаю при ответе

OL> Доброго дня!
OL>

где OL - инициалы отправителя. Но не работает такая штука, если имя на русском. Есть вариант, как это исправить?

macumazan
()

VDE_switch vlan - проблемы.

Форум — Admin

KVM гость1 подключен 2мя интерфейсами в switch в разные vlan (vlan0, vlan1). Кто-нибудь наблюдал нестабильную работу в такой ситуации? У меня при таком раскладе либо теряется линк гостя1 с хостом (vlan0), либо гость1 не видит гость2(vlan1).

macumazan
()
← назад следующие →

RSS подписка на новые темы