UNLOZE/SM-SteamWorks
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Package directly in the package_script.pl file.

Browse Source
This commit is contained in:
Kyle Sanderson
2015-01-18 16:33:53 -08:00
parent 1e5309f978
commit aaa8e5de78
1 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
package_script.pl
+18 -5
View File
@@ -4,6 +4,8 @@
use strict; use strict;
use Cwd; use Cwd;
use File::Basename; use File::Basename;
use File::Copy;
use File::Path;
use Net::FTP; use Net::FTP;
my ($ftp_file, $ftp_host, $ftp_user, $ftp_pass, $ftp_path, $tag); my ($ftp_file, $ftp_host, $ftp_user, $ftp_pass, $ftp_path, $tag);
@@ -28,32 +30,43 @@ chdir($path);
require 'helpers.pm'; require 'helpers.pm';
my ($version); my ($version, $ext);
$version .= '-git' . Build::GitRevNum('.'); $version .= '-git' . Build::GitRevNum('.');
# Append OS to package version # Append OS to package version
if ($^O eq "darwin") if ($^O eq "darwin")
{ {
$ext = ".dylib";
$version .= '-mac'; $version .= '-mac';
} }
elsif ($^O =~ /MSWin/) elsif ($^O =~ /MSWin/)
{ {
$ext = ".dll";
$version .= '-windows'; $version .= '-windows';
} }
elsif ($^O eq "linux")
{
$ext = ".so";
$version .= '-linux';
}
else else
{ {
$version .= '-' . $^O; $version .= '-' . $^O;
} }
#Switch to the output folder. #Switch to the output folder.
chdir(Build::PathFormat('../../OUTPUT/package')); # chdir(Build::PathFormat('../../OUTPUT/package'));
my ($dirlist, $filename, $cmd); my ($dirlist, $filename, $cmd);
$dirlist = "addons"; $dirlist = "addons";
$filename = 'SteamWorks-' . $version; $filename = 'SteamWorks' . $version;
mkpath("addons/sourcemod/extensions");
copy("build/Extension/SteamWorks.ext/SteamWorks.ext" . $ext, "addons/sourcemod/extensions/SteamWorks.ext" . $ext) or die $!;
if ($^O eq "linux") if ($^O eq "linux")
{ {
$filename .= '.tgz'; $filename .= '.tar.gz';
$cmd = "tar zcvf $filename $dirlist"; $cmd = "tar zcvf $filename $dirlist";
} }
else else
@@ -69,7 +82,7 @@ $ftp_path .= "/SteamWorks";
my ($ftp); my ($ftp);
$ftp = Net::FTP->new($ftp_host, Debug => 0, Passive => 0) $ftp = Net::FTP->new($ftp_host, Debug => 0, Passive => 1)
or die "Cannot connect to host $ftp_host: $@"; or die "Cannot connect to host $ftp_host: $@";
$ftp->login($ftp_user, $ftp_pass) $ftp->login($ftp_user, $ftp_pass)