#! /tools/bin/perl

my $source_dir="/u/samba/public/edy/";
my $dest_dir="/o/prod/current/feeds/";
my $inkt_top_src="i2_list.txt";
my $inkt_all_src="ink_list.txt";
my $inkt_top_dest=$dest_dir . "inktomi_top.txt";
my $inkt_all_dest=$dest_dir . "inktomi_all.txt";
my $machine="prod2";
##################################################
my $scp="/bin/scp -C";

#$cmd="cd $source_dir; $scp epinions_50K.txt epinions_150K.txt bd\@$machine:$dest_dir.$list; $scp inktomi_top.txt inktomi_all.txt  bd\@$machine:$dest_dir.$inkt";
$cmd="cd $source_dir; $scp $inkt_top_src bd\@$machine:$inkt_top_dest";
print "$cmd\n";
system($cmd);
$cmd="cd $source_dir; $scp $inkt_all_src bd\@$machine:$inkt_all_dest";
print "$cmd\n";
system($cmd);