IkiWiki/Plugin/norcs.pm

   1 #!/usr/bin/perl
   2 # Stubs for no revision control.
   3 package IkiWiki::Plugin::norcs;
   4
   5 use warnings;
   6 use strict;
   7 use IkiWiki;
   8
   9 sub import {
  10         hook(type => "getsetup", id => "norcs", call => \&getsetup);
  11         hook(type => "rcs", id => "rcs_update", call => \&rcs_update);
  12         hook(type => "rcs", id => "rcs_prepedit", call => \&rcs_prepedit);
  13         hook(type => "rcs", id => "rcs_commit", call => \&rcs_commit);
  14         hook(type => "rcs", id => "rcs_commit_staged", call => \&rcs_commit_staged);
  15         hook(type => "rcs", id => "rcs_add", call => \&rcs_add);
  16         hook(type => "rcs", id => "rcs_remove", call => \&rcs_remove);
  17         hook(type => "rcs", id => "rcs_rename", call => \&rcs_rename);
  18         hook(type => "rcs", id => "rcs_recentchanges", call => \&rcs_recentchanges);
  19         hook(type => "rcs", id => "rcs_diff", call => \&rcs_diff);
  20         hook(type => "rcs", id => "rcs_getctime", call => \&rcs_getctime);
  21 }
  22
  23 sub getsetup () {
  24         return
  25                 plugin => {
  26                         safe => 0, # rcs plugin
  27                         rebuild => 0,
  28                         section => "rcs",
  29                 },
  30 }
  31
  32
  33 sub rcs_update () {
  34 }
  35
  36 sub rcs_prepedit ($) {
  37         return ""
  38 }
  39
  40 sub rcs_commit ($$$;$$) {
  41         my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
  42         return undef # success
  43 }
  44
  45 sub rcs_commit_staged ($$$) {
  46         my ($message, $user, $ipaddr)=@_;
  47         return undef # success
  48 }
  49
  50 sub rcs_add ($) {
  51 }
  52
  53 sub rcs_remove ($) {
  54 }
  55
  56 sub rcs_rename ($$) {
  57 }
  58
  59 sub rcs_recentchanges ($) {
  60 }
  61
  62 sub rcs_diff ($) {
  63 }
  64
  65 sub rcs_getctime ($) {
  66         error gettext("getctime not implemented");
  67 }
  68
  69 1