#! /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") {
	$guestdir="/guest-cache.stage";
} elsif ($destination eq "www") {
	$guestdir="/guest-cache";
} else {
	print "Destination not set correctly!!!!!\n";
	exit 1;
} # End of if
my $cache_dir=$basedir . $guestdir;
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);