Ok,
I have written a script that uses the File::Repl module.
I am pretty much done and was just doing some final tests when I
realized that the module does not keep the permissions on the files when
it replicates them. This is not good since I am using it for web
content pushes from staging to production.
In reading the module docs I don't see where I can set it keep the
permissions.
Here is my code for the section that uses the module;
-----------------------------------------------------
use File::Repl;
my $con = {
dira => "$staging_branch$site$staging_sub", #The location of
the staging content
dirb => "$production_branch$site", #The location of
the production content
verbose => '1', #Turn on debug
to see whats happening
age => '0', #The age of a
file in days to ignore
ttl => '0', #The TTL in days
to "tombstone" a file
recurse => '1', #Scan all sub
directories
};
my $ref=File::Repl->New( $con ); #Create new
object for script
my $r1 = $ref->Update('.*','A>B!',1); #Update from
staging to production.
----------------------------------------------------
If I have files in staging that looks like these;
drwxr-xr-x 4 wfp wfp 4096 Jan 19 17:46 images
-rw-r--r-- 1 wfp wfp 12661 Jan 19 17:46 index.html
-rwxrwxrwx 1 root root 0 Jan 20 13:34 myscript
--------------------------------------------------
After the replication module runs they look like this in production.
drwxr-xr-x 4 root root 4096 Jan 20 13:32 images
-r--r--r-- 1 root root 12661 Jan 19 17:46 index.html
-rw-r--r-- 1 root root 0 Jan 20 13:34 myscript
--------------------------------------------------
Any help would be great.
Thanks!!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
