Difference between revisions of "Unison.pl"

From Organic Design wiki
(Our method of running unison on a cronjob)
 
m
Line 21: Line 21:
 
}
 
}
 
</perl>
 
</perl>
 +
[[Category:PERL]]

Revision as of 04:54, 7 July 2009

<perl>

  1. !/usr/bin/perl

use Expect; require( '/var/www/tools/wikid.conf' ); $server = 'foo.com'; $port = '12345';

for $dir ( 'media', 'documents', 'logs' ) { $cmd = "unison $dir ssh://$name\@$server:$port/foo/$dir -batch -force $dir"; $exp = Expect->spawn( $cmd ); $exp->expect( undef, [ qr/password:/ => sub { my $exp = shift; $exp->send( "$sshpass\n" ); exp_continue; } ], [ qr/Synchronization complete/ => sub { } ], ); $exp->soft_close(); } </perl>