#!/usr/bin/perl -w
# Rex Tsai <chihchun@kalug.linux.org.tw>
use strict;
use SVN::Mirror;

sub help {
    die "$0: unlock SVMREPOS path\n"
}

sub unlock {
    my $repospath = shift;
    my $path = shift;
    my $auth = SVN::Core::auth_open ([SVN::Client::get_simple_provider,
	    SVN::Client::get_ssl_server_trust_file_provider,
	    SVN::Client::get_username_provider]);
    my $pool = SVN::Pool->new_default;
    my $m = SVN::Mirror->new (target_path => $path,
	    target => $repospath,
	    pool => $pool, auth => $auth,
	    get_source => 1);
    $m->unlock('force');
}

my $cmd = shift || 'help';

die "command not recognized" unless main->can($cmd);

no strict 'refs';

&$cmd(@ARGV);