mirror of
https://github.com/joncampbell123/dosbox-x.git
synced 2025-05-08 19:32:39 +08:00
60 lines
1.4 KiB
Perl
Executable File
60 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
$project = 'dosbox-x';
|
|
|
|
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);
|
|
|
|
#my $filename = $project."-rev-".sprintf("%08u",$lcrev)."-src.tar.bz2";
|
|
my $pwd = `pwd`; chomp $pwd;
|
|
my $what = '';
|
|
|
|
my $filename = "../".($as ne "" ? $as : $project)."-$lcdate-commit-$lcommit-src.tar";
|
|
die unless -f "$filename.xz";
|
|
$what .= "$filename.xz ";
|
|
|
|
$x = system("scp -p -P 52222 $what root\@192.168.250.1:/mnt/main/jmc-storage/docs/Projects/DOSBox-X/");
|
|
|