mirror of
https://github.com/Cacti/cacti.git
synced 2026-10-24 03:57:32 +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>
37 lines
734 B
Perl
37 lines
734 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 $osname = "$^O";
|
|
my $path = $ARGV[0] // '';
|
|
($path) = $path =~ /^([\w\/-]+)$/ if $path ne '';
|
|
|
|
my @dfcmd;
|
|
if ($osname =~ /freebsd/i) {
|
|
# FreeBSD have other parameters
|
|
@dfcmd = ('df', '-k', '-P');
|
|
} else {
|
|
@dfcmd = ('df', '--block-size=1024', '-P');
|
|
}
|
|
|
|
if ($path ne '') {
|
|
push @dfcmd, $path;
|
|
}
|
|
|
|
open(my $process, '-|', @dfcmd) or exit 1;
|
|
while (my $line = <$process>) {
|
|
chomp($line);
|
|
next if $line =~ /^Filesystem\s+/;
|
|
if ($line =~ /^(\S+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)%\s+(\S+)/) {
|
|
print "megabytes:$4 percent:$5";
|
|
if ($path ne '') {
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
close($process); |