X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fupstream%2Fblosxom-plugins.git;a=blobdiff_plain;f=xtaran%2Fmultcat;fp=xtaran%2Fmultcat;h=73a1031fcc9ae752a20df66893c78e5533b6bf45;hp=0000000000000000000000000000000000000000;hb=f411779f855bc712a621b9a3c6103ac9c6732403;hpb=8423e2bd76579f5f032cfb2cee41212ca9699055

diff --git a/xtaran/multcat b/xtaran/multcat
new file mode 100644
index 0000000..73a1031
--- /dev/null
+++ b/xtaran/multcat
@@ -0,0 +1,90 @@
+# -*- perl -*-
+# Blosxom Plugin: multcat
+# Author(s): Axel Beckert <blosxom@deuxchevaux.org>
+# Version: 0.01
+# Licensing: GPL v2 or newer, http://www.gnu.org/licenses/gpl.txt
+# multcat web page: http://noone.org/blosxom/multcat
+# Blosxom web page: http://www.blosxom.com/
+
+### Documentation:
+#
+# This is a plugin for blosxom.
+#
+# Installation:
+#
+#  Just drop it into your blosxoms plugin directory and it should start
+#  working. It needs a symbolic link supporting operating system, so it
+#  may not work under Windows. Unices should work fine, if you don't do
+#  ugly things with file systems. ;-)
+# 
+# What it does:
+#
+#  It allows to have postings in multiple categories without having
+#  them multiple times on the main page or any category's page which
+#  includes at least two categories, the posting appears in. Designed
+#  to work together with categorytree, which still counts all
+#  occurrences of a posting.
+#
+# Plugin Order:
+#
+#  If you change the plugin order and have the categorytree plugin
+#  installed, it must come before multcat to work as intended.
+#
+#  If you have the moreentries plugin installed, you may change it's
+#  position in the plugin order to run after multcat.
+#
+# Version History:
+#
+#  0.01: Initial release
+#
+
+package multcat;
+
+use File::Basename;
+
+sub start { 1; }
+
+sub filter {
+    my ($pkg, $files_ref) = @_;
+
+    my @keys = 
+	#grep { m(^$blosxom::datadir/?$blosxom::path_info) }
+	keys %$files_ref;
+    my %localfiles = ();
+    my %debug = ();
+    my %debug2 = ();
+    my %debug3 = ();
+
+    foreach (@keys) {
+	$localfiles{$_} = $files_ref->{$_} if m(/$blosxom::path_info);
+    }
+
+    foreach my $key ( @keys ) {
+	if (-l $key) {
+	    my $dest = readlink($key);
+	    $debug{$key} = 
+	    $dest = dirname($key)."/$dest";
+	    while ($dest =~ m(/../)) {
+		$dest =~ s(/[^/]+/\.\./)(/);
+	    }
+	    $debug2{$key} = $dest;
+
+	    $debug3{$key} = 
+	    my $destdate = $localfiles{$dest};
+
+	    # The found symlink is not a story which is to be
+	    # displayed, so we don't need to extinct it from the
+	    # website
+	    next unless $destdate;
+	    
+	    delete($files_ref->{$key});
+	}
+    }
+
+    use Data::Dumper;
+    $debug = Dumper $blosxom::path_info, $files_ref, \@keys, \%localfiles, \%debug, \%debug2, \%debug3;
+
+    1;
+}
+
+1;