version 1.4, 2005/10/14 14:35:43
|
version 1.7, 2005/10/17 19:50:57
|
Line 76 while (<STDIN>) {
|
Line 76 while (<STDIN>) {
|
$_ = "<br /><b>" . &HTML::Entities::encode($_,'<>&"') . "</b><br />"; |
$_ = "<br /><b>" . &HTML::Entities::encode($_,'<>&"') . "</b><br />"; |
} |
} |
else { |
else { |
|
$_ = &HTML::Entities::encode($_,'<>&"'); |
$_ .= "<br />"; |
$_ .= "<br />"; |
} |
} |
$description .= $_; |
$description .= $_; |
Line 105 $rss->add_item(
|
Line 106 $rss->add_item(
|
author => $author, |
author => $author, |
description=> $description, |
description=> $description, |
mode => 'insert', |
mode => 'insert', |
link => 'http://install.loncapa.org/cgi-bin/cvsweb.cgi/'.$title[0] |
pubDate => $pubDate, |
|
link => 'http://install.loncapa.org/cgi-bin/cvsweb.cgi/'.$title[0].'.diff?r1='.$title[1].';r2='.$title[2].';f=h' |
); |
); |
|
|
foreach my $element (@{$rss->{'items'}}) { |
foreach my $element (@{$rss->{'items'}}) { |