# Blosxom Plugin: debtags vim:ft=perl: # Author: Gerfried Fuchs # Version: 0.2.0 (2009-01-07) # Documentation: See the end of this file or type: perldoc debtags package debtags; # --- Configurable variables ----- # none needed # -------------------------------- sub detagit { # detaggs the reference my ($reference) = @_; $$reference =~ s!]+)\s*/?>!$1!sg; ## disabled again, too many false-positives # $$reference =~ s|(?#$1|g; $$reference =~ s#]+)\s*/?>#$1#sg; $$reference =~ s#]+)\s*/?>#$1#sg; $$reference =~ s#]+)\s*/?>#$1#sg; 1; } sub start { 1; } sub story { my ($class, $path, $fn, $story, $title, $body) = @_; detagit($body); 1; } 1; __END__ =head1 NAME Blosxom Plugin: debtags =head1 SYNOPSIS You can use two new tags in your text: which will result in a 12345 link, which in turn turns into blosxom, which appears as blosxom, and which gets expanded to CVE-2008-2236. More are planed, I am always up for suggestions. =head1 VERSION 0.2.0 =head1 AUTHOR Gerfried Fuchs , http://rhonda.deb.at/projects/blosxom/ =head1 SEE ALSO Blosxom Home/Docs/Licensing: http://blosxom.sf.net/ Blosxom Plugin Docs: http://blosxom.sf.net/documentation/users/plugins.html =head1 BUGS None that I know of. If you find one feel free to fix it and send me a patch so I can incorporate it in future releases. =head1 LICENSE DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE v2