--- CVSROOT/cvs2rss.pl 2005/10/24 21:53:20 1.9 +++ CVSROOT/cvs2rss.pl 2005/10/24 21:57:12 1.10 @@ -42,8 +42,6 @@ my $cvsDiff = 1; my $author = getpwuid(getuid()) . "\@" . $emailDomain; $author = 'guy' . "\@" . 'albertelli.com'; my $pubDate = strftime('%a, %d %b %Y %H:%M:%S %Z',localtime(time)); -my $description; - my @args = split(" ", $ARGV[0]); # bail when this is a new directory @@ -71,25 +69,27 @@ $rss->channel( # Limit entries in the feed to $numEntries pop(@{$rss->{'items'}}) while (@{$rss->{'items'}} >= $numEntries); +my $commit_msg; +while () { + chomp($_); + if ($_=~/^[A-Z].*:\s*$/) { + $_ = "
" . &HTML::Entities::encode($_,'<>&"') . "
"; + } else { + $_ = &HTML::Entities::encode($_,'<>&"'); + $_ .= "
"; + } + $commit_msg .= $_; +} + foreach my $file (@args) { my @title=split(",",$file); - + my $description = $commit_msg; # Format title of the rss item # Remove space, append / and set title to /file/that/changed - oldversion/newversion $title[0] =~s/ /\//; # Format the cvslog msg itself - while () { - chomp($_); - if ($_=~/^[A-Z].*:\s*$/) { - $_ = "
" . &HTML::Entities::encode($_,'<>&"') . "
"; - } else { - $_ = &HTML::Entities::encode($_,'<>&"'); - $_ .= "
"; - } - $description .= $_; - } if ($cvsDiff == 1) {