Qortal/qortal
1
0
Fork 0
mirror of https://github.com/Qortal/qortal.git synced 2025-03-19 05:24:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improved tools/publish-auto-update.pl

Browse Source
This commit is contained in:
catbref 2020-06-03 11:49:49 +01:00
parent bef1828404
commit 50b912e229
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
tools/publish-auto-update.pl
View File

@ -6,16 +6,17 @@ use POSIX;
use Getopt::Std; use Getopt::Std;
sub usage() { sub usage() {
die("usage: $0 [-p api-port] dev-private-key\n"); die("usage: $0 [-p api-port] dev-private-key [short-commit-hash]\n");
} }
my %opt; my %opt;
getopts('p:', \%opt); getopts('p:', \%opt);
usage() unless @ARGV == 1; usage() if @ARGV < 1 || @ARGV > 2;
my $port = $opt{p} || 12391; my $port = $opt{p} || 12391;
my $privkey = shift @ARGV; my $privkey = shift @ARGV;
my $commit_hash = shift @ARGV;
my $git_dir = `git rev-parse --show-toplevel`; my $git_dir = `git rev-parse --show-toplevel`;
die("Cannot determine git top level dir\n") unless $git_dir; die("Cannot determine git top level dir\n") unless $git_dir;
@ -33,18 +34,24 @@ while (<POM>) {
} }
close(POM); close(POM);
# determine git branch # Do we need to determine commit hash?
my $branch_name = ` git symbolic-ref -q HEAD ` unless ($commit_hash) {
$branch_name =~ s|^refs/heads/||; # ${branch_name##refs/heads/} # determine git branch
my $branch_name = ` git symbolic-ref -q HEAD `;
chomp $branch_name;
$branch_name =~ s|^refs/heads/||; # ${branch_name##refs/heads/}
# short-form commit hash on base branch (non-auto-update) # short-form commit hash on base branch (non-auto-update)
my $commit_hash = `git show --no-patch --format=%h`; $commit_hash ||= `git show --no-patch --format=%h`;
die("Can't find commit hash\n") if ! defined $commit_hash; die("Can't find commit hash\n") if ! defined $commit_hash;
chomp $commit_hash; chomp $commit_hash;
printf "Commit hash on '%s' branch: %s\n", $branch_name, $commit_hash; printf "Commit hash on '%s' branch: %s\n", $branch_name, $commit_hash;
} else {
printf "Using given commit hash: %s\n", $commit_hash;
}
# build timestamp / commit timestamp on base branch # build timestamp / commit timestamp on base branch
my $timestamp = `git show --no-patch --format=%ct`; my $timestamp = `git show --no-patch --format=%ct ${commit_hash}`;
die("Can't determine commit timestamp\n") if ! defined $timestamp; die("Can't determine commit timestamp\n") if ! defined $timestamp;
$timestamp *= 1000; # Convert to milliseconds $timestamp *= 1000; # Convert to milliseconds