* tools/svn-log.cgi, tools/svn-log.pl : Nice CGI and Perl log scripts.
Index: ./tools/svn-log.pl
===================================================================
--- ./tools/svn-log.pl
+++ ./tools/svn-log.pl Mon Jan 28 18:16:32 2002
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+# Generate a nice log format for the Subversion repository.
+
+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--;
+ }
+
Index: ./tools/svn-log.cgi
===================================================================
--- ./tools/svn-log.cgi
+++ ./tools/svn-log.cgi Mon Jan 28 18:16:32 2002
@@ -0,0 +1,6 @@
+#!/bin/sh
+# Call svn-log.pl with your favorite repository and output HTML.
+
+echo "Content-type: text/plain"
+echo ""
+/var/www/html/svngui/svn-log.pl /home/svnroot/svngui
---------------------------------------------------------------------
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:00 2006