#! /tools/bin/perl

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

my $release_dir="/usr/";
my $source_dir="/usr/www/push/qa_branch/";
my $image_dir_list="/usr/www/push/php/scripts/logs/dirlist";
my $machine="stage1";
##################################################
my $scp="/bin/scp -C";

&make_dir;
&auth;

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;
	my $dest_dir=$release_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