Пошук власне у білінгу (у поле пошуку набираємо =платіжнийкод)

/usr/local/nodeny/web/listuser.pl

шукаємо рядок

Код:

     ($f_name ne $FnameSql) && &Check_Sql('fio',"%$f_name%",$tr_name,'ФИО с транслитерацией','fio') && last;
   }

вставляємо нижче

Код:

if( $Fname =~ m/=\d+/ )
{
my($l_id) = $Fname;
$l_id =~ s/=//;
$l_id=~s/^0+//;
my ($l_id,$csum) = ($l_id=~/^(\d+)(\d)/);
my $ppc=0;
$ppc += $_ foreach(split //,$l_id);

if( $ppc%10==$csum )
{
&Check_Sql('id',$l_id,$l_id,'платежный код','id') && last;
}
}

/usr/local/nodeny/web/pays.pl

Шукаємо рядок

Код:

"VALUES($Fmid,$cash,$type,$time,$Admin_id,INET_ATON('$ip'),$Admin_office,'$bonus','$reason','$coment',$category)";

Додаємо з нового рядка

Код:

if( $type eq 20 ){ &sql_do($dbh,"INSERT INTO pays (mid,cash,type,time,admin_id,admin_ip,office,bonus,reason,coment,category) VALUES($Fmid,0,50,$t,$Admin_id,INET_ATON('$ip'),$Admin_office,'','Временный платеж. Сумма: $cash грн. Срок: $Fdays дней','$coment',410)", ""); }

Возникла необходимость подружить NoDeny и фискальный регистратор (РРО). Есть ли у кого подобные наработки?

вот соответствующий кусок ф-ции HW_set_queue работающий в продакшене:

Код:

&HW_set_tag();
&hw_send_all($sock,[
  "/queue/simple/add",
  "=name=$id",
  "=target=$ip",
  "=limit-at=$speed_out/$speed_in",
  "=max-limit=$speed_out/$speed_in",
  "=burst-limit=$burst_limit_out/$burst_limit_in",
  "=burst-time=$burst/$burst",
  "=burst-threshold=$burst_threshold_out/$burst_threshold_in",
  "=disabled=no",
  "=queue=ethernet-default/ethernet-default",
  ".tag=$HW_tag"
]);
usleep( 50000 );
&HW_set_tag();
&hw_send_all($sock,[
  "/queue/simple/set",
  "=.id=$id",
  "=limit-at=$speed_out/$speed_in",
  "=max-limit=$speed_out/$speed_in",
  "=burst-limit=$burst_limit_out/$burst_limit_in",
  "=burst-threshold=$burst_threshold_out/$burst_threshold_in",
  "=burst-time=$burst/$burst",
  "=queue=ethernet-default/ethernet-default",
  ".tag=$HW_tag"
]);

usleep( 50000 );
}

версия мокротыка - 6.4 tile (ccr-1036)