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

Added stub for backup routine

Browse source
This commit is contained in:
Tracey Clark 2019-03-14 19:58:36 -05:00
commit 45a8527882
1 changed files with 35 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

44
update-gitea.pl
View file

@ -12,6 +12,8 @@ use strict;
use warnings;
#use LWP::Simple;
use LWP::UserAgent;
use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
# use Compress::Bzip2 qw(:all :constant :utilities :gzip); # cant get output
use Data::Dumper;
use JSON;
@ -19,11 +21,10 @@ use JSON;
### The user must set these variables ###
# SET email address
my $email='tclark77@tlcnet.info';
my $filetype='-linux-amd64.xz';
# gitea is hosted on github
# GET /repos/go-gitea/gitea/releases/latest
# https://api.github.com/repos/go-gitea/gitea/releases/latest
=json
@ -38,23 +39,45 @@ $VAR1 = {
=cut
# my $backup_zip = '~/gitea.zip'; # HEREHERE may need to change
my $gitea_bin = '/home/gitea/bin/gitea';
my $gitea_current_version_string = `$gitea_bin --version`;
my $gitea_current_version;
if ( $gitea_current_version_string =~ m/ion\ (\w+)\ b/ ) {
$gitea_current_version = $1;
}
printf("The version of gitea that is running is \"$gitea_current_version\"\n");
# Backup the current binary
my $gitea_bin_backup = '/home/gitea/bin/gitea.' . $gitea_current_version . '.bz2';
printf("Gitea bin backup will be $gitea_bin_backup\n");
printf("!! Input is $gitea_bin\n and output is $gitea_bin_backup\n");
=example
# IO::File mode
print($z $string);
printf($z $format, $string);
close($z);
=cut
my $input = $gitea_bin;
my $temp_out = '/home/gitea/tempout.bz';
my $bz = new IO::Compress::Bzip2 $temp_out
or die "bzip2 failed: $Bzip2Error\n";
# bzip2 $input => "$gitea_bin_backup"
# or die "bzip2 failed: $Bzip2Error\n"; # This works, but writes garbage to end of filename
# need to do in OO way
# https://metacpan.org/pod/IO::Compress::Bzip2
print $bz $gitea_bin; # This writes the filename as string to the bz
$bz->close();
my $baseURL = q{https://github.com/go-gitea/gitea/};
my $latestURL = q{https://api.github.com/repos/go-gitea/gitea/releases/latest};
# https://hubpages.com/technology/Use-Perl-to-access-REST-API
# Spin up the browser object (via LWP::UserAgent)
my $ua = LWP::UserAgent->new(
ssl_opts => { verify_hostname => 0 }, # not worried about SSL certs
#ssl_opts => { verify_hostname => 0 }, # not worried about SSL certs
cookie_jar => {}, # keep cookies in RAM but not persistent between sessions
);
@ -72,19 +95,22 @@ printf("The latest gitea version is $tag\n");
if ( $tag gt $gitea_current_version ) {
printf("Proceeding with update\n");
my $dl_filename='gitea-' . $tag . $filetype;
printf("Downloaded filename will be $dl_filename\n");
}
# Get the download_url from the array
# Download version specified
# Stop service
# Backup current gitea mv
# $gitea_bin
# Build URL ex
# https://dl.gitea.io/gitea/1.7.3/gitea-1.7.3-linux-amd64.xz
# https://dl.gitea.io/gitea/$version/gitea-$version-linux-amd64.xz
# GITEA_XZ=gitea-$version-linux-amd64.xz
# wget