RCS file: /usr/src/CVS/NetScaner/NetScan.pm,v Working file: NetScan.pm head: 1.11 branch: locks: strict access list: symbolic names: keyword substitution: kv total revisions: 11; selected revisions: 11 description: ---------------------------- revision 1.11 date: 2002/04/17 17:19:34; author: gosha; state: Exp; lines: +53 -95 ну изменения только в стиле написания кода... ---------------------------- revision 1.10 date: 2002/04/07 10:07:28; author: gosha; state: Exp; lines: +4 -4 Ругань при -w ---------------------------- revision 1.9 date: 2001/10/16 18:54:41; author: gosha; state: Exp; lines: +14 -13 При сканированиии диапазона портов, корректно обрабатывался только первый порт. ---------------------------- revision 1.8 date: 2001/10/16 18:05:41; author: gosha; state: Exp; lines: +7 -6 Переписал использование extern ping'а ---------------------------- revision 1.7 date: 2001/06/23 17:24:12; author: gosha; state: Exp; lines: +4 -4 Локальный адрес теперь 0.0.0.0 по умолчанию ---------------------------- revision 1.6 date: 2001/06/20 18:53:16; author: gosha; state: Exp; lines: +147 -11 Добавил POD документацию ---------------------------- revision 1.5 date: 2001/06/07 11:48:25; author: gosha; state: Exp; lines: +36 -27 Процедура check_save_mode в лог записывает сл коды: OK - все ок ER0 - проблеммы с ДНС ER1 - Хост не отвечает на пинг ER2 - Не могу создать порт ER3 - Не могу связать сокет с адресом ER4 - Не могу связаться с удаленным портом ER5 - Процедура обработчик вернула 0 TO - Тайм аут при попытке соединения Добавил ключ к хешу PING_ON если не 0 то ужаленный хост сначала пингуется PING_ON раз При переборе хостов-портов сначала идут хосты... ---------------------------- revision 1.4 date: 2001/06/04 08:45:32; author: gosha; state: Exp; lines: +44 -23 Процедура check_save_mode в лог записывает сл коды: OK - все ок ER0 - проблеммы с ДНС ER1 - Не могу создать порт ER2 - Не могу связать сокет с адресом ER3 - Не могу связаться с удаленным портом ER4 - Процедура обработчик вернула 0 TO - Тайм аут при попытке соединения В init новый параметр OK_REQUEST - регэксп для разбора кодов ошибок от check_save_mode Переписал процедуру get_local_add ---------------------------- revision 1.3 date: 2001/05/27 19:39:50; author: gosha; state: Exp; lines: +96 -61 Баг в процедуре init: лишний указатель CFG в хеше конфиге Добавил поддержку записи текущего состояния сканирования в файл и востановления в следующем сеансе Юзаю модуль Symbol.pm для генерации дескрипторов. Добавил таймауты. В процедуру обработки запроса теперь первым параметром передается обьект $self Теперь my_warn экспортируется. В процедуре my_warn строка $str не проверялась на символы форматирования... В CVS добавил скрипт test_scan ---------------------------- revision 1.2 date: 2001/05/26 18:11:26; author: gosha; state: Exp; lines: +69 -17 Баг в процедуре init: лишний указатель CFG в хеше конфиге Добавил поддержку записи текущего состояния сканирования в файл и востановления в следующем сеансе ---------------------------- revision 1.1 date: 2001/05/26 17:18:59; author: gosha; state: Exp; Начало положено собственно... =============================================================================