--- libsvn-mirror-perl-0.68.orig/debian/changelog +++ libsvn-mirror-perl-0.68/debian/changelog @@ -0,0 +1,153 @@ +libsvn-mirror-perl (0.68-2) unstable; urgency=low + + * Add fix for stricter type checks in swig bindings. + + -- Bastian Blank Thu, 23 Mar 2006 23:34:38 +0100 + +libsvn-mirror-perl (0.68-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Fri, 30 Dec 2005 16:30:44 +0100 + +libsvn-mirror-perl (0.66-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Fri, 19 Aug 2005 15:10:58 +0200 + +libsvn-mirror-perl (0.65-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Wed, 03 Aug 2005 08:41:51 +0200 + +libsvn-mirror-perl (0.64-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Thu, 21 Jul 2005 14:08:14 +0200 + +libsvn-mirror-perl (0.61-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Thu, 12 May 2005 14:02:18 +0200 + +libsvn-mirror-perl (0.60-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Tue, 03 May 2005 15:05:23 +0200 + +libsvn-mirror-perl (0.58-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Tue, 19 Apr 2005 09:27:51 +0200 + +libsvn-mirror-perl (0.57-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Tue, 29 Mar 2005 18:12:45 +0200 + +libsvn-mirror-perl (0.56-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Wed, 02 Mar 2005 11:31:14 +0100 + +libsvn-mirror-perl (0.55-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Fri, 04 Feb 2005 15:28:18 +0100 + +libsvn-mirror-perl (0.54-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Tue, 11 Jan 2005 10:20:14 +0100 + +libsvn-mirror-perl (0.51-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Fri, 24 Dec 2004 17:58:52 +0100 + +libsvn-mirror-perl (0.50-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Fri, 26 Nov 2004 13:15:20 +0100 + +libsvn-mirror-perl (0.49-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Wed, 27 Oct 2004 18:55:53 +0200 + +libsvn-mirror-perl (0.48-2) unstable; urgency=low + + * Rename script from svm to svn-mirror. (closes: #276884) + + -- Bastian Blank Sun, 17 Oct 2004 13:38:14 +0200 + +libsvn-mirror-perl (0.48-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Fri, 08 Oct 2004 20:32:55 +0200 + +libsvn-mirror-perl (0.47-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Fri, 24 Sep 2004 12:19:47 +0200 + +libsvn-mirror-perl (0.43-1) unstable; urgency=low + + * New upstream version. + + -- Bastian Blank Wed, 01 Sep 2004 17:54:13 +0200 + +libsvn-mirror-perl (0.42-2) unstable; urgency=low + + * debian/control: + - Fix Build-Depends. (closes: #265688) + + -- Bastian Blank Sat, 14 Aug 2004 15:32:08 +0200 + +libsvn-mirror-perl (0.42-1) unstable; urgency=low + + * New upstream release. + + -- Bastian Blank Mon, 09 Aug 2004 13:42:49 +0200 + +libsvn-mirror-perl (0.37-1) unstable; urgency=low + + * New upstream release. + + -- Bastian Blank Sun, 11 Jul 2004 15:32:17 +0200 + +libsvn-mirror-perl (0.36-1) unstable; urgency=low + + * New upstream release. + + -- Bastian Blank Sun, 30 May 2004 16:49:57 +0200 + +libsvn-mirror-perl (0.35-1) unstable; urgency=low + + * New upstream release. + * debian/control: + - Fix build-dependencies and dependencies. (closes: #245542) + + -- Bastian Blank Thu, 29 Apr 2004 13:14:05 +0200 + +libsvn-mirror-perl (0.31-1) unstable; urgency=low + + * Initial Release. + + -- Bastian Blank Sun, 4 Apr 2004 00:17:56 +0200 + --- libsvn-mirror-perl-0.68.orig/debian/control +++ libsvn-mirror-perl-0.68/debian/control @@ -0,0 +1,15 @@ +Source: libsvn-mirror-perl +Section: perl +Priority: optional +Build-Depends: debhelper (>= 4.0.2) +Build-Depends-Indep: perl (>= 5.8.0-7), libclass-accessor-perl, libfile-chdir-perl, libsvn-core-perl (>= 1.0.7), libsvn-simple-perl, libtimedate-perl, liburi-perl, subversion +Maintainer: Bastian Blank +Standards-Version: 3.6.1 + +Package: libsvn-mirror-perl +Architecture: all +Depends: ${perl:Depends}, ${misc:Depends}, libclass-accessor-perl, libfile-chdir-perl, libsvn-core-perl (>= 1.0.7), libsvn-simple-perl, libterm-readkey-perl, libtimedate-perl, liburi-perl +Suggests: libossp-uuid-perl, libvcp-perl (>= 0.9-20050110), libvcp-dest-svk-perl (>= 0.28) +Description: A subversion repository mirroring tool + Mirrors remote repository accissible via SVN::Ra interface + to a local repository. --- libsvn-mirror-perl-0.68.orig/debian/compat +++ libsvn-mirror-perl-0.68/debian/compat @@ -0,0 +1 @@ +4 --- libsvn-mirror-perl-0.68.orig/debian/watch +++ libsvn-mirror-perl-0.68/debian/watch @@ -0,0 +1,2 @@ +version=3 +http://www.cpan.org/pub/CPAN/authors/id/C/CL/CLKAO/SVN-Mirror-(.*)\.tar.gz --- libsvn-mirror-perl-0.68.orig/debian/copyright +++ libsvn-mirror-perl-0.68/debian/copyright @@ -0,0 +1,21 @@ +This is the debian package for the SVN-Mirror module. + +It was downloaded from the Comprehensive Perl Archive Network (CPAN). +Visit to find a CPAN site near you. + +The upstream author is: + +Chia-liang Kao . + + +Copyright 2003 by Chia-liang Kao . + +This program is free software; you can redistribute it and/or modify it +under the same terms as Perl itself. + +See http://www.perl.com/perl/misc/Artistic.html + +Perl is distributed under your choice of the GNU General Public License or +the Artistic License. On Debian GNU/Linux systems, the complete text of the +GNU General Public License can be found in `/usr/share/common-licenses/GPL' +and the Artistic Licence in `/usr/share/common-licenses/Artistic'. --- libsvn-mirror-perl-0.68.orig/debian/rules +++ libsvn-mirror-perl-0.68/debian/rules @@ -0,0 +1,69 @@ +#!/usr/bin/make -f + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + +export PERL_EXTUTILS_AUTOINSTALL = --skip + +PACKAGE = $(shell dh_listpackages) + +ifndef PERL +PERL = /usr/bin/perl +endif + +TMP = $(CURDIR)/debian/$(PACKAGE) + +build: build-stamp +build-stamp: + dh_testdir + + $(PERL) Makefile.PL INSTALLDIRS=vendor + $(MAKE) + $(MAKE) test + + touch $@ + +clean: + dh_testdir + dh_testroot + rm -f build-stamp + + -$(MAKE) distclean + rm -rf t/repos + + dh_clean + +install: build + dh_testdir + dh_testroot + dh_clean -k + + $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr + + rmdir --ignore-fail-on-non-empty --parents $(TMP)/usr/lib/perl5 + +# Build architecture-dependent files here. +binary-arch: build install +# We have nothing to do by default. + +# Build architecture-independent files here. +binary-indep: build install + dh_testdir + dh_testroot +# dh_installcron +# dh_installmenu +# dh_installexamples + dh_installdocs README + dh_installchangelogs CHANGES + dh_perl + dh_link + dh_strip + dh_compress + dh_fixperms + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary --- libsvn-mirror-perl-0.68.orig/t/3vcp-cvs.t +++ libsvn-mirror-perl-0.68/t/3vcp-cvs.t @@ -5,6 +5,8 @@ use File::Path; use File::Spec; +plan skip_all => "Disabled"; + if( eval "use VCP::Dest::svk; 1" ) { plan tests => 10; } --- libsvn-mirror-perl-0.68.orig/MANIFEST +++ libsvn-mirror-perl-0.68/MANIFEST @@ -15,10 +15,11 @@ lib/SVN/Mirror/Git.pm lib/SVN/Mirror/Ra.pm lib/SVN/Mirror/VCP.pm -bin/svm +bin/svn-mirror CHANGES Makefile.PL MANIFEST +MANIFEST.SKIP META.yml Module meta-data (added by MakeMaker) README TODO --- libsvn-mirror-perl-0.68.orig/lib/SVN/Mirror/Ra.pm +++ libsvn-mirror-perl-0.68/lib/SVN/Mirror/Ra.pm @@ -521,7 +521,7 @@ my $reporter = $ra->do_update ($rev, $editor->{target} || '', 1, $editor); my @lock = $SVN::Core::VERSION ge '1.2.0' ? (undef) : (); - $reporter->set_path ('', $start, @lock, 0); + $reporter->set_path ('', $start, @lock, undef); $reporter->finish_report (); } else { --- libsvn-mirror-perl-0.68.orig/bin/svn-mirror +++ libsvn-mirror-perl-0.68/bin/svn-mirror @@ -0,0 +1,139 @@ +#!/usr/bin/perl -w +use strict; +use SVN::Core '0.32'; +use SVN::Mirror; + +=head1 NAME + +svn-mirror - command line interface for remote Subversion repository mirroring + +=head1 SYNOPSIS + + # the svn repository for svn-mirror to use + % setenv SVMREPOS ~/svm + + # set the path mirror/svn to mirror official subversion trunk + % svn-mirror init mirror/svn http://svn.collab.net/repos/svn/trunk + + # run the actual mirroring + # flatten the changesets between revision 1 thru 6000 + % svn-mirror sync mirror/svn 6000 + + # merge back changes in local branch + % svn cp file://$SVMREPOS/mirror/svn file://$SVMREPOS/svn-local + # make some changes and then merge back to source repository + % svn-mirror mergeback mirror/svn svn-local + +=head1 DESCRIPTION + +F mirrors remote repository accissible via L interface +to a local repository. + +=head1 COMMANDS + +=over + +=item init B B + +Initialize the B in svm repository to mirror from B. + +=item sync B B<[sync_to]> + +Invoke the synchronization of B in svn-mirror repository according the +how it is initialized. + +=back + +=cut + +my $repospath = $ENV{SVMREPOS} || $ENV{HOME}.'/svn/svm'; +my $auth = SVN::Core::auth_open ([SVN::Client::get_simple_provider, + SVN::Client::get_ssl_server_trust_file_provider, + SVN::Client::get_username_provider]); + +sub help { + require Pod::Text; + my $parser = Pod::Text->new (sentence => 0, width => 78); + $parser->parse_from_file ($0, '-' ); +} + +sub init { + die "$0 init " unless $#_ == 1; + my ($path, $source) = @_; + my $m = SVN::Mirror->new(target_path => $path, target => $repospath, + auth => $auth, + source => $source, target_create => 1); + $m->init; +} + +sub ls { + my $m = SVN::Mirror->new(target => $repospath); + + $m->list; +} + +sub can_continue { + $_ = $@; + return 1 if + m/Connection reset by peer/ || + m/connection timed out/; +} + + +sub sync { + my $path = shift; + my $skip_to = shift; + my $pool = SVN::Pool->new_default; + my $m = SVN::Mirror->new(target_path => $path, target => $repospath, + pool => $pool, auth => $auth, + get_source => 1, skip_to => $skip_to); + + while (1) { + eval { + $m->init; + $m->run; + }; + last unless $@; + + warn $@; + $m->{pool} = SVN::Pool->new_default; + $m = SVN::Mirror->new(%$m); + last unless can_continue; + print "retry...\n"; + sleep 5; + } + +} + +sub mergeback { + my ($path, $branch_path, $rev) = @_; + my $pool = SVN::Pool->new_default; + my $m = SVN::Mirror->new(target_path => $path, target => $repospath, + pool => $pool, auth => $auth, + get_source => 1); + $m->init; + $m->mergeback ($rev-1, $branch_path, $rev); +} + +my $cmd = shift || 'help'; + +die "command not recognized" unless main->can($cmd); + +no strict 'refs'; + +&$cmd(@ARGV); + +=head1 AUTHORS + +Chia-liang Kao Eclkao@clkao.orgE + +=head1 COPYRIGHT + +Copyright 2003 by Chia-liang Kao Eclkao@clkao.orgE. + +This program is free software; you can redistribute it and/or modify it +under the same terms as Perl itself. + +See L + +=cut --- libsvn-mirror-perl-0.68.orig/Makefile.PL +++ libsvn-mirror-perl-0.68/Makefile.PL @@ -8,7 +8,7 @@ abstract ('Mirror remote repositories to local subversion repository'); license ('perl'); version_from ('lib/SVN/Mirror.pm'); -install_script ('bin/svm'); +install_script ('bin/svn-mirror'); clean_files (qw't/repos* tmp vcp*'); requires( 'SVN::Core' => $required_svn, --- libsvn-mirror-perl-0.68.orig/MANIFEST.SKIP +++ libsvn-mirror-perl-0.68/MANIFEST.SKIP @@ -0,0 +1 @@ +debian/.*