#!/usr/bin/perl

use strict;

use Cwd;

use File::Basename;

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';

#Switch to the output folder.

chdir(Build::PathFormat('../../../OUTPUT/package'));

my ($version);

$version = Build::ProductVersion(Build::PathFormat('../../build/product.version'));

$version =~ s/-dev//g;

$version .= '-hg' . Build::HgRevNum('../../build');

# Append OS to package version

if ($^O eq "darwin")

{

    $version .= '-mac';

}

elsif ($^O =~ /MSWin/)

{

    $version .= '-windows';

}

else

{

    $version .= '-' . $^O;

}

if (defined $tag)

{

	$version .= '-' . $tag;

}

my ($filename);

$filename = 'sourcemod-' . $version;

if ($^O eq "linux")

{

    $filename .= '.tar.gz';

    print "tar zcvf $filename addons cfg\n";

    system("tar zcvf $filename addons cfg");

}

else

{

    $filename .= '.zip';

    print "zip -r $filename addons cfg\n";

    system("zip -r $filename addons cfg");

}

my ($major,$minor) = ($version =~ /^(\d+)\.(\d+)/);

$ftp_path .= "/$major.$minor";

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 '')

{

    $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);