Server IP : 195.201.23.43 / Your IP : 18.222.97.243 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/virtual-server/ |
Upload File : |
#!/usr/bin/perl =head1 download-s3-file.pl Downloads a single file from an S3 bucket. This command downloads a single file from Amazon's S3 service to your Virtualmin system. The login and password for S3 must be set using the C<--access-key> and C<--secret-key> flags, unless defaults have been set in the Virtualmin configuration. The C<--bucket> flag must be given to specify the bucket containing the file, the C<--dest> flag to choose the local file to write, and the C<--file> flag to set the source filename. =cut package virtual_server; if (!$module_name) { $main::no_acl_check++; $ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin"; $ENV{'WEBMIN_VAR'} ||= "/var/webmin"; if ($0 =~ /^(.*)\/[^\/]+$/) { chdir($pwd = $1); } else { chop($pwd = `pwd`); } $0 = "$pwd/download-s3-file.pl"; require './virtual-server-lib.pl'; $< == 0 || die "download-s3-file.pl must be run as root"; } &require_mail(); # Parse command-line args $owner = 1; while(@ARGV > 0) { local $a = shift(@ARGV); if ($a eq "--dest") { $dest = shift(@ARGV); } elsif ($a eq "--bucket") { $bucket = shift(@ARGV); } elsif ($a eq "--file") { $file = shift(@ARGV); } elsif ($a eq "--access-key") { $akey = shift(@ARGV); } elsif ($a eq "--secret-key") { $skey = shift(@ARGV); } else { &usage("Unknown parameter $a"); } } ($akey, $skey, $iam) = &lookup_s3_credentials($akey, $skey); $iam || $akey || &usage("Missing --access-key parameter"); $iam || $skey || &usage("Missing --secret-key parameter"); $dest || &usage("Missing --dest parameter"); $file || &usage("Missing --file parameter"); if (-d $dest) { $dest = $dest."/".$file; } $bucket || &usage("Missing --bucket parameter"); # Try the download $err = &s3_download($akey, $skey, $bucket, $file, $dest); if ($err) { print "ERROR: $err\n"; exit(1); } else { @st = stat($dest); print "OK: Downloaded $bucket/$file size $st[7] bytes\n"; } sub usage { print "$_[0]\n\n" if ($_[0]); print "Downloads a single file from an S3 bucket.\n"; print "\n"; print "virtualmin download-s3-file [--access-key key]\n"; print " [--secret-key key]\n"; print " --dest local-file\n"; print " --bucket name\n"; print " [--file remote-file]\n"; exit(1); }Private