Permalink
Browse files

Upload amxmodx-latest-<package>-<os> text file when packaging. (#585)

  • Loading branch information...
Arkshine committed Sep 14, 2018
1 parent 7e23047 commit ac64ef041bd7751ba841bf73bcb9fc025a5ef000
Showing with 14 additions and 0 deletions.
  1. +14 −0 support/buildbot/package.pl
@@ -5,6 +5,7 @@
use Cwd;
use File::Basename;
use File::stat;
use File::Temp qw/ tempfile :seekable/;
use Net::FTP;
use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
use Time::localtime;
@@ -126,17 +127,30 @@
$ftp->binary();
for ($i = 0; $i <= $#packages; $i++) {
my ($filename);
my ($latest);
if ($^O eq "linux") {
$filename = "amxmodx-$version-" . $packages[$i] . "-linux.tar.gz";
$latest = "amxmodx-latest-" . $packages[$i] . "-linux";
} elsif ($^O eq "darwin") {
next if ($packages[$i] ~~ @mac_exclude);
$filename = "amxmodx-$version-" . $packages[$i] . "-mac.zip";
$latest = "amxmodx-latest-" . $packages[$i] . "-mac";
} else {
$filename = "amxmodx-$version-" . $packages[$i] . "-windows.zip";
$latest = "amxmodx-latest-" . $packages[$i] . "-windows";
}
my ($tmpfh, $tmpfile) = tempfile();
print $tmpfh $filename;
$tmpfh->seek( 0, SEEK_END );
print "Uploading $filename...\n";
$ftp->put($filename)
or die "Cannot drop file $filename ($ftp_path): " . $ftp->message . "\n";
print "Uploading $latest...\n";
$ftp->put($tmpfile, $latest)
or die "Cannot drop file $latest ($ftp_path): " . $ftp->message . "\n";
}
$ftp->close();

0 comments on commit ac64ef0

Please sign in to comment.