astronet internals

Внутренности Астронета

1. Вот так получаем основные объекты

Use DB::DB;
use lib qw (/usr/local/discovery/CORE/lib/perl);

my $discovery_conf = '/usr/local/discovery/conf/discovery.conf';
my $dbi = DB::DB->new_from_file($discovery_conf) || die "Cannot connect to discovery database";
# msg_id is unique, so request just first element
my $msg = $dbi->get_messages(msg_id=>$id)->[0];  

# последняя версия сообщения
my $last_id = $dbi->get_last_version($id);