#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use Avbrief::AlertingMap;
use Avbrief::ProcControl;
use Avbrief::DataLayer::CDBI::map_mainframe;
use File::Basename;
print "start of script";
die "this script must be run as 'abl'\n" unless ('abl' eq getpwuid($<));

my $logpath = "/var/log/avbrief/".basename($0).".log";
my $timeout = (10 * 60);