#! /tools/bin/perl -w

require '/usr/www/push/common20.pl';
require '/usr/www/push/auth.pl';

my $version=shift;
my $release="www_".$version;
my $prod_dir="/o/prod/current/";
my $temp_dir=$prod_dir."www_temp/";
my $release_dir=$prod_dir.$release;
my $machine="fed1";
##################################################
my $ssh="/tools/bin/ssh";

&auth;

if (! defined $version) {
        print "Please define the release!!! (2_1_7) \n";
        exit 1;
} # End of if

$cmd="$ssh bd\@$machine \"cd $temp_dir; mv www $release_dir \" ";
print "$cmd\n";
&ssh_pipe($cmd);
$cmd="$ssh bd\@$machine \"cd $prod_dir; rm www.e2.stage; ln -s $release www.e2.stage \" ";
print "$cmd\n";
&ssh_pipe($cmd);
$cmd="$ssh bd\@$machine \"cd $release_dir; mkdir guest-cache partner-cache; ln -s /o/prod/current/feeds feeds; ln -s /o/prod/current/wtb_stage wtb; ln -s /o/prod/current/reviews reviews; ln -s /o/prod/current/partners.patton partners; ln -s /o/prod/current/members.patton members; ln -s docroot/priv priv \" ";
print "$cmd\n";
&ssh_pipe($cmd);
$cmd="$ssh bd\@$machine \"cd $release_dir/docroot; ln -s search/index.html search.html; ln -s /o/prod/current/images images; ln -s /o/prod/current/partners.patton css \" ";
print "$cmd\n";
&ssh_pipe($cmd);