mirror of
https://github.com/Cacti/cacti.git
synced 2026-10-24 12:07:31 +09:00
7ca0582b3c
* add perl syntax checking for scripts * Update .github/workflows/syntax.yml Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com> * only show syntax errors * Add support for ss Fixed shell injection risk from piped netstat | grep by removing shell pipelines. Added use strict; use warnings; and localized variables. Added runtime fallback to ss when netstat is unavailable, with a clear failure when neither exists. * Fix shell injection risk apply fixes (safe open, strict/warnings, key whitelist, error handling). * Update query_unix_partitions.pl * Update unix_users.pl add use strict/warnings to flag issues add better error handling * Update weatherbug.pl * add better suport for gree bsd * Update loadavg.pl --------- Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com> Co-authored-by: TheWitness <thewitness@cacti.net>
31 lines
992 B
Perl
31 lines
992 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
delete @ENV{qw(PATH)};
|
|
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
|
|
|
|
my $url = 'http://wisapidata.weatherbug.com/WxDataISAPI/WxDataISAPI.dll?Magic=10991&RegNum=3647055&ZipCode=17241&StationID=NWVLL&Units=0&Version=2.7&Fore=1&t=1015084854/';
|
|
my $output = `bash -c 'wget --quiet -O - "$url"'`;
|
|
$output =~ s/[^-0-9|\|.]*//gi;
|
|
|
|
my @weather = split(/\|/, $output);
|
|
|
|
# docs
|
|
# [0] - ID?
|
|
# [1] - Current Time
|
|
# [2] - Current Date
|
|
# [3] - Current Temperature
|
|
# [5] - Wind Speed (MPH)
|
|
# [7] - Gust Wind Speed (MPH)
|
|
# [10] - Barometer (Moisture)
|
|
# [11] - Humidity (%)
|
|
# [12] - High Temperature
|
|
# [13] - Low Temperature
|
|
# [14] - Dew Point
|
|
# [15] - Wind Chill
|
|
|
|
print "current_temp:" . $weather[3] . " wind_speed:" . $weather[5] . " barometer:" . $weather[10] . " humidity:" .
|
|
$weather[11] . " high_temp:" . $weather[12] . " low_temp:" . $weather[13] . " dew_point_temp:" .
|
|
$weather[14] . " wind_chill_temp:" . $weather[15];
|