X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fupstream%2Fblosxom.git;a=blobdiff_plain;f=blosxom.cgi;h=420a1b6e91ea9c7f4d600dcd240b0aa360cde077;hp=c079ab257a6a53a511ec8f264d0a71ca16929886;hb=42ddf87fb0f83ca4b7897e2c3e486c571494d978;hpb=d70589b00686a9eab5e34eafcc3b144c73ee893e diff --git a/blosxom.cgi b/blosxom.cgi index c079ab2..420a1b6 100755 --- a/blosxom.cgi +++ b/blosxom.cgi @@ -2,7 +2,7 @@ # Blosxom # Author: Rael Dornfest (2002-2003), The Blosxom Development Team (2005-2009) -# Version: 2.1.2 ($Id: blosxom.cgi,v 1.97 2009/07/19 17:14:20 xtaran Exp $) +# Version: 2.1.2 ($Id: blosxom.cgi,v 1.98 2009/07/19 17:18:37 xtaran Exp $) # Home/Docs/Licensing: http://blosxom.sourceforge.net/ # Development/Downloads: http://sourceforge.net/projects/blosxom @@ -195,7 +195,6 @@ development was picked up by a team of dedicated users of blosxom since =cut - use vars qw! $version $blog_title @@ -229,7 +228,6 @@ use vars qw! $path_info_da $path_info_mo_num $flavour - $static_or_dynamic %month2num @num2month $interpolate @@ -244,7 +242,7 @@ use vars qw! $encode_8bit_chars $url_escape_re $content_type -!; + !; use strict; use FileHandle; @@ -312,7 +310,7 @@ unless ($url) { $url = url(); # Unescape %XX hex codes (from URI::Escape::uri_unescape) - $url =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; + $url =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; # Support being called from inside a SSI document $url =~ s/^included:/http:/ if $ENV{SERVER_PROTOCOL} eq 'INCLUDED'; @@ -363,14 +361,14 @@ else { # Path Info Magic # Take a gander at HTTP's PATH_INFO for optional blog name, archive yr/mo/day my @path_info = split m{/}, path_info() || param('path'); -$path_info_full = join '/', @path_info; # Equivalent to $ENV{PATH_INFO} +$path_info_full = join '/', @path_info; # Equivalent to $ENV{PATH_INFO} shift @path_info; # Flavour specified by ?flav={flav} or index.{flav} $flavour = ''; -if (! ($flavour = param('flav'))) { +if ( !( $flavour = param('flav') ) ) { if ( $path_info[$#path_info] =~ /(.+)\.(.+)$/ ) { - $flavour = $2; + $flavour = $2; pop @path_info if $1 eq 'index'; } } @@ -380,45 +378,50 @@ $flavour ||= $default_flavour; $flavour = blosxom_html_escape($flavour); sub blosxom_html_escape { - my $string = shift; - my %escape = ( - '<' => '<', - '>' => '>', - '&' => '&', - '"' => '"', - "'" => ''' - ); - my $escape_re = join '|' => keys %escape; - $string =~ s/($escape_re)/$escape{$1}/g; - $string; + my $string = shift; + my %escape = ( + '<' => '<', + '>' => '>', + '&' => '&', + '"' => '"', + "'" => ''' + ); + my $escape_re = join '|' => keys %escape; + $string =~ s/($escape_re)/$escape{$1}/g; + $string; } # Global variable to be used in head/foot.{flavour} templates $path_info = ''; + # Add all @path_info elements to $path_info till we come to one that could be a year -while ( $path_info[0] && $path_info[0] !~ /^(19|20)\d{2}$/) { +while ( $path_info[0] && $path_info[0] !~ /^(19|20)\d{2}$/ ) { $path_info .= '/' . shift @path_info; } # Pull date elements out of path -if ($path_info[0] && $path_info[0] =~ /^(19|20)\d{2}$/) { - $path_info_yr = shift @path_info; - if ($path_info[0] && - ($path_info[0] =~ /^(0\d|1[012])$/ || - exists $month2num{ ucfirst lc $path_info_mo })) { - $path_info_mo = shift @path_info; - # Map path_info_mo to numeric $path_info_mo_num - $path_info_mo_num = $path_info_mo =~ /^\d{2}$/ - ? $path_info_mo - : $month2num{ ucfirst lc $path_info_mo }; - if ($path_info[0] && $path_info[0] =~ /^[0123]\d$/) { - $path_info_da = shift @path_info; +if ( $path_info[0] && $path_info[0] =~ /^(19|20)\d{2}$/ ) { + $path_info_yr = shift @path_info; + if ($path_info[0] + && ( $path_info[0] =~ /^(0\d|1[012])$/ + || exists $month2num{ ucfirst lc $path_info_mo } ) + ) + { + $path_info_mo = shift @path_info; + + # Map path_info_mo to numeric $path_info_mo_num + $path_info_mo_num + = $path_info_mo =~ /^\d{2}$/ + ? $path_info_mo + : $month2num{ ucfirst lc $path_info_mo }; + if ( $path_info[0] && $path_info[0] =~ /^[0123]\d$/ ) { + $path_info_da = shift @path_info; + } } - } } # Add remaining path elements to $path_info -$path_info .= '/' . join('/', @path_info); +$path_info .= '/' . join( '/', @path_info ); # Strip spurious slashes $path_info =~ s!(^/*)|(/*$)!!g; @@ -461,7 +464,7 @@ my @plugin_list = (); my %plugin_hash = (); # If $plugin_list is set, read plugins to use from that file -if ( $plugin_list ) { +if ($plugin_list) { if ( -r $plugin_list and $fh->open("< $plugin_list") ) { @plugin_list = map { chomp $_; $_ } grep { /\S/ && !/^#/ } <$fh>; $fh->close; @@ -473,7 +476,7 @@ if ( $plugin_list ) { } # Otherwise walk @plugin_dirs to get list of plugins to use -if ( ! @plugin_list && @plugin_dirs ) { +if ( !@plugin_list && @plugin_dirs ) { for my $plugin_dir (@plugin_dirs) { next unless -d $plugin_dir; if ( opendir PLUGINS, $plugin_dir ) { @@ -503,7 +506,7 @@ foreach my $plugin (@plugin_list) { my $on_off = $off eq '_' ? -1 : 1; # Allow perl module plugins - # The -z test is a hack to allow a zero-length placeholder file in a + # The -z test is a hack to allow a zero-length placeholder file in a # $plugin_path directory to indicate an @INC module should be loaded if ( $plugin =~ m/::/ && ( $plugin_list || -z $plugin_hash{$plugin} ) ) { @@ -547,11 +550,12 @@ sub load_template { # Define default entries subroutine $entries = sub { my ( %files, %indexes, %others ); + my $param_all = param('-all'); find( sub { - my $d; my $curr_depth = $File::Find::dir =~ tr[/][]; return if $depth and $curr_depth > $depth; + return if !-r $File::Find::name; if ( @@ -560,7 +564,7 @@ $entries = sub { =~ m!^$datadir/(?:(.*)/)?(.+)\.$file_extension$! # not an index, .file, and is readable - and $2 ne 'index' and $2 !~ /^\./ and ( -r $File::Find::name ) + and $2 ne 'index' and $2 !~ /^\./ ) { @@ -576,12 +580,12 @@ $entries = sub { # static rendering bits my $static_file = "$static_dir/$1/index." . $static_flavours[0]; - if ( param('-all') + if ( $param_all or !-f $static_file or stat($static_file)->mtime < $mtime ) { $indexes{$1} = 1; - $d = join( '/', ( nice_date($mtime) )[ 5, 2, 3 ] ); + my $d = join( '/', ( nice_date($mtime) )[ 5, 2, 3 ] ); $indexes{$d} = $d; $indexes{ ( $1 ? "$1/" : '' ) . "$2.$file_extension" } = 1 if $static_entries; @@ -589,7 +593,7 @@ $entries = sub { } # not an entries match - elsif ( !-d $File::Find::name and -r $File::Find::name ) { + elsif ( !-d $File::Find::name ) { $others{$File::Find::name} = stat($File::Find::name)->mtime; } }, @@ -615,11 +619,7 @@ my ( $files, $indexes, $others ) = &$entries(); %indexes = %$indexes; # Static -if ( !$ENV{GATEWAY_INTERFACE} - and param('-password') - and $static_password - and param('-password') eq $static_password ) -{ +if ( $static_or_dynamic eq 'static' ) { param('-quiet') or print "Blosxom is generating static index pages...\n"; @@ -720,10 +720,13 @@ sub generate { # Define default interpolation subroutine $interpolate = sub { + package blosxom; my $template = shift; + # Interpolate scalars, namespaced scalars, and hash/hashref scalars - $template =~ s/(\$\w+(?:::\w+)*(?:(?:->)?{([\'\"]?)[-\w]+\2})?)/"defined $1 ? $1 : ''"/gee; + $template + =~ s/(\$\w+(?:::\w+)*(?:(?:->)?{([\'\"]?)[-\w]+\2})?)/"defined $1 ? $1 : ''"/gee; return $template; }; @@ -771,8 +774,7 @@ sub generate { # Define a default sort subroutine my $sort = sub { my ($files_ref) = @_; - return - sort { $files_ref->{$b} <=> $files_ref->{$a} } + return sort { $files_ref->{$b} <=> $files_ref->{$a} } keys %$files_ref; }; @@ -858,22 +860,22 @@ sub generate { } } - # Save unescaped versions and allow them to be used in - # flavour templates. - use vars qw/$url_unesc $path_unesc $fn_unesc/; - $url_unesc = $url; - $path_unesc = $path; - $fn_unesc = $fn; - - # Fix special characters in links inside XML content - if ( $encode_xml_entities && - $content_type =~ m{\bxml\b} && - $content_type !~ m{\bxhtml\b} ) { + # Save unescaped versions and allow them to be used in + # flavour templates. + use vars qw/$url_unesc $path_unesc $fn_unesc/; + $url_unesc = $url; + $path_unesc = $path; + $fn_unesc = $fn; + + # Fix special characters in links inside XML content + if ( $encode_xml_entities + && $content_type =~ m{\bxml\b} + && $content_type !~ m{\bxhtml\b} ) + { + # Escape special characters inside the container - $url =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))eg; - $path =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))eg; - $fn =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))eg; + &url_escape_url_path_and_fn(); # Escape <, >, and &, and to produce valid RSS $title = blosxom_html_escape($title); @@ -883,11 +885,9 @@ sub generate { $fn = blosxom_html_escape($fn); } - # Fix special characters in links inside XML content + # Fix special characters in links inside XML content if ($encode_8bit_chars) { - $url =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))ge; - $path =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))ge; - $fn =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))ge; + &url_escape_url_path_and_fn(); } $story = &$interpolate($story); @@ -947,6 +947,12 @@ sub nice_date { return ( $dw, $mo, $mo_num, $da, $ti, $yr, $utc_offset ); } +sub url_escape_url_path_and_fn { + $url =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))eg; + $path =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))eg; + $fn =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))eg; +} + # Default HTML and RSS template bits __DATA__ html content_type text/html; charset=$blog_encoding