starchik

Ребят, кто-то настраивал на этой железке PIM-SM? Бьюсь уже второй день, не могу понять где прописать RP, в мануале написано что поддерживает только статический RP, но как его и где прописать хз. И как потом все это вылить абоненту?

вот my $req_file = $Config->{'PATH.req_file'} || die "PATH.req_file not defined."; $req_file = $dir."/".$req_file; my $sig_file = $Config->{'PATH.sig_file'} || die "PATH.sig_file not defined."; $sig_file = $dir."/".$sig_file; my $template_file = $Config->{'PATH.template_file'} || die "PATH.template_file not defined."; $template_file = $dir."/".$template_file; <<== 50 строка my $db_host = $Config->{'DB.host'} || die "DB.host not defined."; my $db_user = $Config->{'DB.user'} || die "DB.user not defined."; my $db_pass = $Config->{'DB.password'} || die "DB.password not defined."; my $db_name = $Config->{'DB.name'} || die "DB.name not defined."; ............. my $DBH; my ($lastDumpDateOld, $lastAction, $lastCode, $lastResult); dbConnect(); getParams(); my %NEW = (); my %OLD = (); my %OLD_IPS = (); my %OLD_DOMAINS = (); my %OLD_URLS = (); <<== 92 строка my %OLD_SUBNETS = (); my %OLD_TRUE = (); my %OLD_TRUE_IPS = (); my %OLD_TRUE_DOMAINS = (); my %OLD_TRUE_URLS = (); my %OLD_TRUE_SUBNETS = (); my %NEW_RECORDS = (); my %NEW_DOMAINS = (); my %NEW_URLS = (); my %NEW_IPS = (); my %NEW_SUBNETS = (); my %EX_IPS = (); my %EX_DOMAINS = (); my %EX_SUBNETS = (); <<== 107 строка my $MAILTEXT = ''; my $MAIL_ADDED = ''; <<== 109 строка my $MAIL_ADDED_IPS = ''; my $MAIL_REMOVED = ''; my $MAIL_REMOVED_IPS = ''; my $MAIL_EXCLUDES = ''; my $MAIL_ALONE = ''; debug("Last dump date:\t".$lastDumpDateOld); debug("Last action:\t".$lastAction); debug("Last code:\t".$lastCode); debug("Last result:\t".$lastResult);

perl -v This is perl 5, version 18, subversion 2 (v5.18.2) built for amd64-freebsd-thread-multi Copyright 1987-2013, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. прикол в том, что пока не было итераций таких ошибок не было...

спасибо, но теперь сыпятся другие ошибки ./zapret.pl DEBUG: Last dump date: 1409811413 DEBUG: Last action: getLastDumpDate DEBUG: Last code: 6cf3450a9364ff77e816bf0731d094c92 DEBUG: Last result: old DEBUG: Checking dump date... Soap result not defined, retrying... Subroutine _call redefined at (eval 111) line 50. Subroutine OperatorRequestService::want_som redefined at (eval 111) line 92. Subroutine AUTOLOAD redefined at (eval 111) line 109. Subroutine OperatorRequestService::getResult redefined at (eval 111) line 107. Subroutine OperatorRequestService::getLastDumpDate redefined at (eval 111) line 107. Subroutine OperatorRequestService::sendRequest redefined at (eval 111) line 107. Subroutine OperatorRequestService::getLastDumpDateEx redefined at (eval 111) line 107. Soap result not defined, retrying... Subroutine _call redefined at (eval 118) line 50. Subroutine OperatorRequestService::want_som redefined at (eval 118) line 92. Subroutine AUTOLOAD redefined at (eval 118) line 109. Subroutine OperatorRequestService::getLastDumpDateEx redefined at (eval 118) line 107. Subroutine OperatorRequestService::getLastDumpDate redefined at (eval 118) line 107. Subroutine OperatorRequestService::sendRequest redefined at (eval 118) line 107. Subroutine OperatorRequestService::getResult redefined at (eval 118) line 107. DEBUG: RKN last dump date: 1409853900 DEBUG: Last dump date > prev. dump date. Updating. DEBUG: Sending request... Subroutine _call redefined at (eval 143) line 50. Subroutine OperatorRequestService::want_som redefined at (eval 143) line 92. Subroutine AUTOLOAD redefined at (eval 143) line 109. Subroutine OperatorRequestService::getLastDumpDateEx redefined at (eval 143) line 107. Subroutine OperatorRequestService::sendRequest redefined at (eval 143) line 107. Subroutine OperatorRequestService::getLastDumpDate redefined at (eval 143) line 107. Subroutine OperatorRequestService::getResult redefined at (eval 143) line 107. Wide character in print at ./zapret.pl line 369. DEBUG: запрос принят DEBUG: Updating lastDumpDate = 1409853900 их можно как-то убрать?

2alibek если не трудно, выложи структуру таблички REQUESTS 2Wingman у меня почему-то Ваш скрипт, очень часто выдает ошибку Can't get lastDumpDateEx! три раза запускаю, 2 точно вываливается с ошибкой, а то и все 3 раза. кто знает хорошо перл, подскажите плз. можно сделать проверку вот тут sub getLastDumpDate { my $soap= SOAP::Lite->service($api_url); my @result; eval{ @result = $soap->getLastDumpDateEx(); }; if( $@ ) { print "Error while getLastDumpDate: ".$@."\n"; exit; } if( !defined($result[0]) || $result[0] !~ /^(\d+)$/ ) { print "Can't get lastDumpDateEx!\n"; print Dumper(@result); exit; } else { my $stamp = $result[0] / 1000; return $stamp; } } что бы не писалась ошибка, а повторно выполнялся запрос. пробовал так sub getLastDumpDate { my $soap= SOAP::Lite->service($api_url); my @result; eval{ @result = $soap->getLastDumpDateEx(); }; if( $@ ) { print "Error while getLastDumpDate: ".$@."\n"; exit; } while( !defined($result[0]) || $result[0] !~ /^(\d+)$/ ) { print "Can't get lastDumpDateEx!\n"; print Dumper(@result); # exit; $soap= SOAP::Lite->service($api_url); @result = $soap->getLastDumpDateEx(); } my $stamp = $result[0] / 1000; return $stamp; } но тогда другие ошибки сыпятся но в итоге все отрабатывает. как правильно это сделать? ./zapret.pl DEBUG: Last dump date: 1409819409 DEBUG: Last action: getLastDumpDate DEBUG: Last code: 125f3577d4c98cdd47a2487d3742ad26 DEBUG: Last result: old DEBUG: Checking dump date... Can't get lastDumpDateEx! Subroutine _call redefined at (eval 111) line 50. Subroutine OperatorRequestService::want_som redefined at (eval 111) line 92. Subroutine AUTOLOAD redefined at (eval 111) line 109. Subroutine OperatorRequestService::getResult redefined at (eval 111) line 107. Subroutine OperatorRequestService::getLastDumpDate redefined at (eval 111) line 107. Subroutine OperatorRequestService::sendRequest redefined at (eval 111) line 107. Subroutine OperatorRequestService::getLastDumpDateEx redefined at (eval 111) line 107. Can't get lastDumpDateEx! Subroutine _call redefined at (eval 118) line 50. Subroutine OperatorRequestService::want_som redefined at (eval 118) line 92. Subroutine AUTOLOAD redefined at (eval 118) line 109. Subroutine OperatorRequestService::getLastDumpDateEx redefined at (eval 118) line 107. Subroutine OperatorRequestService::sendRequest redefined at (eval 118) line 107. Subroutine OperatorRequestService::getResult redefined at (eval 118) line 107. Subroutine OperatorRequestService::getLastDumpDate redefined at (eval 118) line 107. DEBUG: RKN last dump date: 1409817720 DEBUG: lastDumpDate <= prev. dump date. Exiting.

спасибо

а можно с примером, не силен в перле....:(

/home/rzs# ./zapret.pl Global symbol "@result" requires explicit package name at ./zapret.pl line 232. Global symbol "@result" requires explicit package name at ./zapret.pl line 232. Global symbol "@result" requires explicit package name at ./zapret.pl line 234. Global symbol "@result" requires explicit package name at ./zapret.pl line 237. Execution of ./zapret.pl aborted due to compilation errors. кто подскажет в чем дело? 222 sub getLastDumpDate 223 { 224 eval { 225 my $soap= SOAP::Lite->service( $api_url ); 226 my @result = $soap->getLastDumpDateEx(); 227 }; 228 if( $@ ) { 229 print "Error while getLastDumpDate: ".$@."\n"; 230 exit; 231 } 232 if( !defined($result[0]) || $result[0] !~ /^(\d+)$/ ) { 233 print "Can't get lastDumpDateEx!"; 234 print Dumper(@result); 235 exit; 236 } else { 237 my $stamp = $result[0] / 1000; 238 return $stamp; 239 } 240}

т.е. даже если нет ТСЖ надо иди к жильцам и просить всех подписать бумагу?

АП

какие-то странные пинги у вас....у меня при загрузке канала 75/50 пинги в пределах 10-13 мс

получается так.

жилые дома в которых жители не захотели организовать ТСЖ, у нас таких большинство.

а кто является собственником, если нет ТСЖ? я так понимаю ЖКХ или Администрация города?

я не совсем понятно написал. с теми домами, которыми управляет ЖКХ в которых нет ТСЖ, на них они тоже не желают выдать ТУ по причине отсутствия специалиста, а именно инженера. так вроде понятнее а что их к этому обязывает? если закон, можно ссылку где почитать?

с этим разобрались, а как быть с теми домами в которых нет ТСЖ и на них тоже отказываются выдавать ТУ по причине отсутствия спецов?

тогда непонятна роль обслуживающей организации..... у них должны быть специалисты, у которых могут попросить совета жильцы или председатель ТСЖ, а так они нам скажут мы в этом не разбираемся и подписывать ничего не будем. и получится футбол.... и еще, а как же Закон о связи, в котором написано что местные власти обязаны помогать

а как у них взять если они не знают как их писать и что туда писать....

в общем ситуация такая.... по существующей сети решили сделать проект, да бы все это легализовать. с проектом все нормально благополучно "рисуют". но для госэкспертизы требуются ТУ и договор на размещение оборудование. Надо значит надо. Взял образцы ТУ у вышестоящего провайдера и пошел в ЖКХ попросил их подписать....в ответ мне сказали что такое подписать не имеем право и у нас нет полномочий. Попросил разъяснить. Сказали что не устраивает. Попросил переделать пункты которые им не нравятся В ответ от директора Я не юрист и ничего переделывать не буду....и вообще у нас в домах ТСЖ решайте с жильцами, а мы только обслуживающая организация.....и у нас нет специалистов которые могут этим заняться. Странно, но как может жилец написать ТУ если он работает на заводе уборщицей(это к примеру)? или же председатель ТСЖ если он никогда с таким не сталкивался... кто попадал в такие ситуации как решали? есть ли закон который четко скажет от кого требовать ТУ и как их вобще получить? заранее всем откликнувшимся Спасибо.

Включение - /ip firewall address-list add address=UIP list=allow_ip comment=UID добавление выполняется на любой версии. Выключение - /ip firewall address-list remove UID а вот удаление из листа, на версии 3.хх не выполнялся. вот пример скрипта, которым все это дело управлялось. #!/bin/sh ssh user_name@ip_address_nas "$*"

Сказки какие-то. У меня работает месяцами, при том, что несколько раз в минуту дёргается по ssh для изменения правил/очередей. да это не сказки, а суровая реальность :(

всем спасибо, решил я эту проблемму......просто поставил 2.9.51 там все работает на ура. а в 3.16 думаю будет работать скрипт, если после каждого добавления правила юзать print. но сам не пробовал, ибо некогда(((

это еще почему, если заходишь по ssh на него и выполняешь команду, все работает. а вот когда скриптом - нет. а можно немного поподробнее? у мну такаяже проблема, я себе уже весь мосх сломал((( а скрипт на удаление так и не работает( писал в саппорт микротика, там сказали что на 2.9.51 все должно работать, вот теперь думаю ставить старую версию, или же продолжать ковырять 3.13