urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more updates from Clint

master
joey 2006-09-17 17:30:18 +00:00
parent 313e85700b
commit 8e0236b50b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
IkiWiki/Rcs/tla.pm
View File

@ -15,6 +15,7 @@ sub quiet_system (@) {
close STDOUT; close STDOUT;
open (STDOUT, ">/dev/null"); open (STDOUT, ">/dev/null");
my $ret=system(@_); my $ret=system(@_);
close STDOUT;
open (STDOUT, ">&SAVEOUT"); open (STDOUT, ">&SAVEOUT");
close SAVEOUT; close SAVEOUT;
return $ret; return $ret;
@ -104,6 +105,7 @@ sub rcs_recentchanges ($) {
my $summ = $head->get("Summary"); my $summ = $head->get("Summary");
my $newfiles = $head->get("New-files"); my $newfiles = $head->get("New-files");
my $modfiles = $head->get("Modified-files"); my $modfiles = $head->get("Modified-files");
my $remfiles = $head->get("Removed-files");
my $user = $head->get("Creator"); my $user = $head->get("Creator");
my @paths = grep { !/^(.*\/)?\.arch-ids\/.*\.id$/ } my @paths = grep { !/^(.*\/)?\.arch-ids\/.*\.id$/ }
@ -166,9 +168,10 @@ sub rcs_notify () { #{{{
my $newfiles = $head->get("New-files"); my $newfiles = $head->get("New-files");
my $modfiles = $head->get("Modified-files"); my $modfiles = $head->get("Modified-files");
my $remfiles = $head->get("Removed-files");
my @changed_pages = grep {!/(^.*\/)?\.arch-ids\/.*\.id$/} split(/ /, my @changed_pages = grep { !/(^.*\/)?\.arch-ids\/.*\.id$/ }
"$newfiles $modfiles"); split(/ /, "$newfiles $modfiles $remfiles .arch-ids/fake.id");
if ($message =~ /$tla_webcommit/) { if ($message =~ /$tla_webcommit/) {
$user=defined $2 ? "$2" : "$3"; $user=defined $2 ? "$2" : "$3";