[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

Re: Example svn-log.cgi?

From: <cmpilato_at_collab.net>
Date: 2002-01-29 07:51:57 CET

Karl Fogel <kfogel@newton.ch.collab.net> writes:

Of course the following could now just be:

   #!/bin/sh
   echo "Content-type: text/plain"
   echo ""
   `svn log $1`;

right?

> And /usr/www/repositories/svn-log.pl is this:
>
> #!/usr/bin/perl
>
> use strict;
>
> my $repos = shift @ARGV;
>
> # Make sure we got all the arguments we wanted
> if ((not defined $repos) or ($repos eq ''))
> {
> print "Usage: svn_logs.pl REPOS-PATH\n\n";
> exit;
> }
>
> # Get the youngest revision in the repository.
> my $youngest = `svnadmin youngest $repos`;
> chomp $youngest; # don't want carriage return
> die ("Error using svnadmin to get youngest revision") if (not $youngest =~ /^\d/);
>
> while ($youngest >= 1)
> {
> print "--------------------------------------------------------\n";
> print "Revision $youngest\n";
> print `svnlook $repos rev $youngest info`;
> print "\n";
> $youngest--;
> }

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Sat Oct 21 14:37:01 2006

This is an archived mail posted to the Subversion Dev mailing list.

This site is subject to the Apache Privacy Policy and the Apache Public Forum Archive Policy.