#!/usr/bin/perl -w
use strict;
my $ReleaseName="Pre17";
my $Home='/home/mn/';
my $SymaxxSource=$Home.'Programme/Symaxx_II';


# Copy the whole directory
my $CopyCommand="cp -R $SymaxxSource /tmp/Symaxx2";
system($CopyCommand);

chdir("/tmp/") or die;
my $TarCommand="tar -cf Symaxx2_".$ReleaseName."_tar Symaxx2";
system($TarCommand);
my $GZipCommand="gzip -9 Symaxx2_".$ReleaseName."_tar";
system($GZipCommand);
system("mcopy /tmp/Symaxx2_".$ReleaseName."_tar.gz a:/");
system("rm /tmp/Symaxx2_".$ReleaseName."_tar.gz");
# leave the folder in /tmp as backup copy
