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

Merge branch 'master' of ssh://gitea.tlcnet.info:227/tracey/shell-scripts

Browse source
This commit is contained in:
Tracey Clark 2019-04-27 12:56:33 -05:00
commit 501e85f277
2 changed files with 49 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
update-gitea.pl
View file

@ -33,7 +33,8 @@ unless ( defined $gitea_current_version_string ) {
}
my $gitea_current_version;
if ( $gitea_current_version_string =~ m/ion\ (\d+\.\d+\.\d*)\s/ ) {
if ( $gitea_current_version_string =~ m/ion\ (\d+\.\d+\.\d*)\s+b/ ) {
#if ( $gitea_current_version_string =~ m/ion\ (\d+\.\d+\.\d*)\s/ ) {
$gitea_current_version = $1;
printf("Current version of gitea that is installed is $1\n");
}
@ -52,6 +53,22 @@ unless ( defined $gitea_current_version ) {
}
# 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";
backup_bin( \%binary_file );
my $baseURL = q{https://github.com/go-gitea/gitea/};