root/branches/newmole/scripts/copy_data_2_ldrive.pl

#!/usr/bin/perl/

# this script copies the cloudy data files from the original source to the current machine

# the disk drive we will use for the network machine
$c = "M";

# try using net use net use u: \\server-name\share-name\
system( "net use $c: \\\\cumulus\\cumulus_c\$ /persistent:no" );

# the unix copy of the data directory on the local machine
$local_copy="c:\\projects\\cloudy\\trunk\\unix\\data";

#
# the unix copy on the network machine
$original_data="$c:\\projects\\cloudy\\trunk\\unix\\data";

# now copy unix eol data so lightning can use gcc
# /y suppresses asking to confirm overwriting a file
system( "xcopy $original_data $local_copy /y" );


# the win copy of the data directory on the local machine
$local_copy="c:\\projects\\cloudy\\trunk\\data";

#
# the win copy on the network machine
$original_data="$c:\\projects\\cloudy\\trunk\\data";

# now copy win eol data so lightning can use vs
# /y suppresses asking to confirm overwriting a file
system( "xcopy $original_data $local_copy /y" );