mirror of
https://github.com/joncampbell123/dosbox-x.git
synced 2025-05-07 02:16:02 +08:00
55 lines
1.2 KiB
Perl
Executable File
55 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use File::Basename qw<dirname>;
|
|
|
|
$branch = `git branch | grep '^\*' | sed -e 's/^\* //'`; chomp $branch;
|
|
die if $branch eq "";
|
|
|
|
if (!open(S,"git --no-pager log --max-count=1 |")) { exit 1; }
|
|
my $lcommit = "x";
|
|
my $i,$lcdate = "unknown";
|
|
foreach my $line (<S>) {
|
|
chomp $line;
|
|
|
|
if ($line =~ m/^commit +/) {
|
|
$lcommit = lc($');
|
|
$lcommit =~ s/ +$//;
|
|
}
|
|
else {
|
|
my @nv = split(/: +/,$line);
|
|
my $value = $nv[1];
|
|
my $name = $nv[0];
|
|
|
|
if ($name =~ m/^Date$/i) {
|
|
# Fri Apr 15 08:51:32 2011 -0700
|
|
# 0 1 2 3 4 5
|
|
my @b = split(/ +/,$value);
|
|
|
|
$mon = lc($b[1]);
|
|
$day = $b[2];
|
|
$time = $b[3];
|
|
$year = $b[4];
|
|
$mon = 1 if $mon eq "jan";
|
|
$mon = 2 if $mon eq "feb";
|
|
$mon = 3 if $mon eq "mar";
|
|
$mon = 4 if $mon eq "apr";
|
|
$mon = 5 if $mon eq "may";
|
|
$mon = 6 if $mon eq "jun";
|
|
$mon = 7 if $mon eq "jul";
|
|
$mon = 8 if $mon eq "aug";
|
|
$mon = 9 if $mon eq "sep";
|
|
$mon = 10 if $mon eq "oct";
|
|
$mon = 11 if $mon eq "nov";
|
|
$mon = 12 if $mon eq "dec";
|
|
$mon = $mon+0;
|
|
$date = sprintf("%04u%02u%02u",$year+0,$mon,$day+0);
|
|
$time =~ s/://g;
|
|
$lcdate = $date."-".$time;
|
|
}
|
|
}
|
|
}
|
|
close(S);
|
|
|
|
print "$lcdate-$lcommit-$branch\n";
|
|
|