gr3yh47
05.12.2005, 21:06
ЭТА МОЙ ПЕРВЫЙ СКРИПТ НА PERL-e :)
Прошу высказать свои коменты и доработки в коде потаму что эта моя первая работа и код кривой - сам знаю.
beta -версия:)
Тестил под фряхой все работает на ура толька еще не доправил если есть в syslog.conf:
запись типа /dev/..... то скрипт повиснет,поэтому перед проверкой над закоментить это строку(и). Эта тестовый скрипт поэтому не пинайте...
Я его буду модернизировать,проста время нет - сессия...
Все прова защищены:)
http://n4n0.narod.ru/c0d3/l0gbi7.pl.txt
Прошу высказать свои коменты и доработки в коде потаму что эта моя первая работа и код кривой - сам знаю.
beta -версия:)
Тестил под фряхой все работает на ура толька еще не доправил если есть в syslog.conf:
запись типа /dev/..... то скрипт повиснет,поэтому перед проверкой над закоментить это строку(и). Эта тестовый скрипт поэтому не пинайте...
Я его буду модернизировать,проста время нет - сессия...
Все прова защищены:)
http://n4n0.narod.ru/c0d3/l0gbi7.pl.txt