####unplad file/dir
# perl /home/xiangyang/Desktop/autorun.pl /home/xiangyang/cps_data_final/pneumo-typer-v1.0.2.tar.gz
####delete file/dir
# perl /home/xiangyang/Desktop/远程控制与开机/autorun.pl d circos使用
#upload_file: /var/www/website/temp_dir
#upload_file website: https://www.microbialgenomic.cn/temp_dir/

use strict;
use warnings;
use File::Basename qw<basename dirname>;
use File::Spec;



my $transfer_file;
my $nfile;
my $delete = $ARGV[0];


if ($delete ne "d"){

    #upload file in tengxunyun
    $transfer_file = File::Spec->rel2abs($ARGV[0]); 
    $nfile = $transfer_file;
    $nfile =~ s/.*\///g;

    system("sshpass -p 'Lxy_13296570632' scp -P 13187 $transfer_file ubuntu\@115.236.153.172:/home/ubuntu") if -f $transfer_file;
    system("sshpass -p 'Lxy_13296570632' scp -P 13187 -r $transfer_file ubuntu\@115.236.153.172:/home/ubuntu") if -d $transfer_file;
    #sshpass -p 'Lxy_13296570632' ssh ubuntu@115.236.153.172 -p 13187

    my $cmd = "echo 'Lxy_13296570632' | sudo -S mv /home/ubuntu/$nfile -t /var/www/website/temp_dir";
    system("sshpass -p 'Lxy_13296570632' ssh -p 13187 ubuntu\@115.236.153.172 '$cmd'");

    print "upload file/dir ok\n";

}else{

    #delete file in tengxunyun
    $nfile = $ARGV[1]; #provide file/dir name which is deleted
    my $cmd = "echo 'Lxy_13296570632' | sudo -S rm -rf /var/www/website/temp_dir/$nfile";
    system("sshpass -p 'Lxy_13296570632' ssh -p 13187 ubuntu\@115.236.153.172 '$cmd'");
    print "delete file/dir ok\n";

}