Sync remote directory with local and update local directory if there is any changed.

[ketanm]

Hi,
I have to Sync remote directory with local directory and changed according to update which i got in remote directory using tcp only.please tell me how can i do this in perl.i m totally new to this.

Thanks,
ketan

[RonB]

Use the rsync utility.

http://en.wikipedia.org/wiki/Rsync

File::Rsync - perl module interface to rsync(1) http://rsync.samba.org/rsync/

http://search.cpan.org/~leakin/File-Rsync-0.43/Rsync.pm

[ketanm]

hi

Hi ron,
thanks for your reply.i am also trying form this http://search.cpan.org/~prashant/Win...EAutomation.pm.


Thanks,
ketan

[RonB]

Based on your posted question, your use of Win32::IEAutoma tion doesn't make any sense.

Please give more details of what you need to accomplish and the code that you're attempting to use to accomplish that task.

[ketanm]

Hi

hi ron,
thanks for your reply.this is the site http://hg.sagemath.org which has mercurial repository.i have to collect all name tags first and when you click one of the name tags respective link gets open which has all files or directory which i need to copy to local directory if there is any changed.
my setp will be as below.
1.login to the merecurial site.
2.get the name tags.
3.get link with refer to name tag.
4.sync with local direcoty to files and copy if there is changed.

Please let me know how could i achieve this?

Thanks,
ketan

[ketanm]

hi

hi,
i solved this.
below is the code to do this all above step.

use Win32::IEAutomation;
       
       # Creating new instance of Internet Explorer
       my $ie = Win32::IEAutomation->new( visible => 1, maximize => 1);
       
       # Site navigation 
       $ie->gotoURL('http://hg.sagemath.org');   
      
      print "enter tag: " ;
      chomp($tag=<>);
      print " tag is $tag " ;
      
         
     $ie->getLink('linktext:',$tag)->Click; 
      print "enter tag number: " ;
      chomp($tagnumber =<>) ;
       
      $url=$ie->getLink('linktext:', qr/$tagnumber/)->linkUrl;
      print "url is $url";
      $ie->gotoURL($url);
      
     chdir('C:\Example');
     print "changed to path C:\Example ";
     
     print `dir`;
     
     @args = ("hg", "clone", "$url");
     
     system(@args)== 0
                or die "system @args failed: $?"