High5/pushover.pl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

proper formatting of variable, added ->

Browse Source
This commit is contained in:
mischa 2022-07-20 16:56:43 +02:00
parent 6be47f6536
commit 5685253f2f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pushover.pl
View File

@ -40,8 +40,8 @@ END_USAGE
$MESSAGE || die($USAGE); $MESSAGE || die($USAGE);
my @config_files = grep { -e } ('./_pushover.conf', './.pushover.conf', './pushover.conf', "$ENV{'HOME'}/_pushover.conf", "$ENV{'HOME'}/.pushover.conf", "$ENV{'HOME'}/pushover.conf"); my @config_files = grep { -e } ('./_pushover.conf', './.pushover.conf', './pushover.conf', "$ENV{'HOME'}/_pushover.conf", "$ENV{'HOME'}/.pushover.conf", "$ENV{'HOME'}/pushover.conf");
my $config = Config::Tiny->read($config_files[-1], 'utf8'); my $config = Config::Tiny->read($config_files[-1], 'utf8');
my $TOKEN = $config->{_}{token} || die("$USAGE\nError: TOKEN not found.\n"); my $TOKEN = $config->{_}->{token} || die("$USAGE\nError: TOKEN not found.\n");
my $USER = $config->{_}{user} || die("$USAGE\nError: USER not found.\n"); my $USER = $config->{_}->{user} || die("$USAGE\nError: USER not found.\n");
my $http = HTTP::Tiny->new; my $http = HTTP::Tiny->new;
my %HEADERS = ("Content-Type" => "application/json"); my %HEADERS = ("Content-Type" => "application/json");