diff options
| author | Joey Hess <joey@kodama.kitenet.net> | 2008-07-21 13:40:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kodama.kitenet.net> | 2008-07-21 13:41:17 -0400 |
| commit | c6d1ae33d224486f347d39005e516f514c613d3c (patch) | |
| tree | ae831d4b5a39ef7a3ea384dab61880f2f564373c /IkiWiki/Rcs/svn.pm | |
| parent | a204f86786d25214fa19f605c26815c068cc4b43 (diff) | |
| download | ikiwiki-c6d1ae33d224486f347d39005e516f514c613d3c.tar ikiwiki-c6d1ae33d224486f347d39005e516f514c613d3c.tar.gz | |
All rcs backends need to implement rcs_remove
(Done for svn, git.)
Diffstat (limited to 'IkiWiki/Rcs/svn.pm')
| -rw-r--r-- | IkiWiki/Rcs/svn.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/IkiWiki/Rcs/svn.pm b/IkiWiki/Rcs/svn.pm index 6a822e896..6c15c2ca9 100644 --- a/IkiWiki/Rcs/svn.pm +++ b/IkiWiki/Rcs/svn.pm @@ -134,6 +134,23 @@ sub rcs_add ($) { #{{{ } } #}}} +sub rcs_remove ($) { #{{{ + # filename is relative to the root of the srcdir + my $file=shift; + + if (-d "$config{srcdir}/.svn") { + my $parent=dirname($file); + while (! -d "$config{srcdir}/$parent/.svn") { + $file=$parent; + $parent=dirname($file); + } + + if (system("svn", "rm", "--force", "--quiet", "$config{srcdir}/$file") != 0) { + warn("svn rm failed\n"); + } + } +} #}}} + sub rcs_recentchanges ($) { #{{{ my $num=shift; my @ret; |