Биллинговая система Nodeny

[Wed Sep 23 19:26:39 2009] [error] [client 172.16.23.8] Undefined subroutine &main::nEq_owner called at /usr/local/nodeny/web/dopdata.pl line 420., referer: http://billing.cn.km.ua/cgi-bin/adm/adm.pl?pp=T5-94091794uWYA0QnZnBWIygI!rWTEWw&a=dopdata&parent_type=0&id=1387&tmpl=2
[Wed Sep 23 19:26:39 2009] [error] [client 172.16.23.8] Compilation failed in require at /usr/local/www/apache22/cgi-bin/adm/adm.pl line 401., referer: http://billing.cn.km.ua/cgi-bin/adm/adm.pl?pp=T5-94091794uWYA0QnZnBWIygI!rWTEWw&a=dopdata&parent_type=0&id=1387&tmpl=2
[Wed Sep 23 19:26:39 2009] [error] [client 172.16.23.8] Premature end of script headers: adm.pl, referer: http://billing.cn.km.ua/cgi-bin/adm/adm.pl?pp=T5-94091794uWYA0QnZnBWIygI!rWTEWw&a=dopdata&parent_type=0&id=1387&tmpl=2

Очередное обновление Nodeny50! Необходимо обновится.

ул. <dopdata-_adr_street> дом <dopdata-_adr_house> кв. <dopdata-_adr_room>

#!/usr/bin/perl
# ------------------- NoDeny ------------------
# Copyright (с) Volik Stanislav, 2008, 2009
# Read license http://nodeny.com.ua/license.txt
# ---------------------------------------------
$VER=50.25;

sub KV_main
{
 &LoadDopdataMod;

 $f="$Nodeny_dir_web/kvit.html";
 open(FL,"<$f") or &Error($V? "$V Не найден шаблон для квитанций ".&Filtr_out($f) : $Er_Mess_for_Client, $EOUT);
 $out='';
 $out.=$_ while(<FL>);
 close(FL);

 # Персональный платежный код
 $csum=0;
 $csum+=$_ foreach split //,$Mid;
 $csum%=10;
 $account="$Mid$csum";

 %f=(
   1 => $U{$Mid}{o_fio},
   2 => $account,
   4 => $pm->{contract},
 );

 $out=~s/<(\d+)>/$f{$1}/g;

 $sth=&sql($dbh,"SELECT * FROM dopdata WHERE revision IN (SELECT rev FROM rev_users WHERE id=$Mid)");
 while ($h=$sth->fetchrow_hashref)
 {
    $field_alias=$h->{field_alias};
    $field_value=&Filtr_out(
       &nDopdata_print_value
       ({
          type	=> $h->{field_type},
          alias	=> $field_alias,
          value	=> $h->{field_value}
       })
    );
    $field_alias='_adr_street' if $field_alias eq 'p_street:street:name_street';
    $out=~s/<dopdata-$field_alias>/$field_value/g;
 }

 print "Content-type: text/html\n\n".$out;
 exit;
}

1; 

$f="$Nodeny_dir_web/kvit.html";
 open(FL,"<$f") or &Error($V? "$V Не найден шаблон для квитанций ".&Filtr_out($f) : $Er_Mess_for_Client, $EOUT);
 $out='';
 $out.=$_ while(<FL>);
 close(FL);

$out=~s/<(\d+)>/$f{$1}/g;

$sth=&sql($dbh,"SELECT * FROM dopdata WHERE revision IN (SELECT rev FROM rev_users WHERE id=$Mid)");

SELECT rev FROM rev_users WHERE id=$Mid

$sth=&sql($dbh,"SELECT * FROM dopdata WHERE revision IN (SELECT rev FROM rev_users WHERE id=$Mid) AND parent_id=$Mid");

while ($h=$sth->fetchrow_hashref)

    $field_alias=$h->{field_alias};
    $field_value=&Filtr_out(
       &nDopdata_print_value
       ({
          type	=> $h->{field_type},
          alias	=> $field_alias,
          value	=> $h->{field_value}
       })
    );

$field_alias='_adr_street' if $field_alias eq 'p_street:street:name_street';

1;

<file>/usr/local/etc/dhcpd.conf</file>
<reload>/usr/local/etc/rc.d/isc-dhcpd restart</reload>
<template>1</template>

allow unknown-clients;
option domain-name-servers 10.7.7.2;

default-lease-time 28800;
min-lease-time 10000;
max-lease-time 128800;

authoritative;

ddns-update-style interim;

log-facility local7;



subnet 10.7.7.0 netmask 255.255.255.0 {
	option broadcast-address 10.7.7.255;
	option routers 10.7.7.2;
<filtr net='10.7.7.0/24'>
	host <lat_login> {
		hardware ethernet <dopdata-_mac>;
		fixed-address <ip>;
	}
</filtr>
}

DBD::mysql::st execute failed: SELECT command denied to user 'юзер'@'ип' for table 'x2009x10x14' at nosat.pm line 245.
14.10.2009 19:16:08 Error: SELECT SQL_BUFFER_RESULT uid,uip,now_on,in1,out1 FROM users_trf

<filtr net='10.7.7.0/24' lat_login='^..*$'>

#   $sql="SELECT DISTINCT field_value FROM dopdata WHERE revision IN ".
#          "(SELECT revision FROM dopdata WHERE revision IN (SELECT rev FROM rev_users) ".
#            "AND field_alias='p_street:street:name_street' AND field_value='$adr_street'".
#          ") AND field_alias='_adr_house'";
#   $sth=&sql($dbh,$sql,"Все уникальные дома на улице № $adr_street");
#   while ($p=$sth->fetchrow_hashref)
#   {
#      $house=int $p->{field_value};
#      $houses.=&ahref($url.$house,$house);
#   }