UNLOZE/sourcemod
10
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Upload sourcemod-latest-<os> text file when packaging.

Browse Source
This commit is contained in:
Nicholas Hastings 2015-10-26 11:10:27 -07:00
parent 6042518691
commit beba03292a
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tools/buildbot/package.pl
View File

@ -4,6 +4,7 @@ use strict;
use Cwd; use Cwd;
use File::Basename; use File::Basename;
use File::stat; use File::stat;
use File::Temp qw/ tempfile :seekable/;
use Net::FTP; use Net::FTP;
use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ; use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
use Time::localtime; use Time::localtime;
@ -131,6 +132,20 @@ else
system("zip -r $filename addons cfg"); system("zip -r $filename addons cfg");
} }
my ($tmpfh, $tmpfile) = tempfile();
print $tmpfh $filename;
$tmpfh->seek( 0, SEEK_END );
my $latest = "sourcemod-latest-";
if ($^O eq "darwin") {
$latest .= "mac";
}
elsif ($^O =~ /MSWin/) {
$latest .= "windows";
}
else {
$latest .= $^O;
}
my ($major,$minor) = ($version =~ /^(\d+)\.(\d+)/); my ($major,$minor) = ($version =~ /^(\d+)\.(\d+)/);
$ftp_path .= "/$major.$minor"; $ftp_path .= "/$major.$minor";
@ -151,6 +166,8 @@ if ($ftp_path ne '')
$ftp->binary(); $ftp->binary();
$ftp->put($filename) $ftp->put($filename)
or die "Cannot drop file $filename ($ftp_path): " . $ftp->message . "\n"; or die "Cannot drop file $filename ($ftp_path): " . $ftp->message . "\n";
$ftp->put($tmpfile, $latest)
or die "Cannot drop file $latest ($ftp_path): " . $ftp->message . "\n";
$ftp->close(); $ftp->close();