diff options
| author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-09-17 17:30:18 +0000 |
|---|---|---|
| committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-09-17 17:30:18 +0000 |
| commit | 8e0236b50b0c3dd55dfe055d2c9380f9141f07d8 (patch) | |
| tree | 89087a196a63097c79e84db8b08114b8d9f5b209 | |
| parent | 313e85700bb89857b89ff2538fb448185eeabcaf (diff) | |
more updates from Clint
| -rw-r--r-- | IkiWiki/Rcs/tla.pm | 7 |
1 files changed, 5 insertions, 2 deletions
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"; |