Перейти к содержимому
Калькуляторы

starchik

Пользователи
  • Публикации

    23
  • Зарегистрирован

  • Посещение

О starchik

  • Звание
    Абитуриент
  • День рождения 13.05.1985
  1. Ребят, кто-то настраивал на этой железке PIM-SM? Бьюсь уже второй день, не могу понять где прописать RP, в мануале написано что поддерживает только статический RP, но как его и где прописать хз. И как потом все это вылить абоненту?
  2. Опубликована Процедура блокировки некошерной инфо

    вот 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);
  3. Опубликована Процедура блокировки некошерной инфо

    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. прикол в том, что пока не было итераций таких ошибок не было...
  4. Опубликована Процедура блокировки некошерной инфо

    спасибо, но теперь сыпятся другие ошибки ./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 их можно как-то убрать?
  5. Опубликована Процедура блокировки некошерной инфо

    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.
  6. Опубликована Процедура блокировки некошерной инфо

    спасибо
  7. Опубликована Процедура блокировки некошерной инфо

    а можно с примером, не силен в перле....:(
  8. Опубликована Процедура блокировки некошерной инфо

    /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}
  9. Пробелмы с получением ТУ

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

    АП
  11. MikroTik NV2 и только

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

    получается так.
  13. Пробелмы с получением ТУ

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

    а кто является собственником, если нет ТСЖ? я так понимаю ЖКХ или Администрация города?
  15. Пробелмы с получением ТУ

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