git.oblomov.eu Git - ikiwiki/blob - 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                 },
  29 }
  30
  31
  32 sub rcs_update () {
  33 }
  34
  35 sub rcs_prepedit ($) {
  36         return ""
  37 }
  38
  39 sub rcs_commit ($$$;$$) {
  40         my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
  41         return undef # success
  42 }
  43
  44 sub rcs_commit_staged ($$$) {
  45         my ($message, $user, $ipaddr)=@_;
  46         return undef # success
  47 }
  48
  49 sub rcs_add ($) {
  50 }
  51
  52 sub rcs_remove ($) {
  53 }
  54
  55 sub rcs_rename ($$) {
  56 }
  57
  58 sub rcs_recentchanges ($) {
  59 }
  60
  61 sub rcs_diff ($) {
  62 }
  63
  64 sub rcs_getctime ($) {
  65         error gettext("getctime not implemented");
  66 }
  67
  68 1