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 |