#!/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);

##</code><code>##

# sudo -u abl   /avprog/bin/alerting_map_all.pl
Unable to recognise encoding of this document at /usr/share/perl5/XML/SAX/PurePerl/EncodingDetect.pm line 100.
Undefined subroutine &Proj::proj_init_plus called at /usr/share/perl5/Avbrief/Projection.pm line 89.
.
.
.
Undefined subroutine &Proj::proj_init_plus called at /usr/share/perl5/Avbrief/Projection.pm line 89.
start of script

##</code><code>##

=head2 1.10 (23 April 2003) Judd Taylor
     - Changed from using the proj_init() type API in projects.h to the
     - proj_init_plus() API in proj_api.h. The old one was not that stable...

##</code><code>##

projPJ pj_init(int, char **);
projPJ pj_init_plus(const char *)