javonet-ruby-sdk 2.1.1 → 2.1.3

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/LWP/Protocol/mailto.pm

@@ -1,184 +0,0 @@
-package LWP::Protocol::mailto;
-
-# This module implements the mailto protocol.  It is just a simple
-# frontend to the Unix sendmail program except on MacOS, where it uses
-# Mail::Internet.
-
-require HTTP::Request;
-require HTTP::Response;
-require HTTP::Status;
-
-use Carp;
-use strict;
-
-our $VERSION = '6.68';
-
-use parent qw(LWP::Protocol);
-our $SENDMAIL;
-
-unless ($SENDMAIL = $ENV{SENDMAIL}) {
-    for my $sm (qw(/usr/sbin/sendmail
-		   /usr/lib/sendmail
-		   /usr/ucblib/sendmail
-		  ))
-    {
-	if (-x $sm) {
-	    $SENDMAIL = $sm;
-	    last;
-	}
-    }
-    die "Can't find the 'sendmail' program" unless $SENDMAIL;
-}
-
-sub request
-{
-    my($self, $request, $proxy, $arg, $size) = @_;
-
-    my ($mail, $addr) if $^O eq "MacOS";
-    my @text = () if $^O eq "MacOS";
-
-    # check proxy
-    if (defined $proxy)
-    {
-	return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST,
-				  'You can not proxy with mail');
-    }
-
-    # check method
-    my $method = $request->method;
-
-    if ($method ne 'POST') {
-	return HTTP::Response->new( HTTP::Status::RC_BAD_REQUEST,
-				  'Library does not allow method ' .
-				  "$method for 'mailto:' URLs");
-    }
-
-    # check url
-    my $url = $request->uri;
-
-    my $scheme = $url->scheme;
-    if ($scheme ne 'mailto') {
-	return HTTP::Response->new( HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-			 "LWP::Protocol::mailto::request called for '$scheme'");
-    }
-    if ($^O eq "MacOS") {
-	eval {
-	    require Mail::Internet;
-	};
-	if($@) {
-	    return HTTP::Response->new( HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-	               "You don't have MailTools installed");
-	}
-	unless ($ENV{SMTPHOSTS}) {
-	    return HTTP::Response->new( HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-	               "You don't have SMTPHOSTS defined");
-	}
-    }
-    else {
-	unless (-x $SENDMAIL) {
-	    return HTTP::Response->new( HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-	               "You don't have $SENDMAIL");
-    }
-    }
-    if ($^O eq "MacOS") {
-	    $mail = Mail::Internet->new or
-	    return HTTP::Response->new( HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-	    "Can't get a Mail::Internet object");
-    }
-    else {
-	open(SENDMAIL, "| $SENDMAIL -oi -t") or
-	    return HTTP::Response->new( HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-	               "Can't run $SENDMAIL: $!");
-    }
-    if ($^O eq "MacOS") {
-	$addr = $url->encoded822addr;
-    }
-    else {
-	$request = $request->clone;  # we modify a copy
-	my @h = $url->headers;  # URL headers override those in the request
-	while (@h) {
-	    my $k = shift @h;
-	    my $v = shift @h;
-	    next unless defined $v;
-	    if (lc($k) eq "body") {
-		$request->content($v);
-	    }
-	    else {
-		$request->push_header($k => $v);
-	    }
-	}
-    }
-    if ($^O eq "MacOS") {
-	$mail->add(To => $addr);
-	$mail->add(split(/[:\n]/,$request->headers_as_string));
-    }
-    else {
-	print SENDMAIL $request->headers_as_string;
-	print SENDMAIL "\n";
-    }
-    my $content = $request->content;
-    if (defined $content) {
-	my $contRef = ref($content) ? $content : \$content;
-	if (ref($contRef) eq 'SCALAR') {
-	    if ($^O eq "MacOS") {
-		@text = split("\n",$$contRef);
-		foreach (@text) {
-		    $_ .= "\n";
-		}
-	    }
-	    else {
-	    print SENDMAIL $$contRef;
-	    }
-
-	}
-	elsif (ref($contRef) eq 'CODE') {
-	    # Callback provides data
-	    my $d;
-	    if ($^O eq "MacOS") {
-		my $stuff = "";
-		while (length($d = &$contRef)) {
-		    $stuff .= $d;
-		}
-		@text = split("\n",$stuff);
-		foreach (@text) {
-		    $_ .= "\n";
-		}
-	    }
-	    else {
-		print SENDMAIL $d;
-	    }
-	}
-    }
-    if ($^O eq "MacOS") {
-	$mail->body(\@text);
-	unless ($mail->smtpsend) {
-	    return HTTP::Response->new(HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-				       "Mail::Internet->smtpsend unable to send message to <$addr>");
-	}
-    }
-    else {
-	unless (close(SENDMAIL)) {
-	    my $err = $! ? "$!" : "Exit status $?";
-	    return HTTP::Response->new(HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-				       "$SENDMAIL: $err");
-	}
-    }
-
-
-    my $response = HTTP::Response->new(HTTP::Status::RC_ACCEPTED,
-				       "Mail accepted");
-    $response->header('Content-Type', 'text/plain');
-    if ($^O eq "MacOS") {
-	$response->header('Server' => "Mail::Internet $Mail::Internet::VERSION");
-	$response->content("Message sent to <$addr>\n");
-    }
-    else {
-	$response->header('Server' => $SENDMAIL);
-	my $to = $request->header("To");
-	$response->content("Message sent to <$to>\n");
-    }
-
-    return $response;
-}
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/LWP/Protocol/nntp.pm

@@ -1,150 +0,0 @@
-package LWP::Protocol::nntp;
-
-# Implementation of the Network News Transfer Protocol (RFC 977)
-
-use parent qw(LWP::Protocol);
-
-our $VERSION = '6.68';
-
-require HTTP::Response;
-require HTTP::Status;
-require Net::NNTP;
-
-use strict;
-
-
-sub request {
-    my ($self, $request, $proxy, $arg, $size, $timeout) = @_;
-
-    $size = 4096 unless $size;
-
-    # Check for proxy
-    if (defined $proxy) {
-        return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST,
-            'You can not proxy through NNTP');
-    }
-
-    # Check that the scheme is as expected
-    my $url    = $request->uri;
-    my $scheme = $url->scheme;
-    unless ($scheme eq 'news' || $scheme eq 'nntp') {
-        return HTTP::Response->new(HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-            "LWP::Protocol::nntp::request called for '$scheme'");
-    }
-
-    # check for a valid method
-    my $method = $request->method;
-    unless ($method eq 'GET' || $method eq 'HEAD' || $method eq 'POST') {
-        return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST,
-            'Library does not allow method ' . "$method for '$scheme:' URLs");
-    }
-
-    # extract the identifier and check against posting to an article
-    my $groupart = $url->_group;
-    my $is_art   = $groupart =~ /@/;
-
-    if ($is_art && $method eq 'POST') {
-        return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST,
-            "Can't post to an article <$groupart>");
-    }
-
-    my $nntp = Net::NNTP->new(
-        $url->host,
-
-        #Port    => 18574,
-        Timeout => $timeout,
-
-        #Debug   => 1,
-    );
-    die "Can't connect to nntp server" unless $nntp;
-
-    # Check the initial welcome message from the NNTP server
-    if ($nntp->status != 2) {
-        return HTTP::Response->new(HTTP::Status::RC_SERVICE_UNAVAILABLE,
-            $nntp->message);
-    }
-    my $response = HTTP::Response->new(HTTP::Status::RC_OK, "OK");
-
-    my $mess = $nntp->message;
-
-    # Try to extract server name from greeting message.
-    # Don't know if this works well for a large class of servers, but
-    # this works for our server.
-    $mess =~ s/\s+ready\b.*//;
-    $mess =~ s/^\S+\s+//;
-    $response->header(Server => $mess);
-
-    # First we handle posting of articles
-    if ($method eq 'POST') {
-        $nntp->quit;
-        $nntp = undef;
-        $response->code(HTTP::Status::RC_NOT_IMPLEMENTED);
-        $response->message("POST not implemented yet");
-        return $response;
-    }
-
-    # The method must be "GET" or "HEAD" by now
-    if (!$is_art) {
-        if (!$nntp->group($groupart)) {
-            $response->code(HTTP::Status::RC_NOT_FOUND);
-            $response->message($nntp->message);
-        }
-        $nntp->quit;
-        $nntp = undef;
-
-        # HEAD: just check if the group exists
-        if ($method eq 'GET' && $response->is_success) {
-            $response->code(HTTP::Status::RC_NOT_IMPLEMENTED);
-            $response->message("GET newsgroup not implemented yet");
-        }
-        return $response;
-    }
-
-    # Send command to server to retrieve an article (or just the headers)
-    my $get = $method eq 'HEAD' ? "head" : "article";
-    my $art = $nntp->$get("<$groupart>");
-    unless ($art) {
-        $nntp->quit;
-        $response->code(HTTP::Status::RC_NOT_FOUND);
-        $response->message($nntp->message);
-        $nntp = undef;
-        return $response;
-    }
-
-    # Parse headers
-    my ($key, $val);
-    local $_;
-    while ($_ = shift @$art) {
-        if (/^\s+$/) {
-            last;    # end of headers
-        }
-        elsif (/^(\S+):\s*(.*)/) {
-            $response->push_header($key, $val) if $key;
-            ($key, $val) = ($1, $2);
-        }
-        elsif (/^\s+(.*)/) {
-            next unless $key;
-            $val .= $1;
-        }
-        else {
-            unshift(@$art, $_);
-            last;
-        }
-    }
-    $response->push_header($key, $val) if $key;
-
-    # Ensure that there is a Content-Type header
-    $response->header("Content-Type", "text/plain")
-        unless $response->header("Content-Type");
-
-    # Collect the body
-    $response = $self->collect_once($arg, $response, join("", @$art)) if @$art;
-
-    # Say goodbye to the server
-    $nntp->quit;
-    $nntp = undef;
-
-    $response;
-}
-
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/LWP/Protocol/nogo.pm

@@ -1,25 +0,0 @@
-package LWP::Protocol::nogo;
-# If you want to disable access to a particular scheme, use this
-# class and then call
-#   LWP::Protocol::implementor(that_scheme, 'LWP::Protocol::nogo');
-# For then on, attempts to access URLs with that scheme will generate
-# a 500 error.
-
-use strict;
-
-our $VERSION = '6.68';
-
-require HTTP::Response;
-require HTTP::Status;
-use parent qw(LWP::Protocol);
-
-sub request {
-    my($self, $request) = @_;
-    my $scheme = $request->uri->scheme;
-
-    return HTTP::Response->new(
-      HTTP::Status::RC_INTERNAL_SERVER_ERROR,
-      "Access to \'$scheme\' URIs has been disabled"
-    );
-}
-1;

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/LWP/Protocol.pm

@@ -1,321 +0,0 @@
-package LWP::Protocol;
-
-use parent 'LWP::MemberMixin';
-
-our $VERSION = '6.68';
-
-use strict;
-use Carp ();
-use HTTP::Status ();
-use HTTP::Response ();
-use Scalar::Util qw(openhandle);
-use Try::Tiny qw(try catch);
-
-my %ImplementedBy = (); # scheme => classname
-
-sub new
-{
-    my($class, $scheme, $ua) = @_;
-
-    my $self = bless {
-	scheme => $scheme,
-	ua => $ua,
-
-	# historical/redundant
-        max_size => $ua->{max_size},
-    }, $class;
-
-    $self;
-}
-
-
-sub create
-{
-    my($scheme, $ua) = @_;
-    my $impclass = LWP::Protocol::implementor($scheme) or
-	Carp::croak("Protocol scheme '$scheme' is not supported");
-
-    # hand-off to scheme specific implementation sub-class
-    my $protocol = $impclass->new($scheme, $ua);
-
-    return $protocol;
-}
-
-
-sub implementor
-{
-    my($scheme, $impclass) = @_;
-
-    if ($impclass) {
-	$ImplementedBy{$scheme} = $impclass;
-    }
-    my $ic = $ImplementedBy{$scheme};
-    return $ic if $ic;
-
-    return '' unless $scheme =~ /^([.+\-\w]+)$/;  # check valid URL schemes
-    $scheme = $1; # untaint
-    $scheme =~ tr/.+-/_/;  # make it a legal module name
-
-    # scheme not yet known, look for a 'use'd implementation
-    $ic = "LWP::Protocol::$scheme";  # default location
-    $ic = "LWP::Protocol::nntp" if $scheme eq 'news'; #XXX ugly hack
-    no strict 'refs';
-    # check we actually have one for the scheme:
-    unless (@{"${ic}::ISA"}) {
-        # try to autoload it
-        try {
-            (my $class = $ic) =~ s{::}{/}g;
-            $class .= '.pm' unless $class =~ /\.pm$/;
-            require $class;
-        }
-        catch {
-            my $error = $_;
-            if ($error =~ /Can't locate/) {
-                $ic = '';
-            }
-            else {
-                die "$error\n";
-            }
-        };
-    }
-    $ImplementedBy{$scheme} = $ic if $ic;
-    $ic;
-}
-
-
-sub request
-{
-    my($self, $request, $proxy, $arg, $size, $timeout) = @_;
-    Carp::croak('LWP::Protocol::request() needs to be overridden in subclasses');
-}
-
-
-# legacy
-sub timeout    { shift->_elem('timeout',    @_); }
-sub max_size   { shift->_elem('max_size',   @_); }
-
-
-sub collect
-{
-    my ($self, $arg, $response, $collector) = @_;
-    my $content;
-    my($ua, $max_size) = @{$self}{qw(ua max_size)};
-
-    # This can't be moved to Try::Tiny due to the closures within causing
-    # leaks on any version of Perl prior to 5.18.
-    # https://perl5.git.perl.org/perl.git/commitdiff/a0d2bbd5c
-    my $error = do { #catch
-        local $@;
-        local $\; # protect the print below from surprises
-        eval { # try
-            if (!defined($arg) || !$response->is_success) {
-                $response->{default_add_content} = 1;
-            }
-            elsif (defined(openhandle($arg)) || !ref($arg) && length($arg)) {
-                my $existing_fh = defined(openhandle($arg));
-                my $mode = $existing_fh ? '>&=' : '>';
-                open(my $fh, $mode, $arg) or die "Can't write to '$arg': $!";
-                binmode($fh);
-                push(@{$response->{handlers}{response_data}}, {
-                    callback => sub {
-                        print $fh $_[3] or die "Can't write to '$arg': $!";
-                        1;
-                    },
-                });
-                push(@{$response->{handlers}{response_done}}, {
-                    callback => sub {
-                        unless ($existing_fh) {
-                            close($fh) or die "Can't write to '$arg': $!";
-                        }
-                        undef($fh);
-                    },
-                });
-            }
-            elsif (ref($arg) eq 'CODE') {
-                push(@{$response->{handlers}{response_data}}, {
-                    callback => sub {
-                        &$arg($_[3], $_[0], $self);
-                        1;
-                    },
-                });
-            }
-            else {
-                die "Unexpected collect argument '$arg'";
-            }
-
-            $ua->run_handlers("response_header", $response);
-
-            if (delete $response->{default_add_content}) {
-                push(@{$response->{handlers}{response_data}}, {
-                    callback => sub {
-                        $_[0]->add_content($_[3]);
-                        1;
-                    },
-                });
-            }
-
-
-            my $content_size = 0;
-            my $length = $response->content_length;
-            my %skip_h;
-
-            while ($content = &$collector, length $$content) {
-                for my $h ($ua->handlers("response_data", $response)) {
-                    next if $skip_h{$h};
-                    unless ($h->{callback}->($response, $ua, $h, $$content)) {
-                        # XXX remove from $response->{handlers}{response_data} if present
-                        $skip_h{$h}++;
-                    }
-                }
-                $content_size += length($$content);
-                $ua->progress(($length ? ($content_size / $length) : "tick"), $response);
-                if (defined($max_size) && $content_size > $max_size) {
-                    $response->push_header("Client-Aborted", "max_size");
-                    last;
-                }
-            }
-            1;
-        };
-        $@;
-    };
-
-    if ($error) {
-        chomp($error);
-        $response->push_header('X-Died' => $error);
-        $response->push_header("Client-Aborted", "die");
-    };
-    delete $response->{handlers}{response_data};
-    delete $response->{handlers} unless %{$response->{handlers}};
-    return $response;
-}
-
-
-sub collect_once
-{
-    my($self, $arg, $response) = @_;
-    my $content = \ $_[3];
-    my $first = 1;
-    $self->collect($arg, $response, sub {
-	return $content if $first--;
-	return \ "";
-    });
-}
-
-1;
-
-
-__END__
-
-=pod
-
-=head1 NAME
-
-LWP::Protocol - Base class for LWP protocols
-
-=head1 SYNOPSIS
-
- package LWP::Protocol::foo;
- use parent qw(LWP::Protocol);
-
-=head1 DESCRIPTION
-
-This class is used as the base class for all protocol implementations
-supported by the LWP library.
-
-When creating an instance of this class using
-C<LWP::Protocol::create($url)>, and you get an initialized subclass
-appropriate for that access method. In other words, the
-L<LWP::Protocol/create> function calls the constructor for one of its
-subclasses.
-
-All derived C<LWP::Protocol> classes need to override the C<request()>
-method which is used to service a request. The overridden method can
-make use of the C<collect()> method to collect together chunks of data
-as it is received.
-
-=head1 METHODS
-
-The following methods and functions are provided:
-
-=head2 new
-
-    my $prot = LWP::Protocol->new();
-
-The LWP::Protocol constructor is inherited by subclasses. As this is a
-virtual base class this method should B<not> be called directly.
-
-=head2 create
-
-    my $prot = LWP::Protocol::create($scheme)
-
-Create an object of the class implementing the protocol to handle the
-given scheme. This is a function, not a method. It is more an object
-factory than a constructor. This is the function user agents should
-use to access protocols.
-
-=head2 implementor
-
-    my $class = LWP::Protocol::implementor($scheme, [$class])
-
-Get and/or set implementor class for a scheme.  Returns C<''> if the
-specified scheme is not supported.
-
-=head2 request
-
-    $response = $protocol->request($request, $proxy, undef);
-    $response = $protocol->request($request, $proxy, '/tmp/sss');
-    $response = $protocol->request($request, $proxy, \&callback, 1024);
-    $response = $protocol->request($request, $proxy, $fh);
-
-Dispatches a request over the protocol, and returns a response
-object. This method needs to be overridden in subclasses.  Refer to
-L<LWP::UserAgent> for description of the arguments.
-
-=head2 collect
-
-    my $res = $prot->collect(undef, $response, $collector); # stored in $response
-    my $res = $prot->collect($filename, $response, $collector);
-    my $res = $prot->collect(sub { ... }, $response, $collector);
-
-Collect the content of a request, and process it appropriately into a scalar,
-file, or by calling a callback. If the first parameter is undefined, then the
-content is stored within the C<$response>. If it's a simple scalar, then it's
-interpreted as a file name and the content is written to this file.  If it's a
-code reference, then content is passed to this routine.
-If it is a filehandle, or similar, such as a L<File::Temp> object,
-content will be written to it.
-
-The collector is a routine that will be called and which is
-responsible for returning pieces (as ref to scalar) of the content to
-process.  The C<$collector> signals C<EOF> by returning a reference to an
-empty string.
-
-The return value is the L<HTTP::Response> object reference.
-
-B<Note:> We will only use the callback or file argument if
-C<< $response->is_success() >>.  This avoids sending content data for
-redirects and authentication responses to the callback which would be
-confusing.
-
-=head2 collect_once
-
-    $prot->collect_once($arg, $response, $content)
-
-Can be called when the whole response content is available as content. This
-will invoke L<LWP::Protocol/collect> with a collector callback that
-returns a reference to C<$content> the first time and an empty string the
-next.
-
-=head1 SEE ALSO
-
-Inspect the F<LWP/Protocol/file.pm> and F<LWP/Protocol/http.pm> files
-for examples of usage.
-
-=head1 COPYRIGHT
-
-Copyright 1995-2001 Gisle Aas.
-
-This library is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=cut