#! /usr/bin/perl -w

my $REPO_DIR = '/data/svn/repos' ;

use strict ;
use Repocafe ;

my $prog = substr($0,rindex($0,'/')+1) ;
my $Usage = <<USAGE ;
Usage: $prog [-v] [-q] [-d] [-f] src-repo dst-repo
option v : be verbose
option q : be quiet
option d : show debug info
option f : do action ; otherwise dry-run
----------------------------------------------------
must run as root
----------------------------------------------------
example  : $prog helium project.helium.base
----------------------------------------------------
USAGE
sub Usage { die "$_[0]$Usage" ; }
sub Error { die "$prog: $_[0]\n" ; }
sub Warn  { warn "$prog: $_[0]\n" ; }

# usage: &GetOptions(ARG,ARG,..) defines $opt_ID as 1 or user spec'ed value
# usage: &GetOptions(\%opt,ARG,ARG,..) defines $opt{ID} as 1 or user value
# ARG = 'ID' | 'ID=SPC' | 'ID:SPC' for no-arg, required-arg or optional-arg
# ID  = perl identifier
# SPC = i|f|s for integer, fixedpoint real or string argument

use Getopt::Long ;
Getopt::Long::config('no_ignore_case') ;
my %opt = () ; Usage('') unless GetOptions
  ( \%opt, qw(v q d f) ) ;
Usage "Arg count\n" unless @ARGV == 2 ;

my $TAG = $opt{f} ? 'DID' : 'WOULD' ;

my $SRC_REPO = shift ;
my $DST_REPO = shift ;

my $SRC = "$REPO_DIR/$SRC_REPO" ;
my $DST = "$REPO_DIR/$DST_REPO" ;
my $DMP = "/tmp/$SRC_REPO.gz" ;

Error "must run as root (for 'su apache -c ...')" if $< != 0 ;

Error "can't find $REPO_DIR" unless -d "$REPO_DIR/" ;
Error "can't find $SRC_REPO" unless -d $SRC ;
Error "can't find $DST_REPO" unless -d $DST ;

# check if dst repo is ok (at revision 0)

my $CMD_look = "svnlook youngest $DST|" ;
open LOOK, $CMD_look or Error "can't popen $CMD_look ($!)" ;
my $rev = <LOOK> ; chop $rev ;
close LOOK ;
Error "$SRC_REPO is at revision $rev (should be 0)" unless $rev eq "0" ;

my $DUMP = sprintf 'svnadmin dump %s | gzip -c -v > %s', $SRC, $DMP ;
printf "%s dump : %s\n", $TAG, $DUMP ;
system $DUMP if $opt{f} ;

my $LOAD = sprintf "zcat %s | su apache -c 'svnadmin load %s'", $DMP, $DST ;
printf "%s load : %s\n", $TAG, $LOAD ;
system $LOAD if $opt{f} ;