#! /tools/bin/perl

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

my $source_dir="/usr/www/push/static_files/";
my $image_dir_list="/usr/www/push/scripts/dirlist30_images";
##################################################
my $cp="/bin/cp";

&make_dir;
#&auth;

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

foreach $dir (@dirs) {
	my $source=$source_dir.$dir;
	my $dest_dir=$dir;
	$dest_dir =~ s|www/docroot/images|/racecar/images/epi_images|;
	my $cmd="mkdir -p $dest_dir";
	print "$cmd\n";
	system($cmd);
	$cmd="cd $source; $cp * $dest_dir ";
	print "$cmd\n";
	system($cmd);
} # End of foreach