Add semi-proper AMBuild packaging.

buildbot/PackageScript

@@ -0,0 +1,31 @@
+# vim: set ts=8 sts=2 sw=2 tw=99 et ft=python: 
+import os
+
+builder.SetBuildFolder('package')
+
+folder_list = [
+  'addons/sourcemod/extensions',
+  'addons/sourcemod/scripting',
+  'addons/sourcemod/scripting/include',
+]
+
+# Create the distribution folder hierarchy.
+folder_map = {}
+for folder in folder_list:
+  norm_folder = os.path.normpath(folder)
+  folder_map[folder] = builder.AddFolder(norm_folder)
+
+for extension in SteamWorks.extensions:
+  builder.AddCopy(extension.binary, folder_map['addons/sourcemod/extensions'])
+
+# Do all straight-up file copies from the source tree.
+def CopyFiles(src, dest, files):
+  if not dest:
+    dest = src
+  dest_entry = folder_map[dest]
+  for source_file in files:
+    source_path = os.path.join(builder.sourcePath, src, source_file)
+    builder.AddCopy(source_path, dest_entry)
+
+CopyFiles('Pawn', 'addons/sourcemod/scripting', ['swag.sp'])
+CopyFiles('Pawn/includes', 'addons/sourcemod/scripting/include', ['SteamWorks.inc'])

buildbot/helpers.pm

@@ -0,0 +1,174 @@
+#!/usr/bin/perl
+
+use strict;
+use Cwd;
+
+package Build;
+
+our $SVN = "/usr/bin/svn";
+our $SVN_USER = 'dvander';
+our $SVN_ARGS = '';
+
+sub GitRevNum
+{
+	my ($path) = (@_);
+	my ($cd, $text, $rev);
+
+	$cd = Cwd::cwd();
+	chdir($path);
+	$text = `git rev-list --count HEAD`;
+	chdir($cd);
+
+	chomp $text;
+	if ($text =~ /^(\d+)/) {
+		return $1;
+	}
+
+	return 0;
+}
+
+sub HgRevNum
+{
+	my ($path) = (@_);
+	my ($cd, $text, $rev);
+
+	$cd = Cwd::cwd();
+	chdir($path);
+	$text = `hg identify -n`;
+	chdir($cd);
+
+	chomp $text;
+	if ($text =~ /^(\d+)/)
+	{
+		return $1;
+	}
+
+	return 0;
+}
+
+sub SvnRevNum
+{
+	my ($str)=(@_);
+			
+	my $data = Command('svnversion -c ' . $str);
+	if ($data =~ /(\d+):(\d+)/)
+	{
+		return $2;
+	} elsif ($data =~ /(\d+)/) {
+		return $1;
+	} else {
+		return 0;
+	}
+}
+
+sub ProductVersion
+{
+	my ($file) = (@_);
+	my ($version);
+	open(FILE, $file) or die "Could not open $file: $!\n";
+	$version = <FILE>;
+	close(FILE);
+	chomp $version;
+	return $version;
+}
+
+sub Delete
+{
+	my ($str)=(@_);
+	if ($^O =~ /MSWin/)
+	{
+		Command("del /S /F /Q \"$str\"");
+		Command("rmdir /S /Q \"$str\"");
+	} else {
+		Command("rm -rf $str");
+	}
+	return !(-e $str);
+}
+
+sub Copy
+{
+	my ($src,$dest)=(@_);
+	if ($^O =~ /MSWin/)
+	{
+		Command("copy \"$src\" \"$dest\" /y");
+	} else {
+		Command("cp \"$src\" \"$dest\"");
+	}
+	return (-e $dest);
+}
+
+sub Move
+{
+	my ($src,$dest)=(@_);
+	if ($^O =~ /MSWin/)
+	{
+		Command("move \"$src\" \"$dest\"");
+	} else {
+		Command("mv \"$src\" \"$dest\"");
+	}
+	return (-e $dest);
+}
+
+sub Command
+{
+	my($cmd)=(@_);
+	print "$cmd\n";
+	return `$cmd`;
+}
+
+sub PathFormat
+{
+	my ($str)=(@_);
+	if ($^O =~ /MSWin/)
+	{
+		$str =~ s#/#\\#g;
+	} else {
+		$str =~ s#\\#/#g;
+	}
+	return $str;
+}
+
+sub SVN_Remove
+{
+	my ($file)=(@_);
+	my ($path, $name);
+	if ($^O =~ /MSWin/)
+	{
+		($path, $name) = ($file =~ /(.+)\/([^\/]+)$/);
+	} else {
+		($path, $name) = ($file =~ /(.+)\\([^\\]+)$/);
+	}
+	my $dir = Cwd::cwd();
+	chdir($path);
+	Command($SVN . ' ' . $SVN_ARGS . ' delete ' . $name);
+	chdir($dir);
+}
+
+sub SVN_Add
+{
+	my ($file)=(@_);
+	my ($path, $name);
+	if ($^O =~ /MSWin/)
+	{
+		($path, $name) = ($file =~ /(.+)\/([^\/]+)$/);
+	} else {
+		($path, $name) = ($file =~ /(.+)\\([^\\]+)$/);
+	}
+	my $dir = Cwd::cwd();
+	chdir($path);
+	Command($SVN . ' ' . $SVN_ARGS . ' add ' . $name);
+	chdir($dir);
+}
+
+sub GetBuildType
+{
+	my ($file)=(@_);
+	my ($type);
+	open(TYPE, $file) or die("Could not open file: $!\n");
+	$type = <TYPE>;
+	close(TYPE);
+	chomp $type;
+	return $type;
+}
+
+return 1;

buildbot/package_script.pl

@@ -0,0 +1,106 @@
+# Pastebin eziGmKtQ
+#!/usr/bin/perl
+
+use strict;
+use Cwd;
+use File::Basename;
+use File::Copy;
+use File::Path;
+use Net::FTP;
+
+my ($ftp_file, $ftp_host, $ftp_user, $ftp_pass, $ftp_path, $tag);
+
+$ftp_file = shift;
+$tag = shift;
+
+open(FTP, $ftp_file) or die "Unable to read FTP config file $ftp_file: $!\n";
+$ftp_host = <FTP>;
+$ftp_user = <FTP>;
+$ftp_pass = <FTP>;
+$ftp_path = <FTP>;
+close(FTP);
+
+chomp $ftp_host;
+chomp $ftp_user;
+chomp $ftp_pass;
+chomp $ftp_path;
+
+my ($myself, $path) = fileparse($0);
+chdir($path);
+
+require 'helpers.pm';
+
+my ($version, $ext);
+$version .= '-git' . Build::GitRevNum('.');
+
+# Append OS to package version
+if ($^O eq "darwin")
+{
+    $ext = ".dylib";
+    $version .= '-mac';
+}
+elsif ($^O =~ /MSWin/)
+{
+    $ext = ".dll";
+    $version .= '-windows';
+}
+elsif ($^O eq "linux")
+{
+    $ext = ".so";
+    $version .= '-linux';
+}
+else
+{
+    $version .= '-' . $^O;
+}
+
+#Switch to the output folder.
+chdir(Build::PathFormat('../../../OUTPUT/package'));
+
+my ($dirlist, $filename, $cmd);
+$dirlist = "../addons";
+$filename = 'SteamWorks' . $version;
+
+if ($^O eq "linux")
+{
+    $filename .= '.tar.gz';
+	$cmd = "tar zcvf $filename $dirlist";
+}
+else
+{
+    $filename .= '.zip';
+	$cmd = "zip -r $filename $dirlist";
+}
+
+print "$cmd\n";
+system($cmd);
+
+$ftp_path .= "/SteamWorks";
+
+my ($ftp);
+
+$ftp = Net::FTP->new($ftp_host, Debug => 0, Passive => 1) 
+    or die "Cannot connect to host $ftp_host: $@";
+
+$ftp->login($ftp_user, $ftp_pass)
+    or die "Cannot connect to host $ftp_host as $ftp_user: " . $ftp->message . "\n";
+
+if ($ftp_path ne '')
+{
+	# YOU LEAVE ME NO CHOICE
+	$ftp->mkdir($ftp_path, 1);
+	
+    $ftp->cwd($ftp_path)
+        or die "Cannot change to folder $ftp_path: " . $ftp->message . "\n";
+}
+
+$ftp->binary();
+$ftp->put($filename)
+    or die "Cannot drop file $filename ($ftp_path): " . $ftp->message . "\n";
+
+$ftp->close();
+
+print "File sent to drop site as $filename -- build succeeded.\n";
+
+exit(0);
+