#! /tools/bin/perl

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

my $type=shift;
my $source_file="/tmp/$type";
my $dest_dir="/o/prod/current";
##################################################
my $ssh="/tools/bin/ssh";
my $scp="/tools/bin/scp -C";

&auth();
$cmd="$ssh bd\@stage1 \" cd $dest_dir; rm wwww.disabled wwww.enabled \" ";
#print "$cmd\n";
system($cmd);
$cmd="$scp $source_file bd\@stage1:$dest_dir";
#print "$cmd\n";
system($cmd);