#! /tools/bin/perl

my $destination=shift;
my $machine="stage2";
my $basedir="/o/prod/current";
my $guestdir;
my $ssh="/tools/bin/ssh";

if ($destination eq "stage") {
	$wwwdir="/www.e2.stage/";
} elsif ($destination eq "www") {
	$wwwdir="/www.e2/";
} else {
	print "Destination not set correctly!!!!!\n";
	exit 1;
} # End of if
my $cache_dir=$basedir . $wwwdir . "partner-cache";
my $trash_dir=$cache_dir . ".trash";
##################################################

my $cmd="$ssh bd\@$machine \"mv $cache_dir $trash_dir; mkdir $cache_dir; rm -rf $trash_dir \" ";
print "$cmd\n";
system($cmd);