===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libnet-sip-perl-0.825/samples/invite_and_recv.pl-121-push @legs,$leg if $leg;
libnet-sip-perl-0.825/samples/invite_and_recv.pl:122:foreach my $addr ( $proxy,$registrar) {
libnet-sip-perl-0.825/samples/invite_and_recv.pl-123- $addr || next;
##############################################
libnet-sip-perl-0.825/samples/invite_and_send.pl-123-push @legs,$leg if $leg;
libnet-sip-perl-0.825/samples/invite_and_send.pl:124:foreach my $addr ( $proxy,$registrar) {
libnet-sip-perl-0.825/samples/invite_and_send.pl-125- $addr || next;
##############################################
libnet-sip-perl-0.825/bin/stateless_proxy.pl-437- }
libnet-sip-perl-0.825/bin/stateless_proxy.pl:438: return $self->SUPER::__forward_request_getdaddr( $entry );
libnet-sip-perl-0.825/bin/stateless_proxy.pl-439-}
##############################################
libnet-sip-perl-0.825/Changes-159- reverse functions ip_parts2string, ip_parts2sockaddr accept hash reference
libnet-sip-perl-0.825/Changes:160: - Leg->laddr(2) uses hostname instead of IP address
libnet-sip-perl-0.825/Changes-161-- important, partly incompatible API changes
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/SocketPool.pm-238- # sendto over unconnected UDP socket
libnet-sip-perl-0.825/lib/Net/SIP/SocketPool.pm:239: my $rv = send($fo->{fd},$data,0, ip_parts2sockaddr($dst));
libnet-sip-perl-0.825/lib/Net/SIP/SocketPool.pm-240- invoke_callback($callback, $!) if ! defined($rv);
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/SocketPool.pm-272- });
libnet-sip-perl-0.825/lib/Net/SIP/SocketPool.pm:273: _tcp_connect($self,$fo,ip_parts2sockaddr($dst),$callback);
libnet-sip-perl-0.825/lib/Net/SIP/SocketPool.pm-274- return;
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Registrar.pod-87-
libnet-sip-perl-0.825/lib/Net/SIP/Registrar.pod:88:Search for ADDR (which has format C<< proto:user@domain >>)
libnet-sip-perl-0.825/lib/Net/SIP/Registrar.pod-89-in the registry. Returns @List of all sip or sips contacts
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Simple/Call.pm-625- } else {
libnet-sip-perl-0.825/lib/Net/SIP/Simple/Call.pm:626: my @socks = map { ip_parts2sockaddr($m->{addr},$m->{port}+$_) }
libnet-sip-perl-0.825/lib/Net/SIP/Simple/Call.pm-627- (0..$range-1);
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Simple/Call.pm-675-
libnet-sip-perl-0.825/lib/Net/SIP/Simple/Call.pm:676: my $laddr = $param->{leg}->laddr(0);
libnet-sip-perl-0.825/lib/Net/SIP/Simple/Call.pm-677- if ( !$sdp ) {
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Dispatcher.pm-138- my $outgoing_proxy = shift;
libnet-sip-perl-0.825/lib/Net/SIP/Dispatcher.pm:139: my $leg = $self->_find_leg4addr( $outgoing_proxy )
libnet-sip-perl-0.825/lib/Net/SIP/Dispatcher.pm-140- || die "cannot find leg for destination $outgoing_proxy";
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Dispatcher.pm-777- my @resp;
libnet-sip-perl-0.825/lib/Net/SIP/Dispatcher.pm:778: foreach my $addr ( @$dst_addr ) {
libnet-sip-perl-0.825/lib/Net/SIP/Dispatcher.pm-779- if ( ref($addr)) {
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Dispatcher.pm-1324-###########################################################################
libnet-sip-perl-0.825/lib/Net/SIP/Dispatcher.pm:1325:# use next dst_addr (eg if previous failed)
libnet-sip-perl-0.825/lib/Net/SIP/Dispatcher.pm-1326-# Args: $self
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Util.pod-259-
libnet-sip-perl-0.825/lib/Net/SIP/Util.pod:260:=item ip_parts2sockaddr(IP, PORT, [FAMILY]) -> SOCKADDR
libnet-sip-perl-0.825/lib/Net/SIP/Util.pod-261-
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Endpoint.pod-243-Delivers L<Net::SIP::Response> packet RESPONSE through the endpoints
libnet-sip-perl-0.825/lib/Net/SIP/Endpoint.pod:244:dispatcher to ADDR (hash) using L<Net::SIP::Leg> LEG.
libnet-sip-perl-0.825/lib/Net/SIP/Endpoint.pod-245-LEG and ADDR are usually the leg and the senders address where the
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Simple.pm-339- $contact = $from;
libnet-sip-perl-0.825/lib/Net/SIP/Simple.pm:340: my $local = $leg->laddr(2);
libnet-sip-perl-0.825/lib/Net/SIP/Simple.pm-341- $contact.= '@'.$local unless $contact =~s{\@([^\s;,>]+)}{\@$local};
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-370- DEBUG(50,'no route header');
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm:371: return $self->__forward_request_getdaddr($entry)
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-372- }
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-410-
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm:411: return $self->__forward_request_getdaddr($entry)
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-412-}
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-515- my @addr;
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm:516: foreach my $addr (@$dst_addr) {
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-517- my $leg = first { $_->can_deliver_to(%$addr) } @all_legs;
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-570- $outgoing_leg,1);
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm:571: $addr .= '@'.$outgoing_leg->laddr(2);
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-572- my $cnew = sip_parts2hdrval( 'contact', $pre.$addr.$post, $p );
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-688- my $side;
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm:689: my $ileg = $incoming_leg->laddr(1);
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm:690: my $oleg = $outgoing_leg->laddr(1);
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-691- if ( $request ) {
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-739- my $new_media = $nathelper->allocate_sockets(
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm:740: $callid,$cseq,$idfrom,$idto,$side,$outgoing_leg->laddr(0),
libnet-sip-perl-0.825/lib/Net/SIP/StatelessProxy.pm-741- scalar( $body->get_media) );
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/NATHelper/Base.pm-310- # target for sock on other side is original address
libnet-sip-perl-0.825/lib/Net/SIP/NATHelper/Base.pm:311: [ map { ip_parts2sockaddr($addr,$port+$_) } (0..$#socks) ]
libnet-sip-perl-0.825/lib/Net/SIP/NATHelper/Base.pm-312- ]
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/Leg.pod-174-
libnet-sip-perl-0.825/lib/Net/SIP/Leg.pod:175:=item laddr(LEVEL)
libnet-sip-perl-0.825/lib/Net/SIP/Leg.pod-176-
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/SDP.pm-43-# (for multiple val), keys can be on-letter SDP keys or the special
libnet-sip-perl-0.825/lib/Net/SIP/SDP.pm:44:# keys addr (for connection-field), port,range,proto,media,fmt (for
libnet-sip-perl-0.825/lib/Net/SIP/SDP.pm-45-# media description)
##############################################
libnet-sip-perl-0.825/lib/Net/SIP/SDP.pm-185- # lines => [],
libnet-sip-perl-0.825/lib/Net/SIP/SDP.pm:186: # addr # globally defined addr (if any)
libnet-sip-perl-0.825/lib/Net/SIP/SDP.pm-187- # }
##############################################
libnet-sip-perl-0.825/t/testlib.pl-303- if ( my $ct = delete $largs{can_deliver_to} ) {
libnet-sip-perl-0.825/t/testlib.pl:304: $self->{can_deliver_to} = _parse_addr($ct);
libnet-sip-perl-0.825/t/testlib.pl-305- }
##############################################
libnet-sip-perl-0.825/t/testlib.pl-311- my $self = shift;
libnet-sip-perl-0.825/t/testlib.pl:312: my $spec = @_ == 1 ? _parse_addr( $_[0] ) : { @_ };
libnet-sip-perl-0.825/t/testlib.pl-313- my $ct = $self->{can_deliver_to};
##############################################
libnet-sip-perl-0.825/t/16_drop_invite.t-100- # print UAC address into tempfile
libnet-sip-perl-0.825/t/16_drop_invite.t:101: print $tfh $uac->{dispatcher}{legs}[0]->laddr(1);
libnet-sip-perl-0.825/t/16_drop_invite.t-102- close($tfh);