#! /tools/bin/perl

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

my $release=shift;
my $prod_dir="/o/prod/current/";
my $full_release="www_".$release;
my $release_dir=$prod_dir.$full_release."/";
my $source_dir="/usr/www/push/qa_branch/";
my $image_dir_list="/usr/www/push/php/scripts/logs/dirlist";
my $machine="fed1";
my $ssh="/tools/bin/ssh";
##################################################

&make_dir;
&auth;

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

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


my $cmd="$ssh bd\@$machine \"mkdir $release_dir\"  ";
print "$cmd\n";
system($cmd);

open(FILE,$image_dir_list);
my @dirs=<FILE>;
chomp(@dirs);
close(FILE);

foreach $dir (@dirs) {
	my $source=$source_dir.$dir;
	$dir =~ s|www|$full_release|;
	my $dest_dir=$prod_dir.$dir;
	my $cmd="$ssh bd\@$machine \"mkdir -p $dest_dir\"  ";
	print "$cmd\n";
	system($cmd);
	$cmd="cd $source; $scp * bd\@$machine:$dest_dir ";
	print "$cmd\n";
	system($cmd);
} # End of foreach

$cmd="$ssh bd\@$machine \"cd $prod_dir; rm www.e2.stage; ln -s $full_release www.e2.stage \" ";
print "$cmd\n";
system($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";
system($cmd);
###############
# Taking out the images link...
###############
#$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 \" ";
$cmd="$ssh bd\@$machine \"cd $release_dir/docroot; ln -s search/index.html search.html; ln -s /o/prod/current/partners.patton css; ln -s /o/prod/current/static_files/www/docroot/static . \" ";
print "$cmd\n";
system($cmd);

$cmd="$ssh bd\@$machine \"cd $release_dir/resources; ln -s /o/prod/current/static_files/www/resources/static_text .; ln -s /o/prod/current/static_files/www/resources/ad_creative . \" ";
print "$cmd\n";
system($cmd);

$cmd="$ssh bd\@$machine \"cd $release_dir/features; ln -s /o/prod/current/static_files/www/features/static_content . \" ";
print "$cmd\n";
system($cmd);