#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use XML::Simple;
use LWP::Simple;
use Data::Dumper;
use Encode;
use DBI;
my $BGBURL = 'http://127.0.0.1:8080/bgbilling/executer?';
my $BGBUsername = '1c';
my $BGBPassword = 'Password';
my $DBUsername = 'root';
my $DBPassword = 'Password';
my $cid = '36080';
my $mid = '8';
my $mm = '4';
my $yy = '2009';
my $doc_type = '2';
my $db = DBI->connect('dbi:mysql:database=bgbilling;host=localhost;port=3306',$DBUsername,$DBPassword);
if ($db){
$db->do('SET CHARACTER SET cp1251');
$db->do('SET NAMES cp1251');
};
my %h_new;
$h_new{'module'} = 'bill';
$h_new{'action'} = 'GenerateBills';
$h_new{'mid'} = $mid;
$h_new{'m'} = $mm-1;
$h_new{'y'} = $yy;
$h_new{'date'} = '1.'.$mm.'.'.$yy;
$h_new{'bills'} = '<?xml version="1.0" encoding="windows-1251"?>
<bills>
<bill id="140" type="'.$doc_type.'" cid="'.$cid.'" summ="95.94" account_id="1">
<pos name="Местные телефонные соединения за апрель" summ="95.94" position_id="2" quantity="1" unit="шт.">
</pos>
</bill>
</bills>';
my %h_get;
$h_get{'module'} = 'admin';
$h_get{'action'} = 'SQLEditor';
$h_get{'page'} = '1';
$h_get{'pageSize'} = '1000000';
$h_get{'sql'} = "SELECT id FROM bill_data_$mid WHERE cid='$cid' AND type='$doc_type' AND mm='".($mm-1)."' AND yy='$yy'";
#print "Ищем счет\n";
#print Dumper(BGBPost(\%h_get));
my $res = Select(
"Get bill",
">=0",
"SELECT id FROM bill_data_$mid WHERE cid='$cid' AND type='$doc_type' AND mm='".($mm-1)."' AND yy='$yy'"
);
my $begin_count = $res->rows;
print "Кол-во найденых счетов: $begin_count\n";
print "Создаем счет\n";
print Dumper(BGBPost(\%h_new));
my $begin_time = time;
foreach my $i (1..1000000){
#print "Ищем счет\n";
#print Dumper(BGBPost(\%h_get));
$res = Select(
"Get bill",
">=0",
"SELECT id FROM bill_data_$mid WHERE cid='$cid' AND type='$doc_type' AND mm='".($mm-1)."' AND yy='$yy'"
);
my $end_count = $res->rows;
print "Шаг: $i Кол-во найденых счетов: $end_count\n";
if ($end_count != $begin_count){
my $end_time = time;
print "Время поиска (сек.): ".($end_time-$begin_time)."\n";
last;
};
};
########################################################################
sub Select{
my ($header, $condition, $SQL_QUERY) = @_;
if (!$header) {return -1};
if (!$condition) {return -1};
if (!$SQL_QUERY) {return -1};
my $res = $db->prepare($SQL_QUERY);
if (!$res->execute){
print("Error. Can't $SQL_QUERY");
print(DBI::errstr);
}else{
my $ntuples = $res->rows;
my $op = '$ntuples'."$condition";
my $condition_stat = eval $op;
if (!$condition_stat){
print("Error result (ntuples: $ntuples, condition: $condition) for $SQL_QUERY");
};
};
return $res;
}
########################################################################
sub BGBPost{
my %data = %{$_[0]};
$data{'user'} = $BGBUsername;
$data{'pswd'} = $BGBPassword;
my $browser = LWP::UserAgent->new;
my $response = $browser->post( $BGBURL , \%data);
if ($response->content !~ /\<\?xml version\=\"1\.0\" encoding\=\"windows\-1251\"\?\>/){
#ошибка
exit;
};
my $xsimple = XML::Simple->new();
my $h = $xsimple->XMLin($response->content ,KeyAttr => { xml_id => 'id', xml_name => 'name', xml_key =>'key' });
if (defined($h) && exists($h->{'status'})){
$h = HashDecoder($h);
}else{
};
return $h;
}
########################################################################
sub Get{
my %data = %{$_[0]};
my $url = $BGBURL.'user='.$BGBUsername.'&pswd='.$BGBPassword.'&';
foreach (keys %data){
$url .= $_.'='.$data{$_}.'&';
};
my $xml_doc = get($url);
my $xsimple = XML::Simple->new();
my $h = $xsimple->XMLin($xml_doc,KeyAttr => { xml_id => 'id', xml_name => 'name', xml_key =>'key' });
if (defined($h) && exists($h->{'status'})){
$h = HashDecoder($h);
}else{
};
return $h;
}
########################################################################
sub HashDecoder{
my $h = $_[0];
if (ref($h) eq "HASH"){
foreach (keys %$h){
$h->{$_} = HashDecoder($h->{$_});
};
return $h;
}elsif (ref($h) eq "ARRAY"){
foreach (@$h){
$_ = HashDecoder($_);
};
return $h;
}else{
$h = Encode::encode('cp1251',$h);
return $h;
}
}
########################################################################
Иногда время поиска счета доходит до 5 сек.
Вход
Регистрация
FAQ
Поиск
