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         hook(type => "rcs", id => "rcs_getmtime", call => \&rcs_getmtime);
  22 }
  23
  24 sub getsetup () {
  25         return
  26                 plugin => {
  27                         safe => 0, # rcs plugin
  28                         rebuild => 0,
  29                         section => "rcs",
  30                 },
  31 }
  32
  33
  34 sub rcs_update () {
  35 }
  36
  37 sub rcs_prepedit ($) {
  38         return ""
  39 }
  40
  41 sub rcs_commit ($$$;$$) {
  42         my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
  43         return undef # success
  44 }
  45
  46 sub rcs_commit_staged ($$$) {
  47         my ($message, $user, $ipaddr)=@_;
  48         return undef # success
  49 }
  50
  51 sub rcs_add ($) {
  52 }
  53
  54 sub rcs_remove ($) {
  55 }
  56
  57 sub rcs_rename ($$) {
  58 }
  59
  60 sub rcs_recentchanges ($) {
  61 }
  62
  63 sub rcs_diff ($) {
  64 }
  65
  66 sub rcs_getctime ($) {
  67         return 0;
  68 }
  69
  70 sub rcs_getmtime ($) {
  71         return 0;
  72 }
  73
  74 1