admin/cacti
1
0 Fork 0
mirror of https://github.com/Cacti/cacti.git synced 2026-10-23 03:27:02 +09:00
Code Issues Packages Projects Releases Wiki Activity

Resolving Issue #1889 (#1900)

Browse Source 
$ENV{ENV} which running on FreeBSD
This commit is contained in:
Alex authored and Jimmy Conner committed 2018-09-07 06:08:36 -05:00
1 parent 7970b871fe
commit b3a070fe49
12 files changed
+38 -26
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

scripts/3com_cable_modem.pl
+3 -3
View File
@@ -1,9 +1,9 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
open(PROCESS, "/bin/bash -c 'wget --quiet -O - http://192.168.100.1/cgibin/opcfg | grep \"10.18.18.11\" -c' |");
open(PROCESS, "bash -c 'wget --quiet -O - http://192.168.100.1/cgibin/opcfg | grep \"10.18.18.11\" -c' |");
$status = <PROCESS>;
close(PROCESS);
chomp $status;
scripts/diskfree.pl
+15 -3
View File
@@ -1,9 +1,21 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
open(PROCESS,"df --block-size=1024 -P $ARGV[0] | grep -v Filesystem |");
#
# Get the OS name
#
my $osname = "$^O";
if ($osname =~ 'freebsd') {
# FreeBSD have other parameters
$dfcmd="df -k -P $ARGV[0] | grep -v Filesystem |";
} else {
$dfcmd="df --block-size=1024 -P $ARGV[0] | grep -v Filesystem |";
}
open(PROCESS, $dfcmd);
foreach (<PROCESS>) {
if ($_ =~ /($ARGV[0])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])%(.* )/) {
print "megabytes:$7 percent:$9";
scripts/linux_memory.pl
+2 -2
View File
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
$val1 = $ARGV[0];
($val1) = $val1 =~ /^([\w.:]+)$/;
scripts/loadavg.pl
+2 -2
View File
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
$val1 = $ARGV[0];
($val1) = $val1 =~ /^([\d]+)$/;
scripts/loadavg_multi.pl
+2 -2
View File
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
#get load avg for 1;5;10 min
open(PROCESS, "env LC_ALL=C uptime |");
scripts/ping.pl
+1 -1
View File
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
# take care for tcp:hostname or TCP:ip@
$host = $ARGV[0];
scripts/query_unix_partitions.pl
+2 -2
View File
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
$val1 = $ARGV[0];
($val1) = $val1 =~ /^([\w]+)$/;
scripts/unix_processes.pl
+2 -2
View File
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
open(PROCESS, "ps ax | grep -c : |");
$output = <PROCESS>;
scripts/unix_tcp_connections.pl
+2 -2
View File
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
my $grep_string= $ARGV[0];
($grep_string) = $grep_string =~ /^([\w]+)$/;
scripts/unix_users.pl
+2 -2
View File
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
my $grep_string= $ARGV[0];
($grep_string) = $grep_string =~ /^([\w]+)$/;
scripts/weatherbug.pl
+3 -3
View File
@@ -1,9 +1,9 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
$output = `/bin/bash -c 'wget --quiet -O - \"http:\/\/wisapidata.weatherbug.com\/WxDataISAPI\/WxDataISAPI.dll?Magic=10991&RegNum=3647055&ZipCode=17241&StationID=NWVLL&Units=0&Version=2.7&Fore=1&t=1015084854\/"'`;
$output = `bash -c 'wget --quiet -O - \"http:\/\/wisapidata.weatherbug.com\/WxDataISAPI\/WxDataISAPI.dll?Magic=10991&RegNum=3647055&ZipCode=17241&StationID=NWVLL&Units=0&Version=2.7&Fore=1&t=1015084854\/"'`;
$output =~ s/[^-0-9|\|.]*//gi;
scripts/webhits.pl
+2 -2
View File
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#!/usr/bin/env perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin';
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
if ($ARGV[0] eq "") {
$log_path = "/var/log/httpd/access_log";