# Blosxom Plugin: push_if_first # Author(s): Kyo Nagashima # Version: 2005-10-16 # Blosxom Home/Docs/Licensing: http://www.blosxom.com/ package push_if_first; use strict; use vars qw($data $is_first); # --- Configurable variables ----------- $data = <<"_DATA_";
_DATA_ # --- Plug-in package variables -------- $is_first = 0; # -------------------------------------- sub start { return 1; } sub story { if ($data and $is_first) { $is_first = 0; $data = ''; return 0; } elsif (!$data and !$is_first) { return 0; } else { $is_first = 1; return 1; } } 1;