version 1.11, 2005/10/25 14:09:48
|
version 1.12, 2007/01/23 21:30:08
|
Line 34 my $rssFeed ="/home/loninst/public_html/
|
Line 34 my $rssFeed ="/home/loninst/public_html/
|
my $emailDomain = "loncapa.org"; |
my $emailDomain = "loncapa.org"; |
my $channelTitle = "Lon-CAPA RSS Feed"; |
my $channelTitle = "Lon-CAPA RSS Feed"; |
my $channelLink = "http://install.loncapa.org/loncapa.rss"; |
my $channelLink = "http://install.loncapa.org/loncapa.rss"; |
my $numEntries = 200; |
my $numEntries = 30; |
|
|
# Set this to 1 to enable cvs rdiff |
# Set this to 1 to enable cvs rdiff |
my $cvsDiff = 1; |
my $cvsDiff = 1; |
Line 103 foreach my $file (@args) {
|
Line 103 foreach my $file (@args) {
|
# This will rdiff it against the previous version, and |
# This will rdiff it against the previous version, and |
# include that diff in the rss feed |
# include that diff in the rss feed |
|
|
if (($title[1] != "NONE") && ($title[0]=~/(.*).(pm|pl|conf|tab)$/)){ |
if (($title[1] != "NONE") |
|
&& ($title[0]=~/(.*)\.(pm|pl|conf|tab)$/) |
|
&& ($title[0]!~|/localize/localize/..\.pm|) ) { |
my $tmpFile = "/tmp/diff.$$"; |
my $tmpFile = "/tmp/diff.$$"; |
my $cmdLine = "cvs -n rdiff -u -kk -r " . $title[1] . " -r " . $title[2] . " " . $title[0] . ">" . $tmpFile; |
my $cmdLine = "cvs -n rdiff -u -kk -r " . $title[1] . " -r " . $title[2] . " " . $title[0] . ">" . $tmpFile; |
system($cmdLine); |
system($cmdLine); |