Svn-report.pl

1. !/usr/bin/perl
2. Read meta data from an SVN repository into a file
3. Our Perl scripts.

$url = 'http://svn.wikimedia.org/viewvc/mediawiki';

1. Todo: Make files name determined by url

$out = '/var/www/svn-report.txt';

1. Set up a user agent

use HTTP::Request; use LWP::UserAgent; $client = LWP::UserAgent->new(

       cookie_jar => {},
       agent => 'Mozilla/5.0',
       from => 'svn-report.pl@organicdesign.co.nz',
       timeout => 10,
       max_size => 20000
       );

$found = true;

1. Todo: Start at last processed revision in $out

$revision = 1;

while ($found) { $revision++; $response = $client->get("$url?view=rev&revision=$revision"); $content = $response->content;

if ($content =~ /

404 Not Found<\/pre>/) {
		$found = false;
	}
	else {
		$core   = 0;
		$author = ;
		$date   = ;
		if ($content =~ /Changed paths:<\/strong>.+phase3/s)   { $core = 1    } # Todo: Extract all path info
		if ($content =~ /Author:<\/th>\s*(.*?)<\/td>/s)        { $author = $1 }
		if ($content =~ /Date:<\/th>\s*(.+?)\s+UTC.*?<\/td>/s) { $date = $1   }

		$line = "$revision,$date,$author,$core\n";
		print $line;
		open OUTH,'>>',$out or die "Can't open '$out' for writing!";
		print OUTH $line;
		close OUTH;
	}
}