zyppe/CheckUpdate.pl

CheckUpdate.pl · 1.2 KiB · Perl Raw

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

use REST::Client;
use Perl::Version;
use File::Which;
use JSON::MaybeXS;

die "No opengist\n" unless which 'opengist';
die "No forgejo\n"  unless which 'forgejo';

my $gversion = Perl::Version->new( substr `opengist version`, 9 );
my $gurl = "https://api.github.com/repos/thomiceli/opengist/releases/latest";
my $gh   = REST::Client->new();
$gh->GET( $gurl, { "accept" => "application/vnd.github+json" } );
my $gcontent  = decode_json $gh->responseContent();
my $ngversion = Perl::Version->new( $gcontent->{'name'} );
my $gdurl;
my $gname;

if ( $gversion < $ngversion ) {
    `systemctl stop opengist`;
    my @assets = @{ $gcontent->{'assets'} };
    foreach my $assets (@assets) {
        if ( $assets->{'name'} =~ /linux-amd64/ ) {
            $gname = $assets->{'name'};
            $gdurl = $assets->{'browser_download_url'};
        }
    }
    `aria2c $gdurl`;
    `tar xvf $gname`;
    `cp opengist/opengist /usr/local/bin/opengist -v`;
    `systemctl restart opengist`;
    `rm -v $gname`;
    say "Updated opengist!";
}
else{
    say "No need update opengist!"
}

my @fout     = split( / /, `forgejo -v` );
my $fversion = substr $fout[5], 0, -1;

1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4	use v5.10;
5
6	use REST::Client;
7	use Perl::Version;
8	use File::Which;
9	use JSON::MaybeXS;
10
11	die "No opengist\n" unless which 'opengist';
12	die "No forgejo\n" unless which 'forgejo';
13
14	my $gversion = Perl::Version->new( substr `opengist version`, 9 );
15	my $gurl = "https://api.github.com/repos/thomiceli/opengist/releases/latest";
16	my $gh = REST::Client->new();
17	$gh->GET( $gurl, { "accept" => "application/vnd.github+json" } );
18	my $gcontent = decode_json $gh->responseContent();
19	my $ngversion = Perl::Version->new( $gcontent->{'name'} );
20	my $gdurl;
21	my $gname;
22
23	if ( $gversion < $ngversion ) {
24	`systemctl stop opengist`;
25	my @assets = @{ $gcontent->{'assets'} };
26	foreach my $assets (@assets) {
27	if ( $assets->{'name'} =~ /linux-amd64/ ) {
28	$gname = $assets->{'name'};
29	$gdurl = $assets->{'browser_download_url'};
30	}
31	}
32	`aria2c $gdurl`;
33	`tar xvf $gname`;
34	`cp opengist/opengist /usr/local/bin/opengist -v`;
35	`systemctl restart opengist`;
36	`rm -v $gname`;
37	say "Updated opengist!";
38	}
39	else{
40	say "No need update opengist!"
41	}
42
43	my @fout = split( / /, `forgejo -v` );
44	my $fversion = substr $fout[5], 0, -1;
45