--- libsvn-web-perl-0.53.orig/watch +++ libsvn-web-perl-0.53/watch @@ -0,0 +1,2 @@ +version=2 +http://www.cpan.org/modules/by-module/SVN/SVN-Web-(.*).(tar.gz|tar|tgz) --- libsvn-web-perl-0.53.orig/debian/changelog +++ libsvn-web-perl-0.53/debian/changelog @@ -0,0 +1,30 @@ +libsvn-web-perl (0.53-3) unstable; urgency=low + + * Patch to assertion failure (Closes: #493551). + * Reformatting long description (Closes: #480331). + + -- David Moreno Fri, 12 Dec 2008 17:04:46 -0500 + +libsvn-web-perl (0.53-2.1) unstable; urgency=low + + [ Stefan Ritter ] + * Non-maintainer upload. + * Dependencies are not set correctly (Closes: #473094) + + [ Christoph Berg ] + * Add more run-time dependencies: liblocale-maketext-lexicon-perl, + libhttp-server-simple-perl, libhtml-parser-perl. + + -- Christoph Berg Sat, 05 Apr 2008 02:06:07 +0200 + +libsvn-web-perl (0.53-2) unstable; urgency=low + + * Adding watch file to keep track of updates + + -- David Moreno Garza Mon, 25 Feb 2008 10:00:07 -0500 + +libsvn-web-perl (0.53-1) unstable; urgency=low + + * Initial Release. + + -- David Moreno Garza Fri, 30 Nov 2007 14:01:12 -0500 --- libsvn-web-perl-0.53.orig/debian/copyright +++ libsvn-web-perl-0.53/debian/copyright @@ -0,0 +1,21 @@ +This is the debian package for the SVN-Web module. +It was created by David Moreno Garza using dh-make-perl. + +It was downloaded from http://search.cpan.org/dist/SVN-Web/ + +Copyright 2003-2004 by Chia-liang Kao . + +Copyright 2005-2007 by Nik Clayton . + +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'. + +The Debian packaging is (C) 2007, David Moreno Garza and +is licensed under the same terms as the software itself (see above). --- libsvn-web-perl-0.53.orig/debian/compat +++ libsvn-web-perl-0.53/debian/compat @@ -0,0 +1 @@ +5 --- libsvn-web-perl-0.53.orig/debian/rules +++ libsvn-web-perl-0.53/debian/rules @@ -0,0 +1,77 @@ +#!/usr/bin/make -f +# This debian/rules file is provided as a template for normal perl +# packages. It was created by Marc Brockschmidt for +# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may +# be used freely wherever it is useful. +# +# It was later modified by Jason Kohles +# http://www.jasonkohles.com/ to support Module::Build installed modules + +# Uncomment this to turn on verbose mode. +export DH_VERBOSE=1 + +# If set to a true value then MakeMaker's prompt function will +# always return the default without waiting for user input. +export PERL_MM_USE_DEFAULT=1 + +PACKAGE=$(shell dh_listpackages) + +ifndef PERL +PERL = /usr/bin/perl +endif + +TMP =$(CURDIR)/debian/$(PACKAGE) + +build: build-stamp +build-stamp: + dh_testdir + + # Add commands to compile the package here + $(PERL) Build.PL installdirs=vendor + $(PERL) Build +# $(PERL) Build test + + touch build-stamp + +clean: + dh_testdir + dh_testroot + + dh_clean build-stamp install-stamp + + # Add commands to clean up after the build process here + [ ! -f Build ] || $(PERL) Build distclean + +install: build install-stamp +install-stamp: + dh_testdir + dh_testroot + dh_clean -k + + # Add commands to install the package into debian/$PACKAGE_NAME here + $(PERL) Build install destdir=$(TMP) create_packlist=0 + + touch install-stamp + +binary-arch: +# We have nothing to do here for an architecture-independent package + +binary-indep: build install + dh_testdir + dh_testroot + dh_installdocs README TODO + dh_installexamples + dh_installchangelogs + dh_perl + dh_compress + dh_fixperms + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +source diff: + @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary --- libsvn-web-perl-0.53.orig/debian/control +++ libsvn-web-perl-0.53/debian/control @@ -0,0 +1,23 @@ +Source: libsvn-web-perl +Section: perl +Priority: optional +Build-Depends: debhelper (>= 5.0.0), libmodule-build-perl, libsvn-perl, libtemplate-perl, libexception-class-perl, libtest-www-mechanize-perl, liblocale-maketext-lexicon-perl, subversion +Build-Depends-Indep: perl +Maintainer: David Moreno +Standards-Version: 3.8.0 +Homepage: http://search.cpan.org/dist/SVN-Web/ + +Package: libsvn-web-perl +Architecture: all +Depends: ${perl:Depends}, ${misc:Depends}, libsvn-perl, libyaml-perl, libtemplate-perl, libexception-class-perl, libhtml-parser-perl, liblocale-maketext-lexicon-perl, libhttp-server-simple-perl +Description: Subversion repository web frontend + SVN::Web provides a web interface to subversion repositories. + . + - Viewing multiple Subversion repositories. + - Browsing every revision of the repository. + - Viewing the contents of files in the repository at any revision. + - Viewing diffs of arbitrary revisions of any file. + - Viewing the revision log of files and directories, see what was changed when, by who. + - Viewing the blame/annotation details of any file. + - Generating RSS feeds of commits, down to the granularity of individual files. + - Many more. --- libsvn-web-perl-0.53.orig/lib/SVN/Web/Log.pm +++ libsvn-web-perl-0.53/lib/SVN/Web/Log.pm @@ -203,6 +203,9 @@ my $path = $self->{path}; $path =~ s{/+$}{}; + $path =~ s{^/+}{}; + $uri .= '/'; + my(undef, $yng_rev, undef, $head) = $self->get_revs(); # Handle log paging --- libsvn-web-perl-0.53.orig/lib/SVN/Web/action.pm +++ libsvn-web-perl-0.53/lib/SVN/Web/action.pm @@ -240,6 +240,8 @@ my $ra = $self->{repos}{ra}; + $path =~ s{^/}{}; + my @log_result; $ra->get_log([$path], $rev, 1, 1, 0, 1, sub { @log_result = @_; }); --- libsvn-web-perl-0.53.orig/lib/SVN/Web/View.pm +++ libsvn-web-perl-0.53/lib/SVN/Web/View.pm @@ -133,6 +133,9 @@ my $rev = $act_rev; + $path =~ s{^/+}{}; + $uri .= '/'; + # Get the log for this revision of the file $ra->get_log([$path], $rev, $rev, 1, 1, 1, sub { $self->{REV} = $self->_log(@_) }); --- libsvn-web-perl-0.53.orig/lib/SVN/Web/Revision.pm +++ libsvn-web-perl-0.53/lib/SVN/Web/Revision.pm @@ -211,7 +211,7 @@ ) if $rev > $yrev; - $ra->get_log(['/'], $rev, $rev, 1, 1, 1, + $ra->get_log([''], $rev, $rev, 2, 1, 1, sub { $self->{REV} = $self->_log(@_) }); $self->_resolve_changed_paths(); --- libsvn-web-perl-0.53.orig/lib/SVN/Web/Diff.pm +++ libsvn-web-perl-0.53/lib/SVN/Web/Diff.pm @@ -184,6 +184,9 @@ my $uri = $self->{repos}{uri}; my $path = $self->{path}; + $path =~ s{^/}{}; + $uri .= '/'; + my(undef, undef, undef, $at_head) = $self->get_revs(); my $mime = $self->{cgi}->param('mime') || 'text/html';