30 lines
818 B
Perl
30 lines
818 B
Perl
#!/usr/bin/perl
|
|
#This resyncs all 4chan hosts global directories to the primary one on yotsuba
|
|
|
|
$lock = "/tmp/resync_lock";
|
|
if (-e $lock) {die;}
|
|
|
|
if (-e "/www/global/yotsuba/block_resync") {die;}
|
|
|
|
open(F, $lock) && close F;
|
|
|
|
open(HOST,"/bin/hostname|");
|
|
$hostname = <HOST>;
|
|
chomp $hostname;
|
|
if ($hostname ne "yotsuba.4chan.org") {
|
|
print "this command should only be run on yotsuba!!\n";
|
|
exit;
|
|
}
|
|
@hosts = ("koiwai.int","ayase.int","danbo.int","miura.int");
|
|
foreach (@hosts) {
|
|
print "sync $_";
|
|
system "ssh -p 914 -l global -O check $_";
|
|
if ($? != 0) {
|
|
system "rm -f /tmp/global@".$_.":914";
|
|
system "ssh -p 914 -l global -o BatchMode=yes $_ exec sleep 36000 &";
|
|
sleep(5);
|
|
}
|
|
system "/usr/local/bin/rsync -cO --delete --rsh='ssh -p 914' -a /www/global/ global\@$_:/www/global/";
|
|
}
|
|
|
|
unlink($lock);
|