javonet-nodejs-sdk 2.1.1 → 2.1.2

package/Binaries/Perl/MacOs/X64/deps/bin/lwp-download

@@ -1,335 +0,0 @@
-#!/usr/local/opt/perl/bin/perl
-
-=head1 NAME
-
-lwp-download - Fetch large files from the web
-
-=head1 SYNOPSIS
-
- lwp-download [-a] [-s] <url> [<local path>]
-
- Options:
-
-   -a   save the file in ASCII mode
-   -s   use HTTP headers to guess output filename
-
-=head1 DESCRIPTION
-
-The B<lwp-download> program will save the file at I<url> to a local
-file.
-
-If I<local path> is not specified, then the current directory is
-assumed.
-
-If I<local path> is a directory, then the last segment of the path of the
-I<url> is appended to form a local filename.  If the I<url> path ends with
-slash the name "index" is used.  With the B<-s> option pick up the last segment
-of the filename from server provided sources like the Content-Disposition
-header or any redirect URLs.  A file extension to match the server reported
-Content-Type might also be appended.  If a file with the produced filename
-already exists, then B<lwp-download> will prompt before it overwrites and will
-fail if its standard input is not a terminal.  This form of invocation will
-also fail is no acceptable filename can be derived from the sources mentioned
-above.
-
-If I<local path> is not a directory, then it is simply used as the
-path to save into.  If the file already exists it's overwritten.
-
-The I<lwp-download> program is implemented using the I<libwww-perl>
-library.  It is better suited to down load big files than the
-I<lwp-request> program because it does not store the file in memory.
-Another benefit is that it will keep you updated about its progress
-and that you don't have much options to worry about.
-
-Use the C<-a> option to save the file in text (ASCII) mode.  Might
-make a difference on DOSish systems.
-
-=head1 EXAMPLE
-
-Fetch the newest and greatest perl version:
-
- $ lwp-download http://www.perl.com/CPAN/src/latest.tar.gz
- Saving to 'latest.tar.gz'...
- 11.4 MB received in 8 seconds (1.43 MB/sec)
-
-=head1 AUTHOR
-
-Gisle Aas <gisle@aas.no>
-
-=cut
-
-#' get emacs out of quote mode
-
-use strict;
-use warnings;
-
-use LWP::UserAgent ();
-use LWP::MediaTypes qw(guess_media_type media_suffix);
-use URI        ();
-use HTTP::Date ();
-use Encode;
-use Encode::Locale;
-use Getopt::Long qw(HelpMessage :config gnu_getopt no_ignore_case auto_help);
-
-my $progname = $0;
-$progname =~ s,.*/,,;    # only basename left in progname
-$progname =~ s,.*\\,, if $^O eq "MSWin32";
-$progname =~ s/\.\w*$//;    # strip extension if any
-
-my %opt;
-GetOptions(
-    'a' => \$opt{a},
-    's' => \$opt{s}
-) or HelpMessage();
-
-my $url = URI->new(decode(locale => shift) || HelpMessage());
-my $argfile = encode(locale_fs => decode(locale => shift));
-HelpMessage() if defined($argfile) && !length($argfile);
-
-my $ua = LWP::UserAgent->new(
-    agent      => "lwp-download/$LWP::UserAgent::VERSION ",
-    keep_alive => 1,
-    env_proxy  => 1,
-);
-
-my $file;       # name of file we download into
-my $length;     # total number of bytes to download
-my $flength;    # formatted length
-my $size = 0;   # number of bytes received
-my $start_t;    # start time of download
-my $last_dur;   # time of last callback
-
-my $shown = 0;  # have we called the show() function yet
-
-$SIG{INT} = sub { die "Interrupted\n"; };
-
-$| = 1;         # autoflush
-
-my $res = $ua->request(
-    HTTP::Request->new(GET => $url),
-    sub {
-        unless (defined $file) {
-            my $res = $_[1];
-
-            my $directory;
-            if (defined $argfile && -d $argfile) {
-                ($directory, $argfile) = ($argfile, undef);
-            }
-
-            unless (defined $argfile) {
-
-                # find a suitable name to use
-                $file = $opt{s} && $res->filename;
-
-                # if this fails we try to make something from the URL
-                unless ($file) {
-                    $file = ($url->path_segments)[-1];
-                    if (!defined($file) || !length($file)) {
-                        $file = "index";
-                        my $suffix = media_suffix($res->content_type);
-                        $file .= ".$suffix" if $suffix;
-                    }
-                    elsif ($url->scheme eq 'ftp'
-                        || $file =~ /\.t[bg]z$/
-                        || $file =~ /\.tar(\.(Z|gz|bz2?))?$/)
-                    {
-                        # leave the filename as it was
-                    }
-                    else {
-                        my $ct = guess_media_type($file);
-                        unless ($ct eq $res->content_type) {
-
-                            # need a better suffix for this type
-                            my $suffix = media_suffix($res->content_type);
-                            $file .= ".$suffix" if $suffix;
-                        }
-                    }
-                }
-
-               # validate that we don't have a harmful filename now.  The server
-               # might try to trick us into doing something bad.
-                if (!length($file)
-                    || $file
-                    =~ s/([^a-zA-Z0-9_\.\-\+\~])/sprintf "\\x%02x", ord($1)/ge
-                    || $file =~ /^\./)
-                {
-                    die
-                        "Will not save <$url> as \"$file\".\nPlease override file name on the command line.\n";
-                }
-
-                if (defined $directory) {
-                    require File::Spec;
-                    $file = File::Spec->catfile($directory, $file);
-                }
-
-                # Check if the file is already present
-                if (-l $file) {
-                    die
-                        "Will not save <$url> to link \"$file\".\nPlease override file name on the command line.\n";
-                }
-                elsif (-f _) {
-                    die
-                        "Will not save <$url> as \"$file\" without verification.\nEither run from terminal or override file name on the command line.\n"
-                        unless -t;
-                    $shown = 1;
-                    print "Overwrite $file? [y] ";
-                    my $ans = <STDIN>;
-                    unless (defined($ans) && $ans =~ /^y?\n/) {
-                        if (defined $ans) {
-                            print "Ok, aborting.\n";
-                        }
-                        else {
-                            print "\nAborting.\n";
-                        }
-                        exit 1;
-                    }
-                    $shown = 0;
-                }
-                elsif (-e _) {
-                    die "Will not save <$url> as \"$file\".  Path exists.\n";
-                }
-                else {
-                    print "Saving to '$file'...\n";
-                    use Fcntl qw(O_WRONLY O_EXCL O_CREAT);
-                    sysopen(FILE, $file, O_WRONLY | O_EXCL | O_CREAT)
-                        || die "Can't open $file: $!";
-                }
-            }
-            else {
-                $file = $argfile;
-            }
-            unless (fileno(FILE)) {
-                open(FILE, ">", $file) || die "Can't open $file: $!\n";
-            }
-            binmode FILE unless $opt{a};
-            $length   = $res->content_length;
-            $flength  = fbytes($length) if defined $length;
-            $start_t  = time;
-            $last_dur = 0;
-        }
-
-        print FILE $_[0] or die "Can't write to $file: $!\n";
-        $size += length($_[0]);
-
-        if (defined $length) {
-            my $dur = time - $start_t;
-            if ($dur != $last_dur) {    # don't update too often
-                $last_dur = $dur;
-                my $perc = $size / $length;
-                my $speed;
-                $speed = fbytes($size / $dur) . "/sec" if $dur > 3;
-                my $secs_left = fduration($dur / $perc - $dur);
-                $perc = int($perc * 100);
-                my $show = "$perc% of $flength";
-                $show .= " (at $speed, $secs_left remaining)" if $speed;
-                show($show, 1);
-            }
-        }
-        else {
-            show(fbytes($size) . " received");
-        }
-    }
-);
-
-if (fileno(FILE)) {
-    close(FILE) || die "Can't write to $file: $!\n";
-
-    show("");    # clear text
-    print "\r";
-    print fbytes($size);
-    print " of ", fbytes($length) if defined($length) && $length != $size;
-    print " received";
-    my $dur = time - $start_t;
-    if ($dur) {
-        my $speed = fbytes($size / $dur) . "/sec";
-        print " in ", fduration($dur), " ($speed)";
-    }
-    print "\n";
-
-    if (my $mtime = $res->last_modified) {
-        utime time, $mtime, $file;
-    }
-
-    if ($res->header("X-Died") || !$res->is_success) {
-        if (my $died = $res->header("X-Died")) {
-            print "$died\n";
-        }
-        if (-t) {
-            print "Transfer aborted.  Delete $file? [n] ";
-            my $ans = <STDIN>;
-            if (defined($ans) && $ans =~ /^y\n/) {
-                unlink($file) && print "Deleted.\n";
-            }
-            elsif ($length > $size) {
-                print "Truncated file kept: ", fbytes($length - $size),
-                    " missing\n";
-            }
-            else {
-                print "File kept.\n";
-            }
-            exit 1;
-        }
-        else {
-            print "Transfer aborted, $file kept\n";
-        }
-    }
-    exit 0;
-}
-
-# Did not manage to create any file
-print "\n" if $shown;
-if (my $xdied = $res->header("X-Died")) {
-    print "$progname: Aborted\n$xdied\n";
-}
-else {
-    print "$progname: ", $res->status_line, "\n";
-}
-exit 1;
-
-
-sub fbytes {
-    my $n = int(shift);
-    if ($n >= 1024 * 1024) {
-        return sprintf "%.3g MB", $n / (1024.0 * 1024);
-    }
-    elsif ($n >= 1024) {
-        return sprintf "%.3g KB", $n / 1024.0;
-    }
-    else {
-        return "$n bytes";
-    }
-}
-
-sub fduration {
-    use integer;
-    my $secs = int(shift);
-    my $hours = $secs / (60 * 60);
-    $secs -= $hours * 60 * 60;
-    my $mins = $secs / 60;
-    $secs %= 60;
-    if ($hours) {
-        return "$hours hours $mins minutes";
-    }
-    elsif ($mins >= 2) {
-        return "$mins minutes";
-    }
-    else {
-        $secs += $mins * 60;
-        return "$secs seconds";
-    }
-}
-
-
-BEGIN {
-    my @ani = qw(- \ | /);
-    my $ani = 0;
-
-    sub show {
-        my ($mess, $show_ani) = @_;
-        print "\r$mess" . (" " x (75 - length $mess));
-        my $msg = $show_ani ? $ani[$ani++]. "\b" : ' ';
-        print $msg;
-        $ani %= @ani;
-        $shown++;
-    }
-}

package/Binaries/Perl/MacOs/X64/deps/bin/lwp-dump

@@ -1,113 +0,0 @@
-#!/usr/local/opt/perl/bin/perl
-
-use strict;
-use warnings;
-use LWP::UserAgent ();
-use Getopt::Long qw(GetOptions);
-use Encode;
-use Encode::Locale;
-
-GetOptions(\my %opt, 'parse-head', 'max-length=n', 'keep-client-headers',
-    'method=s', 'agent=s', 'request',)
-    || usage();
-
-my $url = shift || usage();
-@ARGV && usage();
-
-sub usage {
-    (my $progname = $0) =~ s,.*/,,;
-    die <<"EOT";
-Usage: $progname [options] <url>
-
-Recognized options are:
-   --agent <str>
-   --keep-client-headers
-   --max-length <n>
-   --method <str>
-   --parse-head
-   --request
-
-EOT
-}
-
-my $ua = LWP::UserAgent->new(
-    parse_head => $opt{'parse-head'} || 0,
-    keep_alive => 1,
-    env_proxy  => 1,
-    agent      => $opt{agent}        || "lwp-dump/$LWP::UserAgent::VERSION ",
-);
-
-my $req = HTTP::Request->new($opt{method} || 'GET' => decode(locale => $url));
-my $res = $ua->simple_request($req);
-$res->remove_header(grep /^Client-/, $res->header_field_names)
-    unless $opt{'keep-client-headers'}
-    or ($res->header("Client-Warning") || "") eq "Internal response";
-
-if ($opt{request}) {
-    $res->request->dump;
-    print "\n";
-}
-
-$res->dump(maxlength => $opt{'max-length'});
-
-__END__
-
-=head1 NAME
-
-lwp-dump - See what headers and content is returned for a URL
-
-=head1 SYNOPSIS
-
-B<lwp-dump> [ I<options> ] I<URL>
-
-=head1 DESCRIPTION
-
-The B<lwp-dump> program will get the resource identified by the URL and then
-dump the response object to STDOUT.  This will display the headers returned and
-the initial part of the content, escaped so that it's safe to display even
-binary content.  The escapes syntax used is the same as for Perl's double
-quoted strings.  If there is no content the string "(no content)" is shown in
-its place.
-
-The following options are recognized:
-
-=over
-
-=item B<--agent> I<string>
-
-Override the user agent string passed to the server.
-
-=item B<--keep-client-headers>
-
-LWP internally generate various C<Client-*> headers that are stripped by
-B<lwp-dump> in order to show the headers exactly as the server provided them.
-This option will suppress this.
-
-=item B<--max-length> I<n>
-
-How much of the content to show.  The default is 512.  Set this
-to 0 for unlimited.
-
-If the content is longer then the string is chopped at the
-limit and the string "...\n(### more bytes not shown)"
-appended.
-
-=item B<--method> I<string>
-
-Use the given method for the request instead of the default "GET".
-
-=item B<--parse-head>
-
-By default B<lwp-dump> will not try to initialize headers by looking at the
-head section of HTML documents.  This option enables this.  This corresponds to
-L<LWP::UserAgent/"parse_head">.
-
-=item B<--request>
-
-Also dump the request sent.
-
-=back
-
-=head1 SEE ALSO
-
-L<lwp-request>, L<LWP>, L<HTTP::Message/"dump">

package/Binaries/Perl/MacOs/X64/deps/bin/lwp-mirror

@@ -1,103 +0,0 @@
-#!/usr/local/opt/perl/bin/perl
-
-# Simple mirror utility using LWP
-
-=head1 NAME
-
-lwp-mirror - Simple mirror utility
-
-=head1 SYNOPSIS
-
- lwp-mirror [-v] [-t timeout] <url> <local file>
-
-=head1 DESCRIPTION
-
-This program can be used to mirror a document from a WWW server.  The
-document is only transferred if the remote copy is newer than the local
-copy.  If the local copy is newer nothing happens.
-
-Use the C<-v> option to print the version number of this program.
-
-The timeout value specified with the C<-t> option.  The timeout value
-is the time that the program will wait for response from the remote
-server before it fails.  The default unit for the timeout value is
-seconds.  You might append "m" or "h" to the timeout value to make it
-minutes or hours, respectively.
-
-Because this program is implemented using the LWP library, it only
-supports the protocols that LWP supports.
-
-=head1 SEE ALSO
-
-L<lwp-request>, L<LWP>
-
-=head1 AUTHOR
-
-Gisle Aas <gisle@aas.no>
-
-=cut
-
-use strict;
-use warnings;
-use LWP::Simple qw(mirror is_success status_message $ua);
-use Getopt::Long qw(GetOptions);
-use Encode;
-use Encode::Locale;
-
-my $progname = $0;
-$progname =~ s,.*/,,;       # use basename only
-$progname =~ s/\.\w*$//;    #strip extension if any
-
-my %opts;
-unless (GetOptions(\%opts, 'h', 'v', 't=i')) {
-    usage();
-}
-
-if ($opts{v}) {
-    require LWP;
-    my $DISTNAME = 'libwww-perl-' . $LWP::VERSION;
-    die <<"EOT";
-This is lwp-mirror version $LWP::Simple::VERSION ($DISTNAME)
-
-Copyright 1995-1999, Gisle Aas.
-
-This program is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-EOT
-}
-
-my $url = decode(locale => shift) or usage();
-my $file = encode(locale_fs => decode(locale => shift)) or usage();
-usage() if $opts{h} or @ARGV;
-
-if ($opts{t}) {
-    if ($opts{t} =~ /^(\d+)([smh])?/) {
-        my $timeout = $1;
-        $timeout *= 60   if ($2 eq "m");
-        $timeout *= 3600 if ($2 eq "h");
-        $ua->timeout($timeout);
-    }
-    else {
-        die "$progname: Illegal timeout value!\n";
-    }
-}
-
-my $rc = mirror($url, $file);
-
-if ($rc == 304) {
-    print STDERR "$progname: $file is up to date\n";
-}
-elsif (!is_success($rc)) {
-    print STDERR "$progname: $rc ", status_message($rc), "   ($url)\n";
-    exit 1;
-}
-exit;
-
-
-sub usage {
-    die <<"EOT";
-Usage: $progname [-options] <url> <file>
-    -v           print version number of program
-    -t <timeout> Set timeout value
-EOT
-}