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