=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== mon-contrib-1.0+dfsg/alerts/hpov/hpov.alert-136-# Send the alarm mon-contrib-1.0+dfsg/alerts/hpov/hpov.alert:137:my $exit_status = system($cmd); mon-contrib-1.0+dfsg/alerts/hpov/hpov.alert-138-if ($exit_status != 0) ############################################## mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert-59- if ($opt_B) { # build the virtual service first mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert:60: system("$ipvsadm -A $proto{$opt_P} $virtual_service $scheduler"); mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert-61- } mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert-62- $weight = "-w $opt_W"; mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert:63: system("$ipvsadm -a $proto{$opt_P} $virtual_service $realserver $weight $type{$opt_F}"); mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert-64-} elsif ($opt_D) { # tear down the entire virtual server mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert:65: system("$ipvsadm -D $proto{$opt_P} $virtual_service"); mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert-66-} else { # delete the realserver mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert:67: system("$ipvsadm -d $proto{$opt_P} $virtual_service $realserver"); mon-contrib-1.0+dfsg/alerts/lvs/ipvs.alert-68-}; ############################################## mon-contrib-1.0+dfsg/alerts/sms/sendsms/sendsms-302- print STDERR "\nSENDSMS failed, forwarding message to QPAGE\n" if $verbose; mon-contrib-1.0+dfsg/alerts/sms/sendsms/sendsms:303: system("$qpagebin -s $qpserver -p $qpager '$message'"); mon-contrib-1.0+dfsg/alerts/sms/sendsms/sendsms-304- } ############################################## mon-contrib-1.0+dfsg/alerts/sms/sms/sms.alert-68- { mon-contrib-1.0+dfsg/alerts/sms/sms/sms.alert:69: $res = system("/usr/sbin/sendsms -n '$pagedest' -t '$ALERT $opt_g/$opt_s: $summary ($hr:$min) $detail' &"); mon-contrib-1.0+dfsg/alerts/sms/sms/sms.alert-70- last SMS if $res == 0; ############################################## mon-contrib-1.0+dfsg/alerts/sms/sms.alert-15- mon-contrib-1.0+dfsg/alerts/sms/sms.alert:16: # system("echo `date` `id` $number $summary >> /var/lib/mon/sms.alert.log"); mon-contrib-1.0+dfsg/alerts/sms/sms.alert-17- ############################################## mon-contrib-1.0+dfsg/alerts/snapshot/snapdelete.alert-93- if ( $todel ) { # delete the snapshot ... mon-contrib-1.0+dfsg/alerts/snapshot/snapdelete.alert:94: system("rsh $host -l root snap delete $volume $todel"); mon-contrib-1.0+dfsg/alerts/snapshot/snapdelete.alert-95- ############################################## mon-contrib-1.0+dfsg/monitors/flexlm/flexlm.monitor-64- $ServerOK = -1; mon-contrib-1.0+dfsg/monitors/flexlm/flexlm.monitor:65: @lines = `$LMSTAT $lmfile`; mon-contrib-1.0+dfsg/monitors/flexlm/flexlm.monitor-66- foreach $line ( @lines ) { ############################################## mon-contrib-1.0+dfsg/monitors/https/https/https.monitor-99- mon-contrib-1.0+dfsg/monitors/https/https/https.monitor:100: $result = `$perl -e'use Net::SSLeay ; Net::SSLeay::SSLeay_add_ssl_algorithms() ; print join("$field_delim",Net::SSLeay::get_https("$site", "$port", "$path"))' 2>/dev/null`; mon-contrib-1.0+dfsg/monitors/https/https/https.monitor-101- alarm 0; #cancel the alarm ############################################## mon-contrib-1.0+dfsg/monitors/https/https/https.monitor-105- foreach my $h (sort keys %headers) { mon-contrib-1.0+dfsg/monitors/https/https/https.monitor:106: print "Header `$h'\tvalue `$headers{$h}'\n" if $opt_v; mon-contrib-1.0+dfsg/monitors/https/https/https.monitor-107- } ############################################## mon-contrib-1.0+dfsg/monitors/ipsec/ipsec/ipsec.monitor-23-fi mon-contrib-1.0+dfsg/monitors/ipsec/ipsec/ipsec.monitor:24:CONN="`echo $1|sed -e s/[\./]/\\\\\\\\\\\0/g`" mon-contrib-1.0+dfsg/monitors/ipsec/ipsec/ipsec.monitor:25:IPSECRETURN="`ipsec look|awk '/'"$CONN"'/ {print $5}'`" mon-contrib-1.0+dfsg/monitors/ipsec/ipsec/ipsec.monitor-26-if [ "$IPSECRETURN" == "%trap" ]; then ############################################## mon-contrib-1.0+dfsg/monitors/ipsec/ipsec/ipsec.monitor-31- exit 2 mon-contrib-1.0+dfsg/monitors/ipsec/ipsec/ipsec.monitor:32:elif [ "`echo $IPSECRETURN|awk '/^tun0x/'`" == "$IPSECRETURN" ]; then mon-contrib-1.0+dfsg/monitors/ipsec/ipsec/ipsec.monitor-33- exit 0 ############################################## mon-contrib-1.0+dfsg/monitors/lvs/ipvs.monitor-32- mon-contrib-1.0+dfsg/monitors/lvs/ipvs.monitor:33:@ipvs = `/sbin/ipvsadm -l $proto{$opt_P} $virtual_service 2>&1`; mon-contrib-1.0+dfsg/monitors/lvs/ipvs.monitor-34- ############################################## mon-contrib-1.0+dfsg/monitors/mon/umn_mon/umn_mon.monitor-45-foreach $host (@ARGV) { mon-contrib-1.0+dfsg/monitors/mon/umn_mon/umn_mon.monitor:46: system("fping -q -r 3 -t 2000 $host 2>/dev/null"); mon-contrib-1.0+dfsg/monitors/mon/umn_mon/umn_mon.monitor-47- $status = $? / 256; ############################################## mon-contrib-1.0+dfsg/monitors/remote/startremote/startremote.monitor-48-} mon-contrib-1.0+dfsg/monitors/remote/startremote/startremote.monitor:49:my $output=`ssh $options{remoteuser}\@$options{remotehost} $options{remotemon} $options{remoteparam} 2> /dev/null`; mon-contrib-1.0+dfsg/monitors/remote/startremote/startremote.monitor-50-chomp($output); ############################################## mon-contrib-1.0+dfsg/monitors/samba/smblist.monitor-50- mon-contrib-1.0+dfsg/monitors/samba/smblist.monitor:51: $txt = `$cmd 2>&1`; mon-contrib-1.0+dfsg/monitors/samba/smblist.monitor-52- $ret = $?; ############################################## mon-contrib-1.0+dfsg/monitors/ssh/ssh/ssh.monitor-24-foreach $host (@ARGV) { mon-contrib-1.0+dfsg/monitors/ssh/ssh/ssh.monitor:25: system("fping -q -r 3 -t 2000 $host 2>/dev/null"); mon-contrib-1.0+dfsg/monitors/ssh/ssh/ssh.monitor-26- $status = $? / 256; mon-contrib-1.0+dfsg/monitors/ssh/ssh/ssh.monitor-27- next if $status; # ignore hosts which are not pingable mon-contrib-1.0+dfsg/monitors/ssh/ssh/ssh.monitor:28: $errmsg = `ssh $host /usr/bin/true 2>&1`; mon-contrib-1.0+dfsg/monitors/ssh/ssh/ssh.monitor-29- chomp($errmsg); ############################################## mon-contrib-1.0+dfsg/monitors/udp/udp.monitor-120- push @failures, $host; mon-contrib-1.0+dfsg/monitors/udp/udp.monitor:121: my $fromhost = gethostbyaddr($fromaddr, AF_INET); mon-contrib-1.0+dfsg/monitors/udp/udp.monitor-122- push @detail, "response received from $fromhost:$fromport, instead of $host:$PORT"; ############################################## mon-contrib-1.0+dfsg/debian/patches/05-add-smblist-monitor.diff-58-+ mon-contrib-1.0+dfsg/debian/patches/05-add-smblist-monitor.diff:59:+ $txt = `$cmd 2>&1`; mon-contrib-1.0+dfsg/debian/patches/05-add-smblist-monitor.diff-60-+ $ret = $?; ############################################## mon-contrib-1.0+dfsg/debian/patches/10-fix-insecure-tmp.diff-8- mon-contrib-1.0+dfsg/debian/patches/10-fix-insecure-tmp.diff:9:- # system("echo `date` `id` $number $summary >> /tmp/sms.alert.log"); mon-contrib-1.0+dfsg/debian/patches/10-fix-insecure-tmp.diff:10:+ # system("echo `date` `id` $number $summary >> /var/lib/mon/sms.alert.log"); mon-contrib-1.0+dfsg/debian/patches/10-fix-insecure-tmp.diff-11- ############################################## mon-contrib-1.0+dfsg/debian/rules-41- @for i in $(ALERT_LIST_ORIG) ; do \ mon-contrib-1.0+dfsg/debian/rules:42: alert=`basename $$i` ; \ mon-contrib-1.0+dfsg/debian/rules:43: src=`echo /usr/lib/mon-contrib/alert.d/$$alert` ; \ mon-contrib-1.0+dfsg/debian/rules:44: dst=`echo /usr/lib/mon/alert.d/$$alert` ; \ mon-contrib-1.0+dfsg/debian/rules-45- echo "# [A] Linking : $$src to $$dst" ; \ ############################################## mon-contrib-1.0+dfsg/debian/rules-65- @for i in debian/mon-contrib/usr/lib/mon-contrib/mon.d/* ; do \ mon-contrib-1.0+dfsg/debian/rules:66: monitor=`basename $$i` ; \ mon-contrib-1.0+dfsg/debian/rules:67: src=`echo /usr/lib/mon-contrib/mon.d/$$monitor` ; \ mon-contrib-1.0+dfsg/debian/rules:68: dst=`echo /usr/lib/mon/mon.d/$$monitor` ; \ mon-contrib-1.0+dfsg/debian/rules-69- echo "# [M] Linking : $$src to $$dst" ; \ ############################################## mon-contrib-1.0+dfsg/.pc/01-fix-wrong-path-for-interpreter.diff/alerts/hpov/hpov.alert-136-# Send the alarm mon-contrib-1.0+dfsg/.pc/01-fix-wrong-path-for-interpreter.diff/alerts/hpov/hpov.alert:137:my $exit_status = system($cmd); mon-contrib-1.0+dfsg/.pc/01-fix-wrong-path-for-interpreter.diff/alerts/hpov/hpov.alert-138-if ($exit_status != 0) ############################################## mon-contrib-1.0+dfsg/.pc/10-fix-insecure-tmp.diff/alerts/sms/sms.alert-15- mon-contrib-1.0+dfsg/.pc/10-fix-insecure-tmp.diff/alerts/sms/sms.alert:16: # system("echo `date` `id` $number $summary >> /tmp/sms.alert.log"); mon-contrib-1.0+dfsg/.pc/10-fix-insecure-tmp.diff/alerts/sms/sms.alert-17-