#! /tools/bin/perl

require '/usr/www/push/php/scripts/auth.pl';

my $which=shift;
my $dest_dir="/o/prod/current/www.e2/";
my $trash_dir=$dest_dir . "trash_from_script";
my $guest_dir=$dest_dir . "guest-cache";
my $partner_dir=$dest_dir . "partner-cache";
&auth;

my $ssh="/tools/bin/ssh";
my $scp="/tools/bin/scp -C";

&auth();
if ($which eq "both") {
	$which_dirs="$guest_dir $partner_dir";
} elsif ($which eq "guest") {
	$which_dirs="$guest_dir";
} elsif ($which eq "partner") {
	$which_dirs="$partner_dir";
} else {
	$which_dirs="$guest_dir $partner_dir";
} # End of if

$cmd="$ssh bd\@fed1 \" cd $dest_dir; mkdir $trash_dir; mv $which_dirs $trash_dir; mkdir $which_dirs; rm -rf $trash_dir \" ";
print "$cmd\n";
system($cmd);