#!/usr/bin/env perl
##############################################
#                                            #
# doblog: static blogs generation tool       #
#--------------------------------------------#
# @author: pancake <pancake@phreaker.net>    #
# @version: 0.4                              #
# @date: 2006-06-03                          #
#                                            #
##############################################

$progname="doblog";
$version="0.4";
$update=0;
$prefix="data";
$extension="html"; # could be overrided in doblog/themes/xxx/blog.conf (to be php, pl, etc)
$|=1;

if ($ARGV[0]) { $prefix=$ARGV[0]; }

$prefix="data";
print "Cannot find prefix directory '$prefix'\n" if ( ! -d $prefix );

# {{{ Default blog.conf values
$podcast=0;
$podcast_limit=5;
$blog_limit=0;
$cat_limit=0;
$read_more_string="[read more]";
$comment_add_string="[add comment]";
$comment_view_string="[view comments]";
$list_of_posts_string="List of posts";
# }}}

# {{{ MXML Parser
sub parse_mxml
{
	my (@files)=@_;
	my @data=();
	my %item=();
	my $line="";
	my $base=".*";
	my $target="";

	my $nocomment=1;
	$is_comment=0 if ($files[0]=~/comment/);

	my $target="";
	foreach $i (0 .. $#files) {
		my $file = $files[$i];
		open( my $fd, "<","$prefix/$file") or return @data;

		#print "[r] $file\n";

		while (chomp($line=<$fd>)) {
			$line=~s/^\s*//g if ($target ne "body");
			$line=~s/\s*$//;

		if ($line=~/^<($base)>/) {
			$base=$1;
			%item={};
		} else {
			if ($line=~/^<(.*)>\s*(.*)$/)
			{
				# tag content
				if ($target ne "") {
					$target = $1; #filter_line($1,1); # XXX
				}

				if ($1 eq "/$base") {
					push @data, {%item};
					$target="";
				} else {
					$target=$1;
					$line=$2;

					%item->{$target} = filter_line($line,!$is_comment);
					%item->{"folder"} = $file;
					if ($target eq "body") { %item->{$target}.="\n"; }
				}
			} else {
				if ($target ne $1) { $line = filter_line($line,!$is_comment); }
				# only content
				# XXX : optimization: \n makes me go 2x slower!!! WHY!?
				%item->{$target} .= $line."\n";
			}
		}
	}

	close $fd;
}

return @data;
}
# }}}

sub invalid_doblog_prefix
{
	my ($str) = @_;
	if (!($prefix=~/\/$/)) { $prefix=$prefix."/"; }
	if (!($prefix=~/^\//)) {$prefix="./".$prefix; }
	print "doblog\@$prefix : $str\n";
	exit 1;
}

# {{{ PodCast
sub podcast_get_filesize
{
	my ($file)=@_;

	if ( $file=~/(files\/.*)/ ) {
		$filename=$1;
		if (( $filename ne "" ) || ( -e "$filename" )) {
			return ((stat($filename))[7]);
		}
	} else {
		# check if this file is here.
		$file=~s/$url//;
		$file="./".$file;

		if ( -f "$file") {
			return ((stat($file))[7]);
		}
	}
	return -1;
}

sub makePodcast
{
	use POSIX qw(strftime);

	$now = (strftime "%a, %e %b %Y %H:%M:%S %z", gmtime);

	my @podcasts = parse_mxml(("podcast"));
	@podcasts=reverse @podcasts if ($inverse==1);

	open pod, ">podcast.xml" or die "Cannot create podcast.xml";
	print pod "<rss version=\"2.0\" encoding=\"iso-8859-1\" ".
	          "xmlns:content=\"http://purl.org/rss/1.0/modules/content/\" ".
	          "xmlns:wfw=\"http://wellformedweb.org/CommentAPI/\" ".
	          "xmlns:dc=\"http://purl.org/dc/elements/1.1/\" >\n";
	print pod "<channel>\n";
	print pod " <title>$blog_title</title>\n";
	print pod " <link>$url</link>\n";
	print pod " <description>$description</description>\n";
	print pod " <pubDate>$now</pubDate>\n";
	print pod " <language>es</language>\n";

	foreach $i (0 .. $#podcasts) {
		last if ($i>=$podcast_limit);
		$pn = $#podcasts-$i;
		
		$filesize = podcast_get_filesize($podcasts[$pn]{"link"});

		print pod " <item>\n";
		print pod "  <title>".$podcasts[$pn]{"title"}."</title>\n";
		print pod "  <pubDate>".$podcasts[$pn]{"date"}."</pubDate>\n";
		print pod "  <author>".$author."</author>\n";
		print pod "  <link>".$podcasts[$pn]{"link"}."</link>\n";
		print pod "  <category>".$podcasts[$pn]{"category"}."</category>\n";
		print pod "  <description>".$podcasts[$pn]{"body"}."</description>\n";
		print pod "  <enclosure url=\"".$podcasts[$pn]{"link"}."\" length=\"".$filesize."\" type=\"audio/mpeg\"/>\n";
		print pod " </item>\n";
	}
	print pod "</channel>\n";
	print pod "</rss>\n";
	close pod;

	# The same in PLS format
	open pod, ">podcast.pls";
	print pod "[playlist]\n";

	foreach $i (0 .. $#podcasts) {
		last if ($i>=$podcast_limit);
		$pn = $#podcasts-$i;

		$filesize = podcast_get_filesize($podcasts[$pn]{"link"});

		print pod "File$i=".$podcasts[$pn]{"link"}."\n";
		print pod "Title$i=".$podcasts[$pn]{"title"}."\n";
		print pod "Length$i=$filesize\n";
	}
	print pod "NumberOfEntries=".$#podcasts."\n";
	print pod "Version=2\n";
	close pod;
}
# }}}

# {{{ GetRandomAtDot
sub get_random_at_dot()
{
	return (("_at_","ARROBA","_AT_","(at)","(arroba)")[int(rand(5))],
		("_dot_","DOT", "_DOT_","(dot)","(.)")[int(rand(5))] );
}
# }}}

# Read doblog configuration file
invalid_doblog_prefix("Cannot open blog.conf") if ( !-e "$prefix/blog.conf" );

require "$prefix/blog.conf";
# Post configuration checks
$blog_limit=1 if ( $blog_limit<=0 );
$podcast_limit=1 if ($podcast_limit<=0);
$blog_list_limit=1 if ($blog_list_limit<=0);
$rss_limit=1 if ($rss_limit<=0);
($at,$dot) = get_random_at_dot();
$emailx=$email;
$emailx=~s/\@/$at/;
$emailx=~s/\./$dot/;


# Read theme specific configuration
if ( -e "doblog/themes/$theme/blog.conf" ) {
	require "doblog/themes/$theme/blog.conf";
}

# Clean config.php
#if ( -e "admin/config.php" )
#{
#	`cat admin/config.php | sort | uniq > admin/config.php.tmp`;
#	`mv admin/config.php.tmp admin/config.php`;
#}

if ( $ARGV[0] eq "-date" ) {
	use POSIX qw(strftime);
	$str = (strftime "%a, %e %b %Y %H:%M:%S %z", gmtime);
	print "$str\n";
	exit 0;
} elsif ( $ARGV[0] eq "-mkconf" ) {
	print <<EOF
\$author="your-name-here";
\$blog_title="the-blogs-title";
\$email="your\@email.com";
\$url="http://your.host/path/to/blog";
\$description="your-own-description";
\$theme="strict";

#\@mxml=( "blog.mxml", "projects.mxml");

\$predot="&gt; ";          # string preceding each item of a list
\$postdot="&gt; ";         # string appending each item of a list
\$inverse=1;               # inverse posts (first post in mxml is the last published)
\$onepage=0;               # show entire post or splitted by [...] tag
\$archive=1;               # show previous, next links at bottom of the post
\$smileys=1;               # show/hide rendered smileys
\$smileys_theme="default"; # no theme by default (prefixes img/smileys/$theme)
\$podcast=0;               # generate podcast
\$rss1=0;
\$rss2=1;
\$rss_limit=10; # number of posts to be listed in the RSS
\$rss_with_body=1; # include posts body into the RSS
\$miniposts_in_category=0;
\$blog_limit=5; # number of posts to be showed in main page
\$blog_list_limit=10; # number of posts to be listed in left bar
\$cat_limit=\$blog_limit; # number of posts to be listed in the category page
\$list_page_is_index=1;
\$post_split=1;
\$post_page_is_index=1; # TODO buggy when 0
\$comments=1; # add support for comments
\$mail_on_new_comments=1; # emailme on new comments (use 'mail' command)
\$comment_add_string="[add comment]";
\$list_of_posts_string="List of posts";
\$comment_zero_string="[zero comments]";
\$comment_view_string="[view comments]";
\$read_more_string="[read more]";

1;
EOF
;
	exit 0;
} elsif ($ARGV[0] eq "-version") {
	print "$version\n";
	exit 0;
} elsif ($ARGV[0] eq "-update") {
	$prefix=$ARGV[1] if ($#ARGV>0);
	$update=1;
} elsif ($ARGV[0] eq "-podcast") {
	$prefix=$ARGV[1] if ($#ARGV>0);
	makePodcast();
	exit(0);
} elsif ($ARGV[0] eq "-comments") {
	$prefix=$ARGV[1] if ($#ARGV>0);
	my $n=0;
	open PC,"$prefix/comments_todo" or die("No new comments");
	$mailbody="You have new comments on these posts:\n\n";
	while (<PC>)
	{
		$pn=$_;
		chomp($pn);
		$n++;
		#OTW : XXX use "filename" maybe not yet processed ? :)
		print "Unlinking post_".$pn.".$extension\n",
		unlink "post_$pn.$extension";
		$mailbody.="/post_$pn.$extension\n";
	}
	close PC;

	$mailbody.="\nHave a nice day!";

	if ($n==0) {
		print "No comments todo.\n";
		exit 0
	} else {
		if ($mail_on_new_comments==1) {
			if ($email eq "") {
				print "\$email variable not defined.\n";
			} else {
				system("echo '$mailbody' | mail $email");
			}
		}
	}
	unlink "index.$extension";
	unlink "$prefix/comments_todo";
	#OTW :: comments_todo must be handled by the new post filenames.
	#$update=1;
} elsif ($ARGV[0] eq "-last") {
	$prefix=$ARGV[1] if ($#ARGV>0);
	$update=1;
	$last=1;
} elsif ($ARGV[0] eq "-hidden") {
	$prefix=$ARGV[1] if ($#ARGV>0);
	$update=1;
	$hidden=1;
} elsif ($ARGV[0] eq "" || $ARGV[0] eq "-help") {
	print "usage: doblog.pl [-flags|prefix]\n";
	print " -update: only update.Just create new files(do not overwrite)\n";
	print " -hidden: update only hidden posts\n";
	print " -last: update only the last post\n";
	print " -version: shows version information\n";
	print " -comments: only update posts that have queued comments to write\n";
	print " -mkconf: prints a default configuration file to the stdout\n";
	print " -help: show this message\n";
	print " -date: shows date in RFC-2822 format\n";
	exit 0;
}


# Set default configuration values
my $target="";
my $title="doblog blog" if (!$title);
my $version_string="$progname $version";
$theme="default" if ($theme eq "");

if (-d "$theme") {
	$theme="$theme";
} elsif (-d "doblog/themes/$theme") {
	$theme="doblog/themes/$theme";
} else {
	print "Invalid theme '$theme'.\n";
	exit 1;
}

print "Using theme '$theme'.\n";

#
# Auxiliar subroutines
#
# {{{ Filter line
sub filter_line
{
	my ($line,$html)=@_;
	$st=$smileys_theme;

	# TODO: N space levels
	#$line=~s/\s/&nbsp;/;
	$line=~s/>/&gt;/g;
	$line=~s/</&lt;/g;
	if ($smileys==1) {
		$line=~s/\[:\)\]/<img src="$url\/doblog\/smileys\/$st\/smile.png" \/>/g;
		$line=~s/\[:\(\]/<img src="$url\/doblog\/smileys\/$st\/sad.png" \/>/g;
		$line=~s/\[;\)\]/<img src="$url\/doblog\/smileys\/$st\/blink.png" \/>/g;
		$line=~s/\[:D\]/<img src="$url\/doblog\/smileys\/$st\/laught.png" \/>/g;
		$line=~s/\[8\)\]/<img src="$url\/doblog\/smileys\/$st\/cool.png" \/>/g;
		$line=~s/\[:P\]/<img src="$url\/doblog\/smileys\/$st\/tongue.png" \/>/g;
		$line=~s/\[:O\]/<img src="$url\/doblog\/smileys\/$st\/ooh.png" \/>/g;
		$line=~s/\[:\/\]/<img src="$url\/doblog\/smileys\/$st\/undecided.png" \/>/g;
		$line=~s/\[:\|\]/<img src="$url\/doblog\/smileys\/$st\/uhm.png" \/>/g;
		$line=~s/\[:~\]/<img src="$url\/doblog\/smileys\/$st\/cry.png" \/>/g;
	} else {
		$line=~s/\[:\)\]/:\)/g;
		$line=~s/\[:\(\]/:\(/g;
		$line=~s/\[;\)\]/;\)/g;
		$line=~s/\[8\)\]/8\)/g;
		$line=~s/\[:D\]/:D/g;
		$line=~s/\[:P\]/:P/g;
		$line=~s/\[:O\]/:O/g;
		$line=~s/\[:\/\]/:\//g;
		$line=~s/\[:\|\]/:\|/g;
		$line=~s/\[:~\]/:'(/g;
	}
	$line=~s/\[right\]/<p align=right>/g;
	$line=~s/\[\/right\]/<\/p>/g;
	#$line=~s/\[console\]/<div style="color:#d0d0d0;font-size:10;background-color:#252525;padding:5" class="console"><div width="100%" style="background-color:black;color:#606060" class="console_title">&nbsp;&nbsp;Console:<\/div>/g;
	#$line=~s/\[\/console\]/<\/div>/g;

	$line=~s/\[console\]/<div class="console"><div class="console_title">&nbsp;Console:<\/div>/g;
	$line=~s/\[\/console\]/<\/div>/g;

	#$line=~s/\[feed\]/<table width="100%"><tr><td bgcolor=#e0e0e0><table width=100%><tr><td bgcolor=#f0f0f0>feed<\/td><\/tr><\/table><br \/>/g;
	#$line=~s/\[\/feed\]/<\/td><\/tr><\/table>/g;

	# TODO: This only works on local images!!
	#$line=~s/\[img src=/\[img\ \ src=$url\//;

	# characters
	$line=~s/\[,c\]/&#231;/g;
	$line=~s/\[,C\]/&#199;/g;
	$line=~s/\[a'\]/&#225;/g;
	$line=~s/\[A'\]/&Aacute;/g;
	$line=~s/\['a\]/&#224;/g;
	$line=~s/\[e'\]/&#233;/g;
	$line=~s/\['e\]/&#232;/g;
	$line=~s/\[E'\]/&Eacute;/g;
	$line=~s/\[i'\]/&#237;/g;
	$line=~s/\[I'\]/&Iacute;/g;
	$line=~s/\[:i\]/&#239;/g;
	$line=~s/\[:I\]/&#207;/g;
	$line=~s/\['o\]/&#242;/g;
	$line=~s/\[o'\]/&#243;/g;
	$line=~s/\[O'\]/&Oacute;/g;
	$line=~s/\[u'\]/&#250;/g; #&uacute;
	$line=~s/\[U'\]/&Uacute;/g;
	$line=~s/\[:o\]/&#239;/g;
	$line=~s/\[:O\]/&#208;/g;
	$line=~s/\[:u\]/&#252;/g;
	$line=~s/\[:U\]/&#220;/g;
	$line=~s/\[~n\]/&#241;/g;
	$line=~s/\[~N\]/&#209;/g;
	$line=~s/\(C\)/&#169;/g;
	$line=~s/\(R\)/&#174;/g;
	$line=~s/&&/&amp;/g;

	if ($html == 1) {
		$line=~s/\[/</g;
		$line=~s/\]/>/g;
		#$line=~s/<br \/>\n<ul>/<ul>/g; #does not works :?
	}
	$line=~s/\\</\[/g;
	$line=~s/\\>/\]/g;

	return $line;
}
# }}}

# {{{ Generate index.html
sub gen_index
{
	my ($file,$category,$template,$from,$prev,$next)=@_;

	if ($update) {
		if ( -e $file ) {
			return;
		} else {
			print "Updating $file\n";
		}
	}
	my @cats = 0;
	my $category_description="";
	if ($file=~/^cat_/) {
		@cats = parse_mxml("categories");
		$file=~/cat_(.*).html/;
		$name = $1;
		for $j (0 .. $#cats) {
			if ($cats[$j]{"title"} eq $name) {
				$category_description = $cats[$j]{"body"};
				last;
			}
		}
	}
	open idx,">$file" or die "Cannot create $file.";
	$template="blog.$extension" if ($template eq "");
	open (my $fd,"<","$theme/$template") or die "Cannot open $theme/$template";
	while(<$fd>)
	{
	s/##URL##/$url/g;
	s/##KEYWORDS##/$keywords/g;
	s/##TITLE##/$blog_title/g;
	s/##CATEGORY_DESCRIPTION##/$category_description/;
	s/##DESCRIPTION##/$description/;

	if ($archive==1) {
		if ($next eq "") {
			s/##NEXT##//g;
		} else {
			s/##NEXT##/<a href="$next">$next_string<\/a>/g;
		}

		if ($prev eq "") {
			s/##PREV##//g;
		} else {
			s/##PREV##/<a href="$prev">$previous_string<\/a>/g;
		}
	}

	if (/##BLOG##/) {
		# -1 : list all posts
		# TODO: use post.html
		if ($category==-1) {
			print idx "<h2>$list_of_posts_string</h2>\n";
			print idx "<ul>\n";
			foreach $i (0 .. $#data) {
				next if ( $data[$i]{"hidden"} eq "true" );
				next if ( $data[$i]{"title"} eq "" );
				print idx "<li> <a class='list_link' title=\"".
					$data[$i]{"date"}."\" href=\"".$data[$i]{"filename"}."\">".
					$data[$i]{"title"}."</a><br/>\n";
			}
			print idx "</ul>\n";
			next;
		}
		##
		my $n = 0;
		my $limit=$#data;

		if ($category ne "") {
			$limit=$cat_limit;
		} else {
			if ($blog_limit ne "") {
				$limit=$blog_limit if ($blog_limit<=$#data);
			}
		}

		foreach $i ($from .. $#data) {
			if ($category=~/\d/) {
				# category give'us the number of post to print to post_page.
				next if ($category!=$i);
			} else {
				if ($category ne "") {
					next if ($data[$i]{"hidden"} eq "true" );
					next if ($category ne $data[$i]{'category'});
				}

				if ($limit!=0) { last if ($n++==$limit); }
			}

			next if (( $file=~/index/ )&&($data[$i]{"hidden"} eq "true" ));

			# comments
			my @comm=();
			@comm = parse_mxml(("comments_".$data[$i]{"id"}.".mxml")) if ($comments);

			$postfile="post.$extension";
			$postfile="post_mini.$extension" if (($miniposts_in_category)&&($file=~/cat_/));
			open post,"<$theme/$postfile" or die "Cannot open post.$extension";
			while(<post>) {
				$line=$_;
				$body=$data[$i]{"body"};
				$lines=$body=~s/\n/<br \/>\n/g;

				if ($post_split==1 && ( (($file=~/index.*$extension/) || (!($category=~/\d/))))) {
					$pos=index($body,"<...>");
					if ($pos==-1) {
						# TODO split N words.
					} else {
						$body=substr($body,0,$pos);
						$body.="<br /><a class=\"ReadMore\" href=\"".$data[$i]{"filename"}."\">$read_more_string</a>";
					}
				}

				$body=~s/<\.\.\.>//g;
				$line=~s/##FOLDER##/$data[$i]{"folder"}/g;
				$line=~s/##TITLE##/$data[$i]{"title"}/g;
				$line=~s/##TITLE_LINK##/<a href='$data[$i]{"filename"}'>$data[$i]{"title"}<\/a>/g;
				$line=~s/##TITLE_URL##/$data[$i]{"filename"}/g; 
				$line=~s/##LINK##/$data[$i]{"filename"}/g; 
				$line=~s/##BODY##/$body/g;
				$line=~s/##DATE##/$data[$i]{"date"}/g;
				$line=~s/##CATEGORY##/$data[$i]{"category"}/g;
				$line=~s/##AUTHOR##/$data[$i]{"author"}/g;

				if ($comments==1) {
					$post_file=$data[$i]{"filename"};
					$post_id=$data[$i]{"id"};
					$line=~s/##ADD_COMMENT##/<a href=\"$post_file#add_comment\">$comment_add_string<\/a>/g;

					if ($line=~/##VIEW_COMMENT##/) {
						if ($#comm==-1) {
							$line=~s/##VIEW_COMMENT##/$comment_zero_string/g;
						} else {
							$c=$#comm+1;
							$line=~s/##VIEW_COMMENT##/<a href="$post_file#comments">$comment_view_string ($c)<\/a>/g;
						}
						if ($file=~/post_/) {
						print idx "$line<br /><a name=\"add_comment\"></a><p>\n".
						"<form method=\"POST\" action=\"doblog/comment.php?id=$post_id\">\n".
						"<table align=\"left\" width=\"100%\">\n".
						"<tr><td style=\"width:64px\">From</td>".
						    "<td width=\"width:100%\"><input name=\"from\" style=\"width:100%;".
						    "outline:#888888 solid thin;border:1px;padding:2px;background-color:#ffffff\"></td></tr>\n".
						"<tr><td style=\"width:64px\">Subject</td><td style=\"width:100%\"><input name=\"title\" style=\"width:100%;outline:#888888 solid thin;border:1px;padding:2px;background-color:#ffffff\" /></td></tr>\n".
						"<tr><td colspan=\"2\" style=\"width:100%\"><input name=\"cksum\" value=\"5 + 3 = ?\"style=\"width:100%;outline:#888888 solid thin;border:1px;padding:2px;color:red;font-weight:bold;background-color:#ffffff\" /></td></tr>\n".
						"<tr><td colspan=\"2\"><textarea rows=\"10\" name=\"body\" style=\"outline:#888 solid thin;border:1px;padding:5px;width:100%;font-family:Verdana;font-size:12px\"></textarea></td></tr>\n".
						"<tr><td colspan=\"2\" align=\"right\"><input style=\"font-size:10px;\" value=\"$comment_add_string\" type=\"submit\" /></td></tr>\n".
						"</table></form></p>\n";
						$line="";
						}
					}
				} else {
					$line=~s/##ADD_COMMENT##//g;
					$line=~s/##VIEW_COMMENT##//g;
				}
				print idx $line;
			}
			close post;
		
			last if ($category=~/\d/);
		}

		if ($comments && ($file=~/post/))
		{
			#my @comm = parse_mxml(("comments_$opn.mxml"));
			my @comm = parse_mxml(("comments_".$data[$i]{"id"}.".mxml"));

			if ($#comm > -1) {
				print idx "<a name=\"comments\">Comments:</a><br />";

				foreach $j (0 .. $#comm) {
					open cmt,"<$theme/comments.$extension" or
						die "Cannot open $theme/comments.$extension";

					my $body = $comm[$j]{"body"};
					$body =~ s/\n/<br \/>/g;
					while(<cmt>) {
						$line=$_;
						$line=~s/##FROM##/$comm[$j]{"from"}/g;
						$line=~s/##TITLE##/$comm[$j]{"title"}/g;
						$line=~s/##DATE##/$comm[$j]{"date"}/g;
						$line=~s/##BODY##/$body/g;
						print idx $line;
					}
					close cmt;
				}
			}
		}
	} elsif (/##LIST_HIDDEN##/) {
		foreach $i (0 .. $#data) {
			if ( ($data[$i]{"hidden"} eq "true") ) {
				$path=$data[$i]{"filename"};
				$path=~/^(.*)\./;
				$name=$1;
				print idx "$predot<a class=\"post_list_link\" href=\"$path\">".$data[$i]{"title"}."</a>$postdot\n"
					if ($name=~/^post_/);
			}
		}
	} elsif (/##LIST_STATIC##/) {
		foreach $i (0 .. $#data) {
			if ( ($data[$i]{"hidden"} eq "true") && ($data[$i]{"filename"} ne "" )) {
				$path=$data[$i]{"filename"};
				$path=~/^(.*)\./;
				$name=$1;
				print idx "$predot<a class=\"post_list_link\" href=\"$path\">".$data[$i]{"title"}."</a>$postdot\n"
					if (!($name=~/^post_/));
			}
		}
	} elsif (/##BLOG_LIST##/) {
		foreach $i (0 .. $#data) {
			last if ($i >= $blog_list_limit);
			next if ( $data[$i]{"hidden"} eq "true" );
			next if ( $data[$i]{"title"} eq "" );
			print idx "$predot<a class='post_list_link' href=\"".
			      $data[$i]{"filename"}."\">".$data[$i]{"title"}."</a>$postdot";
		}
	} elsif (/##LINKS##/) {
		foreach $i (0 .. $#links) {
			print idx "$predot<a class=\"post_list_link\" target=\"_blank\" ".
			"href=\"".$links[$i]{"url"}."\">".$links[$i]{"title"}."</a>$postdot";
		}
	} elsif(/##CATEGORIES##/) {
		%keys={};
		foreach $i (0 .. $#data) {
			next if ($data[$i]{"hidden"} ne "" );
			if ($data[$i]{'category'} ne "" )
				{ $keys{$data[$i]{'category'}}++; }
		}

		foreach $k (sort(keys %keys)) {
			next unless ($keys{$k}>0);
			$catfile="cat_".title_to_id($k).".$extension";
			print idx "$predot<a class='post_list_link' href='$catfile'>".$k."</a>$postdot";
			if ( $show_number_of_posts_in_categories ) {
				print idx " (".$keys{$k}.")$postdot";
			}
		}
	} elsif (/##LIST##/) {
		print idx "<ul>\n";
		foreach $i (0 .. $#data) {
			next if ( $data[$i]{"hidden"} eq "true" );
			next if ( $data[$i]{"title"} eq "" );
			print idx "<li><a class=\"list_link\" title=\"".
				$data[$i]{"date"}."\" href=\"".$data[$i]{"filename"}."\">".
				$data[$i]{"title"}."</a></li>\n";
		}
		print idx "</ul>\n";
	} elsif(/##COMPACT_DATE##/) {
		($sec,$min,$hour,$mday,$mon,$year,$wday,
		$yday,$isdst)=localtime(time);
		$year+=1900;
		$datestring=sprintf("%4d%02d%02d",$year,$mon+1,$mday);
		s/##COMPACT_DATE##/$datestring/g;
		print idx;
	} elsif(/##VERSION_STRING##/) {
		s/##VERSION_STRING##/<a href='doblog.pl'>$version_string<\/a>/g;
		print idx;
## POST PAGE IS NOT INDEX ##
	} else {
		$body=$data[$i]{"body"};
		$body=~s/<\.\.\.>//g;
		$body=~s/\n/<br \/>/g;
		s/##TITLE_LINK##/<a href='$data[$i]{"filename"}'>$data[$i]{"url"}<\/a>/g;
		s/##TITLE##/$data[$i]{"title"}/g;
		s/##BODY##/$body/g;
		s/##MAIL##/$emailx/g;
		s/##COUNT_POSTS##/$number_of_posts/g;
		s/##DATE##/$data[$i]{"date"}/g;
		#if ($file=~/cat/) { s/##CATEGORY##/$data[$i]{"category"}/g }
		if ($file=~/cat/)
		{
			s/##CATEGORY##/$category/g; #__$data[$i]{"category"}/g;
		} else {
			s/##CATEGORY##//g;
		}
		s/##AUTHOR##/$data[$i]{"author"}/g;
		print idx;
	}
	##
	}

	close $fd;
	close idx;
} #}}}   sub gen_index()


#
# Entry Point (aka main)
#

if (!@mxml) {
	# Must Generate an mxml list if not defined in .conf
	@mxml = split(' ',`cd $prefix && find . -iname \\*.mxml | sort | grep -v comments |grep -v blog.current | grep -v -e "^\\./\\."`);
	push @mxml, "blog.current.mxml";
	if ( $#mxml == -1 )
	{
		print "No MXML files found in data directory.\n";
		exit 1
	}

	foreach $i (0 .. $#mxml){ print "xx ".$mxml[$i]."\n"; }
}

@data = parse_mxml(@mxml);
@data = reverse @data if ($inverse==1);
invalid_doblog_prefix("Cannot open mxml data from $prefix.")
	if ($#data == -1);

foreach $i ($from .. $#data) {
	$data[$i]{"filename"}=title_to_file($data[$i]{"title"}) if ($data[$i]{"filename"} eq "");
	print "-> ".$data[$i]{"title"}." as ".$data[$i]{"filename"}."\n";
}

@links = parse_mxml(("links"));

# Generate Categories
%keys={};
$number_of_posts=0;
foreach $i (0 .. $#data) {
#	if ($inverse==1) { $pn=$#data-$i; } else { $pn=$i=$#data-$i; };

	$data[$i]->{"author"}=$author
		if ($data[$i]{"author"} eq "");

	if ($data[$i]{"hidden"} eq "true") {
		$file=$data[$i]{"filename"};
		$file=title_to_file($data[$i]{"title"}) if ($file eq "");
#OTW : filename inspired by subject
		print "++ hidden post at $file\n";
		unlink($file) if ($hidden);
		next;
	} else {
		$data[$i]{"filename"}=title_to_file($data[$i]{"title"})
			if ($data[$i]{"filename"} eq "");
	}

	$data[$i]{"id"}=title_to_id($data[$i]{"title"});

	$number_of_posts++;

	$keys{$data[$i]{'category'}}=1
		if ($data[$i]{'category'} ne "");
}

if ($last==1) {
	$lid = $#data;
	if ($inverse==1)
	{ $lid = 1; }
	$file = $data[$lid]{"filename"};
	print "Unlinking $file\n";
	unlink($file);
}

unlink($file) if (($last==1) && ($i==$#data));

# Generate index entry page
if ($archive==0) {
	gen_index("index.$extension", "", "", $u+3, "index.$extension", "");
} else {
	for ($u=0; $u<=$#data; $u+=$blog_limit)
	{
		$file=$prev=$next="index";
		if ($u==0)
		{
			$next="";
		} else {
			$var=($u-$blog_limit);
			if ($var == 0)
			{
				$next="index"; 
			} else {
				$next="index_$var";
			}
			$file.="_".$u;
			$next.=".$extension";
		}

		$n=($u+$blog_limit);
		if ($n<$#data) {
			$prev.="_".$n if ($n<=$#data);
			$prev.=".$extension";
		} else { $prev=""; }
		$file.=".$extension";

		#TODO also count hidden posts
		gen_index($file, "", "", $u, $prev, $next);
	}
}

# Generate category pages
#TODO: multiplage for categories
if ($category_page_is_index) {
	$tmpl="blog.html";
} else {
	$tmpl="post_page.$extension";
}
foreach $k (sort(keys %keys)) {
	if ($keys{$k}>0) {
		$file="cat_".title_to_id($k).".$extension";
		gen_index($file,$k,$tmpl,"","","");
	}
}
$tmpl="";

sub title_to_id
{
	($title)=@_;
	$title=~s/\ /-/g;
	$title=~s/[^[:print:]]+//g;
	$title=~s/\?//g;
	$title=~s/[<>\/\[\]]//g;
	$title=~s/&.*;//g;
	return $title;
}

sub title_to_file
{
	($title)=@_;
	#TODO: concat date!!b ??
	$title="post_".title_to_id($title).".$extension";
	return $title;
}

# Generate posts
if ($archive==0) {
	gen_index($file,$i,$tmpl,0,"index.$extension","");
} else {
	foreach $i (0 .. $#data) {
		#if ($inverse==1) { $opn=$i; $pn=$#data-$i; } else { $pn=$opn=$i; }
		#print $i."- ".$data[$i]{"title"}."\n";
		$file = $data[$i]{"filename"};
		#$file = "post_".$pn.".html" if ($file eq "");
		$file = title_to_file($data[$i]{"title"}) if ($file eq "");
		$tmpl = $data[$i]{"template"};
		if ($tmpl eq "") {
			if ($post_page_is_index == 1) {
				$tmpl = "";
			} else {
				$tmpl = "post_page.$extension";
			}
		}
		for($offset=1;$data[$i+$offset]{"hidden"} eq "true";$offset++){}
		for($underset=1;$data[$i-$underset]{"hidden"} eq "true";$underset++){}
		if ($i-$underset<0){ $underset=0; }

		if ($data[$i]{"hidden"} eq "true") {
			$next="";
			$prev="";
		} else {
			if ($i>$#data) {
				$prev=""; #index.$extension";
			} else {
				$prev=$data[$i+$offset]{"filename"};
			}

			if ($underset>0) {
				$next=$data[$i-$underset]{"filename"};
			} else {
				$next="";
			}
		}
		gen_index($file,$i,$tmpl,0,$prev,$next);
	}
}

# Generate RSS
# TODO: rss1 and rss2 support ? WTF!
if ($rss1==1) {
	open rss,">rss.xml" or die "Cannot creatge rss.xml";
	print rss "<rss version=\"0.91\">\n";
	print rss " <channel>\n";
	print rss " <description>$description</description>" if ($description);
	print rss " <title>$title</title>\n";
	print rss " <link>$url</link>\n" if ($url);
	foreach $i (0 .. $#data) {
		next if ($data[$opn]{"hidden"} ne "");

		if ($inverse==1) {
			$opn=$i;
			$pn=$#data-$i;
		} else {
			$pn=$opn=$#data-$i;
		}

		if ($i==$rss_limit) { last; }
		print rss "  <item>\n";
		print rss "   <title>".$data[$opn]{"title"}."</title>\n";
		print rss "   <link>http://news.nopcode.org/pancake/".$data[$pn]{"filename"}."</link>\n";
		print rss "   <description><![CDATA[\n".$data[$opn]{"body"}."\n]]></description>\n" if ($rss_with_body==1);
		print rss "   <pubDate>".$data[$opn]{"date"}."</pubDate>\n" if ($data[$opn]{"date"});
		print rss "  </item>\n";
	}
	print rss " </channel>\n";
	print rss "</rss>\n";
	close rss;
} else {
	unlink("rss.xml");
}

if ($rss2==1)
{
	open rss,">rss2.xml" or die "Cannot create rss2.xml";
	print rss "<?xml version=\"1.0\" encoding=\"iso-8859-15\"?>\n";
	print rss "<rss version=\"2.0\"\n";
	print rss "    xmlns:content=\"http://purl.org/rss/1.0/modules/content/\"\n";
	print rss "    xmlns:wfw=\"http://wellformedweb.org/CommentAPI/\"\n";
	print rss "    xmlns:dc=\"http://purl.org/dc/elements/1.1/\">\n";
	print rss "<channel>\n";
	print rss "<title>$title</title>\n";
	print rss "<link>$url</link>\n";
	print rss "<language>en</language>\n";
	print rss "<description>$description</description>\n";
	print rss "<generator>doblog</generator>\n";

	foreach $i (0 .. $#data)
	{
		#if ($inverse==1) { $opn=$i; $pn=$#data-$i-1; } else { $opn=$pn=$#data-$i; }
		next if ($data[$opn]{"filename"} ne "");
		next if ($data[$opn]{"hidden"} ne "");
		if ($i==$rss_limit) { last; }

		$category=$data[$i]{"category"};
		$category=~s/&/&amp;/g;
		print rss "<item>\n";
		print rss " <title><![CDATA[".$data[$i]{"title"}."]]></title>\n";
		print rss " <link>$url/".$data[$i]{"filename"}."</link>\n";
		if ($comments==1)
		{ print rss " <comments>$url/".$data[$i]{"filename"}."#comments</comments>\n"; }
		print rss " <dc:creator><![CDATA[".$data[$i]{"author"}."]]></dc:creator>\n";
		#print rss " <category><![CDATA[".$data[$i]{"category"}."]]></category>\n";
		print rss " <category><![CDATA[$category]]></category>\n";

		$pos=index($data[$i]{"body"},"<...>");
		if ($pos!=-1) {
			$body=substr($data[$i]{"body"},0,$pos);
			print rss " <description><![CDATA[".$body."\n]]></description>\n";
		} else {
			# TODO split N words.
		}
		print rss " <content:encoded><![CDATA[";
		$data[$i]{"body"}=~s/\n/<br \/>\n/g;
		$data[$i]{"body"}=~s/\<\.\.\.\>//g;
		print rss $data[$i]{"body"};
		print rss " ]]>";
		print rss "\n</content:encoded>\n";
		print rss " <pubDate>".$data[$i]{"date"}."</pubDate>\n";
		print rss "</item>\n";
	}

	print rss "</channel>\n";
	print rss "</rss>\n";

	close rss;
} else {
	unlink("rss2.xml");
}

# Generate Full List
if ($list_page_is_index == 1) {
	gen_index("list.$extension",-1,"",0);
} else {
	# XXX !?!??!
	if ($update) {
		last if ( -e "list.$extension" );
		print "Updating list.$extension\n";
	}

	gen_index(
		"list.$extension","",
		"list.$extension","",
		"list.$extension","");
}

makePodcast() if ($podcast==1);