Raydon on the Net

Съобщения по чл.32 от ДОПК

Posted in System Failure by raydon on юни 13, 2008

http://212.122.164.84/regIzdirvaniSearch/index.jsp

На горния адрес НАП публикува съобщения по чл.32 от ДОПК – за болшинството от вас това не значи нищо… но за малка част е важно защото:

Ако намерите съобщение за Вас в този бюлетин, трябва незабавно да посетите ТД/офис. Администрацията на НАП е подготвила това съобщение, за да Ви уведоми, че е започнала процедура по връчване чрез прилагане към досието Ви.

Съобщенията се поставят на видно място в подразделенията на НАП и се публикуват в Интернет.

Ако в 14 – дневен срок от поставянето на съобщението не се явите в Териториалната дирекция/офис, то ще се смята за редовно връчено и ще бъде приложено към досието Ви.

Мисля е ясно за какво става дума… Ако пропуснете да видите въпросното съобщение в Интернет или в офиса на ТД на НАП, то ще се счита за връчено със всичките произтичащи от това последствия… а те не са никак приятни обикновено.

Това значи, че ако сте фирмичка трябва редовно да влизате в сайта на НАП на горния адрес и да проверявате БУЛСТАТ-а си… За една фирма е ОК, но ако обслужвате десетина или стотитна фирми, ако сте счетоводна кантора? Голямо писане на БУЛСТАТ-и и кликане пада… Ето за това си спретнах едно просто perl скриптче, което да проверява вместо мен. В един обикновен текстов файл слагам всички БУЛСТАТ-и които ме вълнуват, по един на ред. Файлчето кръщавам bulstats.txt и го слагам в директорията на скрипта. Изстрелвам скрипта и той праща заявки към сайта на НАП за всеки БУЛСТАТ от файлчето bulstats.txt – ако НАП има съобщения за този БУЛСТАТ скрипта записва html страницата в директорията си, за да може да прегледам съобщенията, като за име на файла използва БУЛСТАТ номера. В отделно текстово файлче записва всичко намерено във формат „BULSTAT – NAP MESSAGES“.

Просто не забравяйте да поставите БУЛСТАТ номерата, които искате да проверите, във файл bulstats.txt в директорията на скрипта…

Естествено скрипта не е перфектен, аз не съм професионален програмист, а просто мързелив сисадмин, който се опитва да улесни живота, своя и на колегите си – има много да се дяла, но като за първа работеща версия е ОК – върши това което се иска от него… Всички предложения за подобрения, подобрения и модификации на кода са повече от добре дошли… единственото изискване е да ги споделите с всички.

begin perl code–>

#!/usr/bin/perl

use strict;
use warnings;
use POSIX qw(strftime);
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

sub trim($);

my $bulstat = „“;
my $messages = „“;
my $data_file=“bulstats.txt“;
my $currdate = strftime(„%d/%m/%Y/@%H:%M:%S“,localtime);
my $sitedata= strftime(„%Y%m%d%H%M%S.txt“,localtime);

open(DAT,“>>$sitedata“) || die(„Cannot Open File“);
print DAT „Date: $currdate\n\n“;
print DAT „BULSTAT# – NRA MESSAGES\n“;
print DAT „=================================\n“;
open(DAT, $data_file) || die(„Could not open file!“);
print „Read BULSTATS form file bulstats.txt…\n“;
my @raw_data=<DAT>;
close(DAT);

foreach $bulstat (@raw_data)
{
print „Processing BULSTAT# „.$bulstat;
my $ua = LWP::UserAgent->new;
$ua->agent(„Mozilla“);
my $req = (POST ‘http://212.122.164.84/regIzdirvaniSearch/search_res.jsp‘,[„egn“ => „“,“bulst“ => $bulstat]);
my $request = $ua->request($req);
my $content = $request->content;
$content = trim($content);
$bulstat = trim($bulstat);

open(DAT,“>>$sitedata“) || die(„Cannot Open File“);

if ($content ne „Няма намерени записи.“ and $content ne „“) {

print DAT $bulstat.“ – „;

while ($content=~m{№</font> (.*)</td>}g) {

if ($messages eq „“) {
$messages = $1;}
else {
$messages = $messages.“, „.$1;
}
}

print DAT $messages;
print DAT „\n“;
$messages=““;
open (HTML, „>$bulstat“.“.html“);
print HTML $content;
close(HTML);

}

close(DAT);

}

print „All done – results are in file result.txt\n“;

sub trim($)

{
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}

exit;

<–end perl code

Има и компилирана версия на скрипта, която може да се изпълнява под Уиндоус без инсталиран perl интерпретатор. Компилирана версия се стартира с просто двойно кликане. Може да я получите на имейл, като я поискате от getnap<at>abv<dot>bg

About these ads

Един коментар

Subscribe to comments with RSS.

  1. click here said, on март 13, 2013 at 9:40 pm

    Hello, Neat post. There is an issue together with your website in web explorer, may check this… IE nonetheless is the marketplace leader and a good component of other people will miss your magnificent writing because of this problem.


Вашият коментар

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Промяна )

Twitter picture

You are commenting using your Twitter account. Log Out / Промяна )

Facebook photo

You are commenting using your Facebook account. Log Out / Промяна )

Google+ photo

You are commenting using your Google+ account. Log Out / Промяна )

Connecting to %s

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: