X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fupstream%2Fblosxom-plugins.git;a=blobdiff_plain;f=barijaona%2Fpagetype;fp=barijaona%2Fpagetype;h=46222496ed80ba0d707eccc334d594c3a1e013cb;hp=0000000000000000000000000000000000000000;hb=0e82653017f4620529c0ab72178280f9f2267ce5;hpb=0ec7992111253a7e4c6f48da2c28f2ef4ba497cd

diff --git a/barijaona/pagetype b/barijaona/pagetype
new file mode 100644
index 0000000..4622249
--- /dev/null
+++ b/barijaona/pagetype
@@ -0,0 +1,79 @@
+# Blosxom plugin: pagetype
+# Author(s): Barijaona Ramaholimihaso
+# Version: 2006-01-01blosxom2
+# Documentation: see bottom of file or perldoc title
+
+package pagetype;
+
+# ------------------ Config variables ---------------------
+
+use vars qw($pagetype $static);
+$pagetype = "" ;
+
+# ---------------------------------------------------------
+sub start { 
+$static = ($blosxom::static_or_dynamic eq 'static');
+1; }
+
+sub skip {
+
+	if ($blosxom::path_info_yr ne '' )
+		{$pagetype = 'chrono' ; }
+	elsif ($static && ( $blosxom::path_info =~ m!^(\d{4})!))
+		{$pagetype = 'chrono' ; }
+	elsif (($blosxom::path_info =~ /$blosxom::flavour$/) or (($blosxom::path_info =~ /$blosxom::file_extension$/) && $static))
+		{$pagetype = 'story' ; }
+	elsif ($blosxom::path_info eq "")
+		{$pagetype = 'main' ; }
+	else
+		{ $pagetype = 'category';};
+
+	# let blosxom continue
+	return undef;
+}
+
+
+1;
+
+__END__
+=head1 NAME
+
+Blosxom Plug-in: pagetype
+
+=head1 SYNOPSIS
+
+The variable $pagetype::pagetype is to be used with interpolate_fancy.
+
+You can test it in your templates to know what kind of page Blosxom is currently rendering :
+
+main : the root of the blog
+category : a category archive page
+chrono : a chronological archive page (per year, per month, per day...)
+story : an individual story page
+
+=head1 VERSION
+
+2004-08-22blosxom2
+
+=head2 CHANGES
+
+2006-01-01blosxom2 : take into account the corrections of $path_info in recent versions of blosxom.cgi 
+
+2004-08-22blosxom2 : First published version
+
+=head1 AUTHOR
+
+Barijaona Ramaholimihaso <http://homepage.mac.com/barijaona>
+
+=head1 SEE ALSO
+
+Blosxom Home/Docs/Licensing: http://www.raelity.org/apps/blosxom/
+
+Blosxom Plugin Docs: http://www.raelity.org/apps/blosxom/plugin.shtml
+
+=head1 COPYRIGHT
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+=cut