TraceyC/shell-scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Finished download sub and code to extract binary from xz file

Browse source
This commit is contained in:
Tracey Clark 2019-04-18 21:12:45 -05:00
commit 64d51c0bed
1 changed files with 57 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

90
update-gitea.pl
View file

@ -12,7 +12,7 @@ use strict;
use warnings; use warnings;
#use LWP::Simple; #use LWP::Simple;
use LWP::UserAgent; use LWP::UserAgent;
use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ; #use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
use Data::Dumper; use Data::Dumper;
use JSON; use JSON;
@ -23,8 +23,10 @@ my $email='tclark77@tlcnet.info';
my $filetype='-linux-amd64.xz'; my $filetype='-linux-amd64.xz';
# https://api.github.com/repos/go-gitea/gitea/releases/latest # https://api.github.com/repos/go-gitea/gitea/releases/latest
my $gitea_bin = '/home/gitea/bin/gitea'; my $gitea_bin_dir = '/home/gitea/bin/';
my $gitea_bin = $gitea_bin_dir . '/gitea';
my $gitea_current_version_string = `$gitea_bin --version`; my $gitea_current_version_string = `$gitea_bin --version`;
my $alphanum_ver = 0;
unless ( defined $gitea_current_version_string ) { unless ( defined $gitea_current_version_string ) {
die "ERROR: Unable to get the version of the gitea binary: $!"; die "ERROR: Unable to get the version of the gitea binary: $!";
@ -38,6 +40,8 @@ if ( $gitea_current_version_string =~ m/ion\ (\d+\.\d+\.\d*)\s/ ) {
elsif ( $gitea_current_version_string =~ m/ion\ (\d+\d+\w*)\s/ ) { elsif ( $gitea_current_version_string =~ m/ion\ (\d+\d+\w*)\s/ ) {
$gitea_current_version = $1; $gitea_current_version = $1;
printf("Current version of gitea that is installed is $1\n"); printf("Current version of gitea that is installed is $1\n");
$alphanum_ver = 1;
print("!! Alpha num is true\n");
} }
my %binary_file = ( my %binary_file = (
input => $gitea_bin, input => $gitea_bin,
@ -65,30 +69,35 @@ my $latest_release_hash = decode_json($resp->content);
# printf("!! Print the json response if we have one:\n"); # printf("!! Print the json response if we have one:\n");
# printf Dumper $latest_release_hash; # printf Dumper $latest_release_hash;
# In case we need to deref later
#my %latest_release_data = %$latest_release_hash;
my $tag = $latest_release_hash->{tag_name}; # Works my $tag = $latest_release_hash->{tag_name}; # Works
printf("The latest gitea version is $tag\n"); printf("The latest gitea version is $tag\n");
substr($tag, 0, 1, '');
print("!! Tag is now $tag\n");
my $download_filename='gitea-' . $tag . $filetype;
printf("Downloaded filename will be $download_filename\n");
# gitea-1.7.6-linux-amd64.xz
my $release_id = $latest_release_hash->{id}; # Works my $release_id = $latest_release_hash->{id}; # Works
printf("The release id for the latest gitea version is $release_id\n"); printf("The release id for the latest gitea version is $release_id\n");
# Assets URL is
# GET /repos/:owner/:repo/releases/:release_id/assets
# Single asset URL is
# GET /repos/:owner/:repo/releases/assets/:asset_id
# https://api.github.com/repos/go-gitea/gitea/releases/16739869/assets if ( $tag gt $gitea_current_version || $alphanum_ver == 1 ) {
my $assetsURL = 'https://api.github.com/repos/go-gitea/gitea/releases/' . $release_id . '/assets';
# printf("!!! Dump of assets URL");
# printf("!!! $assetsURL\n");
if ( $tag gt $gitea_current_version ) {
printf("Proceeding with update\n"); printf("Proceeding with update\n");
download_bin($tag); my $download_url = get_download_url( $download_filename, $release_id );
print("Downloading the compressed binary\n");
print("Download URL we got from the sub is $download_url\n");
`wget -P $gitea_bin_dir $download_url`;
my $xz_file = $gitea_bin_dir . $download_filename;
print("!!! xz file is $xz_file\n");
=devel
# Because doing this in perl would be a memory hog
`xz -d --keep /home/gitea/bin/$download_filename`
# rename unpacked binary to gitea or symlink??
# Check if we can start gitea
# If can start then end
# If no start restore the backup
# Notifications
=cut
} }
@ -114,27 +123,42 @@ sub backup_bin {
my $gitea_bin_backup = '/home/gitea/bin/gitea.' . $gitea_current_version . '.bz2'; my $gitea_bin_backup = '/home/gitea/bin/gitea.' . $gitea_current_version . '.bz2';
printf("Gitea bin backup will be $gitea_bin_backup\n"); printf("Gitea bin backup will be $gitea_bin_backup\n");
=devel
my $status = bzip2 $input => $gitea_bin_backup
or die "bzip2 failed: $Bzip2Error\n";
printf("!! Status of backup operation is $status\n");
#$bz->close();
=cut
return; return;
} }
sub download_bin { sub get_download_url {
my $dl_tag = shift; my ($dl_filename, $rel_id) = @_;
my $dl_filename='gitea-' . $dl_tag . $filetype; my $dl_url;
printf("Downloaded filename will be $dl_filename\n"); print("Download filename in the sub is $dl_filename\n");
# Get the download_url from the array # Get the download_url from the array
my $assetsURL = 'https://api.github.com/repos/go-gitea/gitea/releases/' . $release_id . '/assets';
# printf("!!! Dump of assets URL");
# printf("!!! $assetsURL\n");
# Download version specified\ my $asset_resp = $ua->get($assetsURL);
# $gitea_bin my $asset_resp_array_ref = decode_json($asset_resp->content);
# wget
# unxz $GITEA_XZ # printf("!! Print the json response for the assets:\n");
# printf Dumper $asset_resp_array_ref;
# Array of hashes
foreach my $asset_ref (@{$asset_resp_array_ref}) {
printf("!! Print the name\n");
# printf Dumper $asset_ref;
#print $asset_ref->{name} . "\n";
if ( $asset_ref->{name} eq $dl_filename ) {
print ("Yay we have a match :D and it is \n");
print $asset_ref->{name} . "\n";
$dl_url = $asset_ref->{browser_download_url};
print("!! The download url is\n $dl_url \n");
return $dl_url;
}
unless ( defined $dl_url ) {
print("ONOES we have no download URL!");
}
}
print("The download URL returning from sub is $dl_url\n");
return; return;
} }