Thank you all for helping me with my script! Below is it's final WORKING
incarnation. You all were very nice and very helpful!!
Thank You!
#!/usr/local/bin/perl -w
use strict;
use File::Path;
my $file;
my $type;
my $currentLocation;
my $newLocation;
my $owner;
my $permissions;
open (MDATA, "meta-data") or die "Cannot open $!\n";
while (<MDATA>) {
chomp;
my ( $file, $type, $currentLocation, $newLocation, $owner,
$permissions ) = split ( /\t/ );
mkpath ( $newLocation, $owner, $permissions ) unless (-d
$newLocation );
system ( "chmod '$permissions' '$newLocation'" );
system ( "chown '$owner' '$newLocation'" );
system ( "cvs checkout -d '$newLocation' '$file' " );
}
close MDATA
Till next time,
-garrett
_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
