xtaran/multcat

   1 # -*- perl -*-
   2 # Blosxom Plugin: multcat
   3 # Author(s): Axel Beckert <blosxom@deuxchevaux.org>
   4 # Version: 0.01
   5 # Licensing: GPL v2 or newer, http://www.gnu.org/licenses/gpl.txt
   6 # multcat web page: http://noone.org/blosxom/multcat
   7 # Blosxom web page: http://www.blosxom.com/
   8
   9 ### Documentation:
  10 #
  11 # This is a plugin for blosxom.
  12 #
  13 # Installation:
  14 #
  15 #  Just drop it into your blosxoms plugin directory and it should start
  16 #  working. It needs a symbolic link supporting operating system, so it
  17 #  may not work under Windows. Unices should work fine, if you don't do
  18 #  ugly things with file systems. ;-)
  19 #
  20 # What it does:
  21 #
  22 #  It allows to have postings in multiple categories without having
  23 #  them multiple times on the main page or any category's page which
  24 #  includes at least two categories, the posting appears in. Designed
  25 #  to work together with categorytree, which still counts all
  26 #  occurrences of a posting.
  27 #
  28 # Plugin Order:
  29 #
  30 #  If you change the plugin order and have the categorytree plugin
  31 #  installed, it must come before multcat to work as intended.
  32 #
  33 #  If you have the moreentries plugin installed, you may change it's
  34 #  position in the plugin order to run after multcat.
  35 #
  36 # Version History:
  37 #
  38 #  0.01: Initial release
  39 #
  40
  41 package multcat;
  42
  43 use File::Basename;
  44
  45 sub start { 1; }
  46
  47 sub filter {
  48     my ($pkg, $files_ref) = @_;
  49
  50     my @keys =
  51         #grep { m(^$blosxom::datadir/?$blosxom::path_info) }
  52         keys %$files_ref;
  53     my %localfiles = ();
  54     my %debug = ();
  55     my %debug2 = ();
  56     my %debug3 = ();
  57
  58     foreach (@keys) {
  59         $localfiles{$_} = $files_ref->{$_} if m(/$blosxom::path_info);
  60     }
  61
  62     foreach my $key ( @keys ) {
  63         if (-l $key) {
  64             my $dest = readlink($key);
  65             $debug{$key} =
  66             $dest = dirname($key)."/$dest";
  67             while ($dest =~ m(/../)) {
  68                 $dest =~ s(/[^/]+/\.\./)(/);
  69             }
  70             $debug2{$key} = $dest;
  71
  72             $debug3{$key} =
  73             my $destdate = $localfiles{$dest};
  74
  75             # The found symlink is not a story which is to be
  76             # displayed, so we don't need to extinct it from the
  77             # website
  78             next unless $destdate;
  79
  80             delete($files_ref->{$key});
  81         }
  82     }
  83
  84     use Data::Dumper;
  85     $debug = Dumper $blosxom::path_info, $files_ref, \@keys, \%localfiles, \%debug, \%debug2, \%debug3;
  86
  87     1;
  88 }
  89
  90 1;