RubyGems - javonet-ruby-sdk - Versions diffs - 2.1.1 → 2.1.3 - Mend

javonet-ruby-sdk 2.1.1 → 2.1.3

Files changed (904) hide show

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/Alien/Build/Plugin/Fetch/NetFTP.pm DELETED Viewed

@@ -1,275 +0,0 @@
-package Alien::Build::Plugin::Fetch::NetFTP;
-use strict;
-use warnings;
-use 5.008004;
-use Alien::Build::Plugin;
-use Carp ();
-use File::Temp ();
-use Path::Tiny qw( path );
-# ABSTRACT: Plugin for fetching files using Net::FTP
-our $VERSION = '2.78'; # VERSION
-has '+url' => '';
-has ssl => 0;
-has passive => 0;
-sub init
-{
-  my($self, $meta) = @_;
-  $meta->prop->{start_url} ||= $self->url;
-  $self->url($meta->prop->{start_url});
-  $self->url || Carp::croak('url is a required property');
-  $meta->add_requires('share' => 'Net::FTP' => 0 );
-  $meta->add_requires('share' => 'URI' => 0 );
-  $meta->add_requires('share' => 'Alien::Build::Plugin::Fetch::NetFTP' => '0.61')
-    if $self->passive;
-  $meta->register_hook( fetch => sub {
-    my($build, $url, %options) = @_;
-    $url ||= $self->url;
-    $build->log("plugin Fetch::NetFTP does not support http_headers option") if $options{http_headers};
-    $url = URI->new($url);
-    die "Fetch::NetFTP does not support @{[ $url->scheme ]}"
-      unless $url->scheme eq 'ftp';
-    $build->log("trying passive mode FTP first") if $self->passive;
-    my $ftp = _ftp_connect($url, $self->passive);
-    my $path = $url->path;
-    unless($path =~ m!/$!)
-    {
-      my(@parts) = split /\//, $path;
-      my $filename = pop @parts;
-      my $dir      = join '/', @parts;
-      my $path = eval {
-        $ftp->cwd($dir) or die;
-        my $tdir = File::Temp::tempdir( CLEANUP => 1);
-        my $path = path("$tdir/$filename")->stringify;
-        unless(eval { $ftp->get($filename, $path) }) # NAT problem? try to use passive mode
-        {
-          $ftp->quit;
-          $build->log("switching to @{[ $self->passive ? 'active' : 'passive' ]} mode");
-          $ftp = _ftp_connect($url, !$self->passive);
-          $ftp->cwd($dir) or die;
-          $ftp->get($filename, $path) or die;
-        }
-        $path;
-      };
-      if(defined $path)
-      {
-        return {
-          type     => 'file',
-          filename => $filename,
-          path     => $path,
-          protocol => 'ftp',
-        };
-      }
-      $path .= "/";
-    }
-    $ftp->quit;
-    $ftp = _ftp_connect($url, $self->passive);
-    $ftp->cwd($path) or die "unable to fetch $url as either a directory or file";
-    my $list = eval { $ftp->ls };
-    unless(defined $list) # NAT problem? try to use passive mode
-    {
-      $ftp->quit;
-      $build->log("switching to @{[ $self->passive ? 'active' : 'passive' ]} mode");
-      $ftp = _ftp_connect($url, !$self->passive);
-      $ftp->cwd($path) or die "unable to fetch $url as either a directory or file";
-      $list = $ftp->ls;
-      die "cannot list directory $path on $url" unless defined $list;
-    }
-    die "no files found at $url" unless @$list;
-    $path .= '/' unless $path =~ /\/$/;
-    return {
-      type     => 'list',
-      protocol => 'ftp',
-      list     => [
-        map {
-          my $filename = $_;
-          my $furl = $url->clone;
-          $furl->path($path . $filename);
-          my %h = (
-            filename => $filename,
-            url      => $furl->as_string,
-          );
-          \%h;
-        } sort @$list,
-      ],
-    };
-  });
-  $self;
-}
-sub _ftp_connect {
-  my $url = shift;
-  my $is_passive = shift || 0;
-  my $ftp = Net::FTP->new(
-    $url->host, Port =>$url->port, Passive =>$is_passive,
-  ) or die "error fetching $url: $@";
-  $ftp->login($url->user, $url->password)
-    or die "error on login $url: @{[ $ftp->message ]}";
-  $ftp->binary;
-  $ftp;
-}
-1;
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Alien::Build::Plugin::Fetch::NetFTP - Plugin for fetching files using Net::FTP
-=head1 VERSION
-version 2.78
-=head1 SYNOPSIS
- use alienfile;
- share {
-   start_url 'ftp://ftp.gnu.org/gnu/make';
-   plugin 'Fetch::NetFTP';
- };
-=head1 DESCRIPTION
-Note: in most case you will want to use L<Alien::Build::Plugin::Download::Negotiate>
-instead.  It picks the appropriate fetch plugin based on your platform and environment.
-In some cases you may need to use this plugin directly instead.
-This fetch plugin fetches files and directory listings via the C<ftp>, protocol using
-L<Net::FTP>.
-=head1 PROPERTIES
-=head2 url
-The initial URL to fetch.  This may be a directory or the final file.
-=head2 ssl
-This property is for compatibility with other fetch plugins, but is not used.
-=head2 passive
-If set to true, try passive mode FIRST.  By default it will try an active mode, then
-passive mode.
-=head1 SEE ALSO
-L<Alien::Build::Plugin::Download::Negotiate>, L<Alien::Build>, L<alienfile>, L<Alien::Build::MM>, L<Alien>
-=head1 AUTHOR
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-Contributors:
-Diab Jerius (DJERIUS)
-Roy Storey (KIWIROY)
-Ilya Pavlov
-David Mertens (run4flat)
-Mark Nunberg (mordy, mnunberg)
-Christian Walde (Mithaldu)
-Brian Wightman (MidLifeXis)
-Zaki Mughal (zmughal)
-mohawk (mohawk2, ETJ)
-Vikas N Kumar (vikasnkumar)
-Flavio Poletti (polettix)
-Salvador Fandiño (salva)
-Gianni Ceccarelli (dakkar)
-Pavel Shaydo (zwon, trinitum)
-Kang-min Liu (劉康民, gugod)
-Nicholas Shipp (nshp)
-Juan Julián Merelo Guervós (JJ)
-Joel Berger (JBERGER)
-Petr Písař (ppisar)
-Lance Wicks (LANCEW)
-Ahmad Fatoum (a3f, ATHREEF)
-José Joaquín Atria (JJATRIA)
-Duke Leto (LETO)
-Shoichi Kaji (SKAJI)
-Shawn Laffan (SLAFFAN)
-Paul Evans (leonerd, PEVANS)
-Håkon Hægland (hakonhagland, HAKONH)
-nick nauwelaerts (INPHOBIA)
-Florian Weimer
-=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2011-2022 by Graham Ollis.
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/Alien/Build/Plugin/Fetch/Wget.pm DELETED Viewed

@@ -1,260 +0,0 @@
-package Alien::Build::Plugin::Fetch::Wget;
-use strict;
-use warnings;
-use 5.008004;
-use Alien::Build::Plugin;
-use File::Temp qw( tempdir );
-use Path::Tiny qw( path );
-use File::Which qw( which );
-use Capture::Tiny qw( capture capture_merged );
-use File::chdir;
-use List::Util qw( pairmap );
-# ABSTRACT: Plugin for fetching files using wget
-our $VERSION = '2.78'; # VERSION
-sub _wget
-{
-  my $wget = defined $ENV{WGET} ? which($ENV{WGET}) : which('wget');
-  return undef unless defined $wget;
-  my $output = capture_merged { system $wget, '--help' };
-  # The wget that BusyBox implements does not follow that same interface
-  # as GNU wget and may not check ssl certs which is not good.
-  return undef if $output =~ /BusyBox/;
-  return $wget;
-}
-has wget_command => sub { _wget() };
-has ssl => 0;
-# when bootstrapping we have to specify this plugin as a prereq
-# 1 is the default so that when this plugin is used directly
-# you also get the prereq
-has bootstrap_ssl => 1;
-sub init
-{
-  my($self, $meta) = @_;
-  $meta->add_requires('configure', 'Alien::Build::Plugin::Fetch::Wget' => '1.19')
-    if $self->bootstrap_ssl;
-  $meta->register_hook(
-    fetch => sub {
-      my($build, $url, %options) = @_;
-      $url ||= $meta->prop->{start_url};
-      my($scheme) = $url =~ /^([a-z0-9]+):/i;
-      if($scheme eq 'http' || $scheme eq 'https')
-      {
-        local $CWD = tempdir( CLEANUP => 1 );
-        my @headers;
-        if(my $headers = $options{http_headers})
-        {
-          if(ref $headers eq 'ARRAY')
-          {
-            my @copy = @$headers;
-            my %headers;
-            while(@copy)
-            {
-              my $key = shift @copy;
-              my $value = shift @copy;
-              push @{ $headers{$key} }, $value;
-            }
-            @headers = pairmap { "--header=$a: @{[ join ', ', @$b ]}" } %headers;
-          }
-          else
-          {
-            $build->log("Fetch for $url with http_headers that is not an array reference");
-          }
-        }
-        my($stdout, $stderr) = $self->_execute(
-          $build,
-          $self->wget_command,
-          '-k', '--content-disposition', '-S',
-          @headers,
-          $url,
-        );
-        my($path) = path('.')->children;
-        die "no file found after wget" unless $path;
-        my($type) = $stderr =~ /Content-Type:\s*(.*?)$/m;
-        $type =~ s/;.*$// if $type;
-        if($type eq 'text/html')
-        {
-          return {
-            type     => 'html',
-            base     => $url,
-            content  => scalar $path->slurp,
-            protocol => $scheme,
-          };
-        }
-        else
-        {
-          return {
-            type     => 'file',
-            filename => $path->basename,
-            path     => $path->absolute->stringify,
-            protocol => $scheme,
-          };
-        }
-      }
-      else
-      {
-        die "scheme $scheme is not supported by the Fetch::Wget plugin";
-      }
-    },
-  ) if $self->wget_command;
-}
-sub _execute
-{
-  my($self, $build, @command) = @_;
-  $build->log("+ @command");
-  my($stdout, $stderr, $err) = capture {
-    system @command;
-    $?;
-  };
-  if($err)
-  {
-    chomp $stderr;
-    $stderr = [split /\n/, $stderr]->[-1];
-    die "error in wget fetch: $stderr";
-  }
-  ($stdout, $stderr);
-}
-1;
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Alien::Build::Plugin::Fetch::Wget - Plugin for fetching files using wget
-=head1 VERSION
-version 2.78
-=head1 SYNOPSIS
- use alienfile;
- share {
-   start_url 'https://www.openssl.org/source/';
-   plugin 'Fetch::Wget';
- };
-=head1 DESCRIPTION
-B<WARNING>: This plugin is somewhat experimental at this time.
-This plugin provides a fetch based on the C<wget> command.  It works with other fetch
-plugins (that is, the first one which succeeds will be used).  Most of the time the best plugin
-to use will be L<Alien::Build::Plugin::Download::Negotiate>, but for some SSL bootstrapping
-it may be desirable to try C<wget> first.
-Protocols supported: C<http>, C<https>
-=head1 PROPERTIES
-=head2 wget_command
-The full path to the C<wget> command.  The default is usually correct.
-=head2 ssl
-Ignored by this plugin.  Provided for compatibility with some other fetch plugins.
-=head1 SEE ALSO
-=over 4
-=item L<alienfile>
-=item L<Alien::Build>
-=back
-=head1 AUTHOR
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-Contributors:
-Diab Jerius (DJERIUS)
-Roy Storey (KIWIROY)
-Ilya Pavlov
-David Mertens (run4flat)
-Mark Nunberg (mordy, mnunberg)
-Christian Walde (Mithaldu)
-Brian Wightman (MidLifeXis)
-Zaki Mughal (zmughal)
-mohawk (mohawk2, ETJ)
-Vikas N Kumar (vikasnkumar)
-Flavio Poletti (polettix)
-Salvador Fandiño (salva)
-Gianni Ceccarelli (dakkar)
-Pavel Shaydo (zwon, trinitum)
-Kang-min Liu (劉康民, gugod)
-Nicholas Shipp (nshp)
-Juan Julián Merelo Guervós (JJ)
-Joel Berger (JBERGER)
-Petr Písař (ppisar)
-Lance Wicks (LANCEW)
-Ahmad Fatoum (a3f, ATHREEF)
-José Joaquín Atria (JJATRIA)
-Duke Leto (LETO)
-Shoichi Kaji (SKAJI)
-Shawn Laffan (SLAFFAN)
-Paul Evans (leonerd, PEVANS)
-Håkon Hægland (hakonhagland, HAKONH)
-nick nauwelaerts (INPHOBIA)
-Florian Weimer
-=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2011-2022 by Graham Ollis.
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/Alien/Build/Plugin/Fetch.pod DELETED Viewed

@@ -1,144 +0,0 @@
-# PODNAME: Alien::Build::Plugin::Fetch
-# ABSTRACT: Fetch Alien::Build plugins
-# VERSION
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-Alien::Build::Plugin::Fetch - Fetch Alien::Build plugins
-=head1 VERSION
-version 2.78
-=head1 SYNOPSIS
- use alienfile;
- share {
-   start_url 'http://ftp.gnu.org/gnu/make';
-   plugin 'Download';
- };
-=head1 DESCRIPTION
-Fetch plugins retrieve single resources from the internet.  The difference
-between a Fetch plugin and a Download plugin is that Download
-plugin may fetch several resources from the internet (usually using
-a Fetch plugin), before finding the final archive.  Normally you
-will not need to use Fetch plugins directly but should instead
-use the L<Alien::Build::Plugin::Download::Negotiate> plugin, which
-will pick the best plugins for your given URL.
-=over 4
-=item L<Alien::Build::Plugin::Fetch::CurlCommand>
-Fetch using the C<curl> command.
-=item L<Alien::Build::Plugin::Fetch::HTTPTiny>
-Fetch using L<HTTP::Tiny>.
-=item L<Alien::Build::Plugin::Fetch::LWP>
-Fetch using L<LWP::UserAgent>.
-=item L<Alien::Build::Plugin::Fetch::Local>
-Fetch from a local file.  This is typically used to bundle packages with your L<Alien>.
-=item L<Alien::Build::Plugin::Fetch::LocalDir>
-Fetch from a local directory.  This is typically used to bundle packages with your L<Alien>.
-=item L<Alien::Build::Plugin::Fetch::NetFTP>
-Fetch using L<Net::FTP>.  Use of FTP should be discouraged as of this writing (August 2022).
-=item L<Alien::Build::Plugin::Fetch::Wget>
-Fetch using C<wget>.
-=back
-=head1 SEE ALSO
-L<Alien::Build>, L<Alien::Build::Plugin>
-=head1 AUTHOR
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-Contributors:
-Diab Jerius (DJERIUS)
-Roy Storey (KIWIROY)
-Ilya Pavlov
-David Mertens (run4flat)
-Mark Nunberg (mordy, mnunberg)
-Christian Walde (Mithaldu)
-Brian Wightman (MidLifeXis)
-Zaki Mughal (zmughal)
-mohawk (mohawk2, ETJ)
-Vikas N Kumar (vikasnkumar)
-Flavio Poletti (polettix)
-Salvador Fandiño (salva)
-Gianni Ceccarelli (dakkar)
-Pavel Shaydo (zwon, trinitum)
-Kang-min Liu (劉康民, gugod)
-Nicholas Shipp (nshp)
-Juan Julián Merelo Guervós (JJ)
-Joel Berger (JBERGER)
-Petr Písař (ppisar)
-Lance Wicks (LANCEW)
-Ahmad Fatoum (a3f, ATHREEF)
-José Joaquín Atria (JJATRIA)
-Duke Leto (LETO)
-Shoichi Kaji (SKAJI)
-Shawn Laffan (SLAFFAN)
-Paul Evans (leonerd, PEVANS)
-Håkon Hægland (hakonhagland, HAKONH)
-nick nauwelaerts (INPHOBIA)
-Florian Weimer
-=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2011-2022 by Graham Ollis.
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-=cut