tag_autocreate fixups

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

diff --git a/IkiWiki/Plugin/norcs.pm b/IkiWiki/Plugin/norcs.pm
index 72c66569c3651c98fd94ba922cafb75a9f30595b..053652a5f8f86db533f45db98c315ec8527ebe8a 100644 (file)
--- a/IkiWiki/Plugin/norcs.pm
+++ b/IkiWiki/Plugin/norcs.pm
@@ -6,7 +6,8 @@ use warnings;
 use strict;
 use IkiWiki;
 
 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);
        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,57 @@ 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_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 ""
        return ""

-} #}}}
+}

 
 

-sub rcs_commit ($$$;$$) { #{{{
+sub rcs_commit ($$$;$$) {

        my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
        return undef # success
        my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
        return undef # success

-} #}}}
+}

 
 

-sub rcs_commit_staged ($$$) { #{{{
+sub rcs_commit_staged ($$$) {

        my ($message, $user, $ipaddr)=@_;
        return undef # success
        my ($message, $user, $ipaddr)=@_;
        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
 
 1