smecontribs/smeserver-dirty-tools
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit of file from CVS for smeserver-dirty-tools on Sat Sep 7 20:17:20 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 20:17:20 +10:00
parent 2afadab596
commit d11a58da6a
14 changed files with 789 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

113
root/sbin/e-smith/dt-data-sync Executable file
View File

@@ -0,0 +1,113 @@
#!/usr/bin/perl
# (C) 2007 Michael Weinberger
# See http://wiki.contribs.org/Dirty_Tools for full documentation
use Getopt::Long;
my %opts;
my $getRes = GetOptions(
"dry-run"=>\$opts{'dry-run'},
"ibay"=>\$opts{'ibay'},
"compress"=>\$opts{'compress'},
"copy"=>\$opts{'copy'},
);
( my $myself = $0) =~ s/.*\///;
$opts{'copy'} = ($myself eq 'dt-data-copy' or $opts{'copy'}) ? 1 : 0;
die "Usage: dt-data-sync [--dry-run] [--compress] [--ibay] source_server account|ibay\n dt-data-copy [--dry-run] [--compress] [--ibay] source_server account|ibay\n" if( not $ARGV[1] ) ;
$server=$ARGV[0];
$source=$ARGV[1];
$dryrun= $opts{'dry-run'} ? 1 : 0;
$exit=0;
if( $opts{'ibay'} )
{
$datapath="/home/e-smith/files/ibays/$source";
$b=`/sbin/e-smith/db accounts show|grep '=ibay\$'|/bin/sed 's/=.*//'`;
chomp($b);
@ibays=split( /\n/, $b );
$b=`/usr/bin/ssh $server /sbin/e-smith/db accounts show|/bin/grep '=ibay\$'|/bin/sed 's/=.*//'`;
chomp($b);
@remote_ibays=split( /\n/, $b );
printf "Ibay %s %s\n", $source, $dryrun ? "(dry run)" : "";
@b= grep( /^$source$/, @ibays);
if( not $b[0] )
{
print "Error: Ibay does not exist local\n";
$exit=1;
}
@b= grep( /^$source$/, @remote_ibays);
if( not $b[0] )
{
print "Error: Ibay does not exist remote\n";
$exit=1;
}
if( not -d $datapath )
{
print "Error: local ibay dir does not exist\n";
$exit=1;
}
if( system( "/usr/bin/ssh $server test -d $datapath" ) )
{
print "Error: remote ibay dir does not exist\n";
$exit=1;
}
}
else
{
$datapath="/home/e-smith/files/users/$source";
$u=`/sbin/e-smith/db accounts show|/bin/grep '=user\$'|/bin/sed 's/=.*//'`;
chomp($u);
@users=split( /\n/, $u );
$u=`/usr/bin/ssh $server /sbin/e-smith/db accounts show|/bin/grep '=user\$'|/bin/sed 's/=.*//'`;
chomp($u);
@remote_users=split( /\n/, $u );
printf "Account %s %s\n", $source, $dryrun ? "(dry run)" : "";
@u= grep( /^$source$/, @users);
if( not $u[0] )
{
print "Error: Account does not exist local\n";
$exit=1;
}
@u= grep( /^$source$/, @remote_users);
if( not $u[0] )
{
print "Error: Account does not exist remote\n";
$exit=1;
}
if( not -d $datapath )
{
print "Error: local home dir does not exist\n";
$exit=1;
}
if( system( "/usr/bin/ssh $server test -d $datapath" ) )
{
print "Error: remote home dir does not exist\n";
$exit=1;
}
}
if( not $exit )
{
$rync_copy=$opts{'copy'}?"--update":"--delete-during";
$rsync_dry=$dryrun ? "--dry-run" : "";
$rsync_compress=$opts{'compress'} ? "--compress" : "";
system( "/usr/bin/rsync $rsync_dry -av $rync_copy $rsync_compress --rsh='/usr/bin/ssh -o StrictHostKeyChecking=yes' $server:$datapath/ $datapath/" );
print "Ok.\n";
}