diff options
Diffstat (limited to 'perl')
-rwxr-xr-x | perl/sentry.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl/sentry.pl b/perl/sentry.pl index bc4788c..3da9291 100755 --- a/perl/sentry.pl +++ b/perl/sentry.pl @@ -9,6 +9,7 @@ use Data::Dumper; use LWP; use LWP::UserAgent; use Config::Tiny; +use File::Basename; $ua = LWP::UserAgent->new; $ua->timeout(4); @@ -17,7 +18,8 @@ $ua->agent("Gentoo Mirror Monitor/1.0"); my $DEBUG = 1; my %products = (); my %oss = (); -my $Config = Config::Tiny->read( 'db.conf' ); +my $dirname = dirname(__FILE__); +my $Config = Config::Tiny->read( $dirname . '/db.conf' ); # Some db credentials my $host = $Config->{database}->{host}; |