javonet-nodejs-sdk 2.1.1 → 2.1.2

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

@@ -1,113 +0,0 @@
-#!/usr/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/Linux/X64/deps/bin/lwp-mirror

@@ -1,103 +0,0 @@
-#!/usr/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
-}