bluesaxman/weatherget
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added relitive path detection

Browse Source
This commit is contained in:
bluesaxman 2020-01-21 14:50:11 -07:00
parent d055bc7938
commit afe52b9943
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
weather.sh
View File

@ -3,8 +3,12 @@ use strict;
use warnings; use warnings;
use Math::Trig; use Math::Trig;
my @path = split("/", $0);
pop @path;
my $p = join("/", @path);
sub checksources { sub checksources {
my $weather = `./wttrin.sh` or `./weatherbug.sh` or `./weathergov.sh` or print "Not Available\n\n#FF0000" and exit 33; my $weather = `$p/wttrin.sh` or `$p/weatherbug.sh` or `$p/weathergov.sh` or print "Not Available\n\n#FF0000" and exit 33;
return $weather; return $weather;
} }