#!/usr/bin/perl use strict; use warnings; use WWW::OpenSVN; use Getopt::Long; my $password_file; my $project; GetOptions( "project=s" => \$project, "passwordfile=s" => \$password_file ); open my $p_fh, "<", $password_file or die "Cannot open password file"; my $password = <$p_fh>; chomp($password); close($p_fh); eval { my $opensvn = WWW::OpenSVN->new( project => $project, password => $password ); $opensvn->fetch_dump('filename' => "$project.dump.gz"); }; if ($@) { my $err = $@; print "Project = ", $err->project(), "\n"; print "Phase = ", $err->phase(), "\n"; die $err; }