a patch for the feature suggested

[git.ikiwiki.info.git] / IkiWiki / Plugin / norcs.pm

diff --git a/IkiWiki/Plugin/norcs.pm b/IkiWiki/Plugin/norcs.pm
index 72c66569c3651c98fd94ba922cafb75a9f30595b..6fa8bfa3adc8e49f61a4abf42941452f57eb0fb8 100644 (file)
--- a/IkiWiki/Plugin/norcs.pm
+++ b/IkiWiki/Plugin/norcs.pm
@@ -6,7 +6,8 @@ use warnings;
 use strict;
 use IkiWiki;
 
-sub import { #{{{
+sub import {
+       hook(type => "getsetup", id => "norcs", call => \&getsetup);
        hook(type => "rcs", id => "rcs_update", call => \&rcs_update);
        hook(type => "rcs", id => "rcs_prepedit", call => \&rcs_prepedit);
        hook(type => "rcs", id => "rcs_commit", call => \&rcs_commit);
@@ -17,42 +18,55 @@ sub import { #{{{
        hook(type => "rcs", id => "rcs_recentchanges", call => \&rcs_recentchanges);
        hook(type => "rcs", id => "rcs_diff", call => \&rcs_diff);
        hook(type => "rcs", id => "rcs_getctime", call => \&rcs_getctime);
-} #}}}
+       hook(type => "rcs", id => "rcs_getmtime", call => \&rcs_getmtime);
+}
 
-sub rcs_update () { #{{{
-} #}}}
+sub getsetup () {
+       return
+               plugin => {
+                       safe => 0, # rcs plugin
+                       rebuild => 0,
+                       section => "rcs",
+               },
+}
 
-sub rcs_prepedit ($) { #{{{
+
+sub rcs_update () {
+}
+
+sub rcs_prepedit ($) {
        return ""
-} #}}}
+}
 
-sub rcs_commit ($$$;$$) { #{{{
-       my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
+sub rcs_commit (@) {
        return undef # success
-} #}}}
+}
 
-sub rcs_commit_staged ($$$) { #{{{
-       my ($message, $user, $ipaddr)=@_;
+sub rcs_commit_staged (@) {
        return undef # success
-} #}}}
+}
+
+sub rcs_add ($) {
+}
 
-sub rcs_add ($) { #{{{
-} #}}}
+sub rcs_remove ($) {
+}
 
-sub rcs_remove ($) { #{{{
-} #}}}
+sub rcs_rename ($$) {
+}
 
-sub rcs_rename ($$) { #{{{
-} #}}}
+sub rcs_recentchanges ($) {
+}
 
-sub rcs_recentchanges ($) { #{{{
-} #}}}
+sub rcs_diff ($;$) {
+}
 
-sub rcs_diff ($) { #{{{
-} #}}}
+sub rcs_getctime ($) {
+       return 0;
+}
 
-sub rcs_getctime ($) { #{{{
-       error gettext("getctime not implemented");
-} #}}}
+sub rcs_getmtime ($) {
+       return 0;
+}
 
 1