Norse_Harold/0ad
1
0
Fork 0
forked from 0ad/0ad
Code Pull Requests Activity

# Experimental Atom feed output for public revision log

Browse Source 
This was SVN commit r4774.
This commit is contained in:
Ykkrosh 2007-01-16 00:46:09 +00:00
parent 62ccd531ed
commit 5d05ef4ea8
2 changed files with 46 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
source/tools/autolog/SVNLog/config.yml
View File

@ -8,3 +8,4 @@ cdbi:
scp:
command : /usr/bin/scp -i /var/www/svnlog/ssh/wfgkey
filename: philip@wildfiregames.com:~/svnlog/public
filename_feed: philip@wildfiregames.com:~/svnlog/public_feed

49
source/tools/autolog/SVNLog/lib/SVNLog/Controller/LogUpdate.pm
View File

@ -4,8 +4,9 @@ use strict;
use base 'Catalyst::Controller';
use XML::Simple;
use Text::ASCIITable::Wrap;
use File::Remote;
use File::Remote;
use XML::Atom::SimpleFeed;
use Data::UUID;
sub doupdate : Local
{
@ -47,7 +48,8 @@ sub doupdate : Local
add_default_public_msgs($c);
my $scp = new File::Remote(rcp => $c->config->{scp}{command});
$scp->writefile($c->config->{scp}{filename}, generate_text()) or die $!;
$scp->writefile($c->config->{scp}{filename}, generate_text()) or die $!;
$scp->writefile($c->config->{scp}{filename_feed}, generate_feed()) or die $!;
$c->res->body("Updated log to $max_seen.");
}
@ -93,7 +95,14 @@ sub createtext : Local
{
my ($self, $c) = @_;
my $out = generate_text();
$c->res->body("<tt>$out</tt>");
$c->res->body($out);
}
sub createfeed : Local
{
my ($self, $c) = @_;
my $out = generate_feed();
$c->res->body($out);
}
@ -125,6 +134,38 @@ EOF
return $out;
}
sub generate_feed
{
my @logentries = SVNLog::Model::CDBI::Logentry->recent(7);
my $uid_gen = new Data::UUID;
my $feed = new XML::Atom::SimpleFeed(
title => "0 A.D. Revision Log",
link => "http://www.wildfiregames.com/0ad/",
id => "urn:uuid:" . $uid_gen->create_from_name_str('WFG SVN feed', 'feed'),
);
for (@logentries)
{
my ($revision, $author, $date, $msg) = ($_->revision, $_->author, $_->date, $_->public_msg);
next unless defined $msg and $msg->msg;
my $uid = $uid_gen->create_from_name_str('WFG SVN feed', $revision);
$feed->add_entry(
title => "Revision $revision",
id => "urn:uuid:$uid",
author => $author,
content => $msg->msg,
published => $date,
updated => $date,
);
}
return $feed->as_string;
}
sub filter_copyfrom
{
my @r = @_;