125 lines
3.1 KiB
Perl
125 lines
3.1 KiB
Perl
#!/perl -w
|
|
use warnings;
|
|
use File::Slurp qw(:std);
|
|
use File::stat;
|
|
use File::Path;
|
|
use Archive::Zip; # imports
|
|
# use IO::Socket::SSL;
|
|
use LWP::UserAgent;
|
|
use Data::Printer;
|
|
use Crypt::SSLeay;
|
|
use Net::SSL;
|
|
use Mojo::UserAgent;
|
|
use JSON;
|
|
|
|
$ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS} = "Net::SSL";
|
|
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
|
|
|
|
my $delzip = 0;
|
|
my @folders = (
|
|
'D:\\vsc\\vs-codium\\',
|
|
'D:\\vsc\\vs-codium-local\\'
|
|
);
|
|
|
|
for my $f ( @folders ) {
|
|
mkdir $f unless -d $f;
|
|
}
|
|
|
|
my $ua = Mojo::UserAgent->new();
|
|
$ua->max_redirects(5);
|
|
my $res = $ua->insecure(1)->get('https://github.com/VSCodium/vscodium/releases')->result->body;
|
|
# write_file('test.html', $res);
|
|
|
|
# my $res = read_file('test.html');
|
|
my $downloadfolder = 'D:\\Downloads\\';
|
|
my $filename = 'vscodium.zip';
|
|
|
|
my @url = $res =~ /"(https:\/\/.*win32-x64.*zip?)"/g;
|
|
print "downloade VS-Codium Version: $url[0]\n";
|
|
|
|
if ( -e $downloadfolder.$filename ) {
|
|
print "entferne $downloadfolder$filename\n";
|
|
unlink("$downloadfolder.$filename");
|
|
}
|
|
|
|
my $tx = $ua->insecure(1)->get( $url[0] );
|
|
$tx->res->content->asset->move_to( $downloadfolder.$filename);
|
|
|
|
# löschen aller Cached Dateien und Unterordner
|
|
my @cacheddir = qw(Cache GPUCache CachedData CachedData-x64);
|
|
|
|
|
|
if ( -e $downloadfolder.$filename ) {
|
|
for my $fold ( @folders ) {
|
|
opendir (my $dh, $fold);
|
|
print "$fold --> ";
|
|
my @fol = readdir $dh;
|
|
|
|
my $test = 1;
|
|
if ( -e $fold.'VSCodium.exe' ) {
|
|
$test = unlink($fold.'VSCodium.exe');
|
|
}
|
|
|
|
if ( $test == 1 ) {
|
|
for my $d ( @fol ) {
|
|
if ( $d =~ /^\.|^\.\./ ) {
|
|
next;
|
|
}
|
|
|
|
if ( -d "$fold$d" ) {
|
|
if ( $d ne 'data' ) {
|
|
rmtree("$fold$d");
|
|
} else {
|
|
# Cache löschen
|
|
print "leere";
|
|
for my $cdir ( @cacheddir ) {
|
|
print " $cdir";
|
|
rmtree( "$fold$d\\user-data\\$cdir", {keep_root => 1} );
|
|
}
|
|
}
|
|
} else{
|
|
unlink("$fold$d");
|
|
}
|
|
}
|
|
print "--> geloescht, Userdaten behalten\n";
|
|
$delzip++;
|
|
}
|
|
}
|
|
|
|
my $obj = Archive::Zip->new(); # new instance
|
|
my $status = $obj->read("$downloadfolder$filename"); # read file contents
|
|
|
|
if ($status != 0) {
|
|
die('Error in file!');
|
|
} else {
|
|
if ( scalar @folders == $delzip ) {
|
|
for my $f ( @folders ) {
|
|
print "entpacke neue Version in $f\n";
|
|
$obj->extractTree(undef, $f); # extract files
|
|
}
|
|
unlink("$downloadfolder$filename");
|
|
print "zip datei von VSCode gelöscht\n";
|
|
} else {
|
|
print "zip nicht gelöscht da nicht alle Ordner verarbeitet wurden\n";
|
|
}
|
|
}
|
|
} else {
|
|
print "keine neue Version gefunden\n";
|
|
}
|
|
|
|
for my $fold ( @folders ) {
|
|
my $prodjson = $fold.'\\resources\\app\\product.json';
|
|
# "serviceUrl": "https://marketplace.visualstudio.com/_apis/public/gallery",
|
|
# "itemUrl": "https://marketplace.visualstudio.com/items",
|
|
if ( -e $prodjson ) {
|
|
my $pro = decode_json(read_file($prodjson));
|
|
$pro->{extensionsGallery}->{serviceUrl} = "https://marketplace.visualstudio.com/_apis/public/gallery";
|
|
$pro->{extensionsGallery}->{itemUrl} = "https://marketplace.visualstudio.com/items";
|
|
write_file($prodjson, to_json($pro, { pretty => 1}) );
|
|
}
|
|
}
|
|
|
|
system("pause");
|
|
|
|
1;
|