From 8e0236b50b0c3dd55dfe055d2c9380f9141f07d8 Mon Sep 17 00:00:00 2001 From: joey Date: Sun, 17 Sep 2006 17:30:18 +0000 Subject: more updates from Clint --- IkiWiki/Rcs/tla.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'IkiWiki/Rcs') diff --git a/IkiWiki/Rcs/tla.pm b/IkiWiki/Rcs/tla.pm index 503073d7c..c9b64dbe5 100644 --- a/IkiWiki/Rcs/tla.pm +++ b/IkiWiki/Rcs/tla.pm @@ -15,6 +15,7 @@ sub quiet_system (@) { close STDOUT; open (STDOUT, ">/dev/null"); my $ret=system(@_); + close STDOUT; open (STDOUT, ">&SAVEOUT"); close SAVEOUT; return $ret; @@ -104,6 +105,7 @@ sub rcs_recentchanges ($) { my $summ = $head->get("Summary"); my $newfiles = $head->get("New-files"); my $modfiles = $head->get("Modified-files"); + my $remfiles = $head->get("Removed-files"); my $user = $head->get("Creator"); my @paths = grep { !/^(.*\/)?\.arch-ids\/.*\.id$/ } @@ -166,9 +168,10 @@ sub rcs_notify () { #{{{ my $newfiles = $head->get("New-files"); my $modfiles = $head->get("Modified-files"); + my $remfiles = $head->get("Removed-files"); - my @changed_pages = grep {!/(^.*\/)?\.arch-ids\/.*\.id$/} split(/ /, - "$newfiles $modfiles"); + my @changed_pages = grep { !/(^.*\/)?\.arch-ids\/.*\.id$/ } + split(/ /, "$newfiles $modfiles $remfiles .arch-ids/fake.id"); if ($message =~ /$tla_webcommit/) { $user=defined $2 ? "$2" : "$3"; -- cgit v1.2.3