#!/usr/bin/perl # Ikiwiki version plugin. package IkiWiki::Plugin::version; use warnings; use strict; use IkiWiki 3.00; sub import { hook(type => "getsetup", id => "version", call => \&getsetup); hook(type => "needsbuild", id => "version", call => \&needsbuild); hook(type => "preprocess", id => "version", call => \&preprocess); } sub getsetup () { return plugin => { safe => 1, rebuild => undef, section => "widget", }, } sub needsbuild (@) { my $needsbuild=shift; foreach my $page (keys %pagestate) { if (exists $pagestate{$page}{version}{shown}) { if ($pagestate{$page}{version}{shown} ne $IkiWiki::version) { push @$needsbuild, $pagesources{$page}; } if (exists $pagesources{$page} && grep { $_ eq $pagesources{$page} } @$needsbuild) { # remove state, will be re-added if # the version is still shown during the # rebuild delete $pagestate{$page}{version}{shown}; } } } } sub preprocess (@) { my %params=@_; $pagestate{$params{destpage}}{version}{shown}=$IkiWiki::version; } 1 ame='h' onchange='this.form.submit();'> Unnamed repository; edit this file to name it for gitweb.Jonas Smedegaard
summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/orphans.pm
blob: 3a8a7954fe1dd6e5c49b5ba12a7f5ec6557e6fa6 (plain) 
    

  1. #!/usr/bin/perl
    2. 

  2. # Provides a list of pages no other page links to.
    3. 

  3. package IkiWiki::Plugin::orphans;
    4. 

  4. 

  5. use warnings;
    6. 

  6. use strict;
    7. 

  7. use IkiWiki;
    8. 

  8. 

  9. sub import { #{{{
    10. 

  10.     hook(type => "preprocess", id => "orphans", call => \&preprocess);
    11. 

  11. } # }}}
    12. 

  12. 

  13. sub preprocess (@) { #{{{
    14. 

  14.     my %params=@_;
    15. 

  15.     $params{pages}="*" unless defined $params{pages};
    16. 

  16.     
    17. 

  17.     # Needs to update whenever a page is added or removed, so
    18. 

  18.     # register a dependency.
    19. 

  19.     add_depends($params{page}, $params{pages});
    20. 

  20.     
    21. 

  21.     my %linkedto;
    22. 

  22.     foreach my $p (keys %links) {
    23. 

  23.         map { $linkedto{bestlink($p, $_)}=1 if length $_ }
    24. 

  24.             @{$links{$p}};
    25. 

  25.     }
    26. 

  26.     
    27. 

  27.     my @orphans;
    28. 

  28.     foreach my $page (keys %renderedfiles) {