===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libsnmp-session-perl-1.14~git20130523.186a005/test/mrtg-ipmcast-215- if exists $pretty_protocol_name{$protocol};
libsnmp-session-perl-1.14~git20130523.186a005/test/mrtg-ipmcast:216:## my $peer_name = gethostbyaddr(pack ("C4",split ('\.',$peer_addr)),
libsnmp-session-perl-1.14~git20130523.186a005/test/mrtg-ipmcast-217-## AF_INET)
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/shipmr-85- return undef unless defined $upstream_neighbor;
libsnmp-session-perl-1.14~git20130523.186a005/test/shipmr:86: my $upstream_name = gethostbyaddr(pack ("C4",split ('\.',$upstream_neighbor)),
libsnmp-session-perl-1.14~git20130523.186a005/test/shipmr-87- AF_INET) || $upstream_neighbor;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-21-sub usage ($ );
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener:22:sub print_ip_addr ($ );
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener:23:sub pretty_addr ($ );
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-24-sub hostname ($ );
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-64- print "$now_string ";
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener:65: print pretty_addr ($sender);
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-66- print "\n";
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-120-
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener:121:sub make_sockaddr ($$) {
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-122- my ($af, $addr) = @_;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-143-###
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener:144:### pretty_addr (sockaddr_in (1234, inet_aton ("192.0.2.1")))
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-145-### if $print_hostname $print_port
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-150-###
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener:151:### pretty_addr (sockaddr_in6 (1234, inet_pton (AF_INET6, "2001:db8::1")))
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-152-### if $print_hostname $print_port
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-164-###
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener:165:### pretty_addr (sockaddr_in6 (1234, inet_pton (AF_INET6, "::ffff:192.0.2.1")))
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-166-### should always return the same string as
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener:167:### pretty_addr (sockaddr_in (1234, inet_aton ("192.0.2.1")))
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-168-###
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener:169:sub pretty_addr ($ ) {
libsnmp-session-perl-1.14~git20130523.186a005/test/trap-listener-170- my ($sockaddr) = @_;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/bridge-list-fdb-33-
libsnmp-session-perl-1.14~git20130523.186a005/test/bridge-list-fdb:34:sub fdb_addr ($) { defined $_[1] ? $_[0]->{addr} = $_[1] : $_[0]->{addr}; }
libsnmp-session-perl-1.14~git20130523.186a005/test/bridge-list-fdb-35-sub fdb_port ($) { defined $_[1] ? $_[0]->{port} = $_[1] : $_[0]->{port}; }
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/bridge-list-fdb-55- values %all_fdbs) {
libsnmp-session-perl-1.14~git20130523.186a005/test/bridge-list-fdb:56: my $addr = fdb_addr ($fdb);
libsnmp-session-perl-1.14~git20130523.186a005/test/bridge-list-fdb-57- my $port = fdb_port ($fdb);
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/cammer-155- foreach my $ip (@ip) {
libsnmp-session-perl-1.14~git20130523.186a005/test/cammer:156: my $host = gethostbyaddr(pack('C4',split(/\./,$ip)),AF_INET);
libsnmp-session-perl-1.14~git20130523.186a005/test/cammer-157- $host =~ s/\.ethz\.ch//;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors-29- loading full))[$state];
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors:30: print STDOUT (pretty_addr ($addr)," ",
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors:31: pretty_addr ($router_id),
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors-32- " (",$pretty_state,")\n");
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors-37-
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors:38:sub pretty_addr ($ ) {
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors-39- my ($addr) = @_;
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors-40- my ($hostname,$aliases,$addrtype,$length,@addrs)
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors:41: = gethostbyaddr (inet_aton ($addr), AF_INET);
libsnmp-session-perl-1.14~git20130523.186a005/test/list-ospf-neighbors-42- $hostname ? $hostname." [".$addr."]" : $addr;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/cricket-genconf-sensor-195- } else {
libsnmp-session-perl-1.14~git20130523.186a005/test/cricket-genconf-sensor:196: my $retval = system ("diff", "-uw", $old_file, $new_file);
libsnmp-session-perl-1.14~git20130523.186a005/test/cricket-genconf-sensor-197- if ($retval) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/cricket-genconf-sensor-226- }
libsnmp-session-perl-1.14~git20130523.186a005/test/cricket-genconf-sensor:227: if (system ("mv", $new_file, $old_file)) {
libsnmp-session-perl-1.14~git20130523.186a005/test/cricket-genconf-sensor-228- warn "Failed to move $new_file to $old_file";
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-neighbors-36-
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-neighbors:37:sub pretty_addr ($ ) {
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-neighbors-38- my ($addr) = @_;
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-neighbors-39- my ($hostname,$aliases,$addrtype,$length,@addrs)
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-neighbors:40: = gethostbyaddr (inet_aton ($addr), AF_INET);
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-neighbors-41- $hostname ? $hostname." [".$addr."]" : $addr;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-neighbors-46- my ($hostname,$aliases,$addrtype,$length,@addrs)
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-neighbors:47: = gethostbyaddr (inet_aton ($addr), AF_INET);
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-neighbors-48- $hostname || "[".$addr."]";
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/msdpls-284-
libsnmp-session-perl-1.14~git20130523.186a005/test/msdpls:285: !$numericp && ($name = gethostbyaddr (inet_aton ($ip),AF_INET))
libsnmp-session-perl-1.14~git20130523.186a005/test/msdpls-286- ? "$name [$ip]"
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-table-40-
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-table:41:sub pretty_addr ($ ) {
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-table-42- my ($addr) = @_;
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-table-43- my ($hostname,$aliases,$addrtype,$length,@addrs)
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-table:44: = gethostbyaddr (inet_aton ($addr), AF_INET);
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-table-45- $hostname ? $hostname." [".$addr."]" : $addr;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-table-50- my ($hostname,$aliases,$addrtype,$length,@addrs)
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-table:51: = gethostbyaddr (inet_aton ($addr), AF_INET);
libsnmp-session-perl-1.14~git20130523.186a005/test/list-bgp4-table-52- $hostname || "[".$addr."]";
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/discover-66- my($port,$ipaddr) = unpack_sockaddr_in($addr);
libsnmp-session-perl-1.14~git20130523.186a005/test/discover:67: my $hostname = gethostbyaddr ($ipaddr, AF_INET);
libsnmp-session-perl-1.14~git20130523.186a005/test/discover-68- return $hostname ? $hostname : ('['.inet_ntoa($ipaddr).']');
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/test/mrouted-genconf-96- return unless $type == 1;
libsnmp-session-perl-1.14~git20130523.186a005/test/mrouted-genconf:97: my $peer_name = gethostbyaddr(pack ("C4",split ('\.',$peer_addr)),
libsnmp-session-perl-1.14~git20130523.186a005/test/mrouted-genconf-98- AF_INET)
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-353-sub snmpgetnext ($@);
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm:354:sub snmpopen ($$$);
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-355-sub snmpwalk ($@);
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-376-#
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm:377:sub snmpopen ($$$) {
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-378- my($host, $type, $vars) = @_;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-484- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm:485: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-486- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-524- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm:525: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-526- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-588-
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm:589: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-590- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-799- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm:800: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-801- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-893-
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm:894: $session = &snmpopen($host, 1, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-895- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-947- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm:948: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-949- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-994-
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm:995: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/lib/SNMP_util.pm-996- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-389-sub snmpgetnext ($@);
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm:390:sub snmpopen ($$$);
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-391-sub snmpwalk ($@);
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-564- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm:565: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-566- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-626- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm:627: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-628- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-712- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm:713: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-714- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-829- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm:830: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-831- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-936-
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm:937: $session = &snmpopen($host, 1, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-938- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-1073-
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm:1074: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-1075- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-1426-#
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm:1427:sub snmpopen ($$$) {
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-1428- my($host, $type, $vars) = @_;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-1689-
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm:1690: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/.pc/04_manpage_spelling.patch/Net_SNMP_util.pm-1691- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-389-sub snmpgetnext ($@);
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm:390:sub snmpopen ($$$);
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-391-sub snmpwalk ($@);
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-564- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm:565: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-566- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-626- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm:627: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-628- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-712- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm:713: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-714- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-829- @retvals = ();
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm:830: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-831- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-936-
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm:937: $session = &snmpopen($host, 1, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-938- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-1073-
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm:1074: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-1075- if (!defined($session)) {
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-1426-#
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm:1427:sub snmpopen ($$$) {
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-1428- my($host, $type, $vars) = @_;
##############################################
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-1689-
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm:1690: $session = &snmpopen($host, 0, \@vars);
libsnmp-session-perl-1.14~git20130523.186a005/Net_SNMP_util.pm-1691- if (!defined($session)) {