OpenSimulator release-build2.pl

#!/usr/bin/perl -w

#use Getopt::Long;

#my %opts = {};

if (@ARGV < 1)
{
    print "Usage: $0 <release-name>\n";
    print "For example, $0 opensim-0.7.3-rc2\n";
    die;
}

my $compressedFileExtension = ($^O eq "cygwin") ? "zip" : "tar.gz";
my $releaseName = $ARGV[0];
my $releaseTarName = "$releaseName.$compressedFileExtension";

print "Using release name $releaseName\n";

execCmd("scp $releaseTarName justincc\@opensimulator.org:/var/www/dist.opensimulator.org");

sub execCmd
{
    my $cmd = $_[0];
    print "Excecuting command $cmd\n";
    system ($cmd) && die;
}