#! /usr/bin/perl
# "perl sv 0.0.n" saves version 0.0.n in .. and in sferics.
use strict;

my $vers = $ARGV[0];
my $host = 'sferics.mongueurs.net';

unless ($vers) {
  open I, "VERSION";
  undef $/;
  $_=<I>;
  m/^(.*\.)(\d+)\s*$/;
  $vers="$1". ($2+1);
  close I;
}



open I, 'MANIFEST';
my @a = map { m/^(\S+)/; $_="r6/$1" } grep { m/\S/ } <I>;
$"=" ";
open I,">VERSION";
print I "$vers\n";
close I;
print "cd ..; tar zcvf @a", "\n";
system "cd ..; tar zcvf r6-$vers.tar.gz @a";
system "scp ../r6-$vers.tar.gz $host:."


