#!/usr/bin/env perl
##############################################
#                                            #
# doblog: static blogs generation tool       #
#--------------------------------------------#
# @author: pancake <pancake@phreaker.net>    #
# @version: 0.3                              #
# @date: 2005-12-22                          #
#                                            #
##############################################

$progname="doblog";
$version="0.3";
$update=0;
$prefix="data";

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

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

# {{{ Default blog.conf values
$podcast=0;
$podcast_limit=5;
# }}}

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

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

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

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

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

			# THIS IS BUGGY
			#if ($line=~/<\!--/)
			#{
			#	while(! $line=~/-->/ )
			#	{
			#		chomp($line=<fd>);
			#	} 
			#	$line=<fd>;
			#}

		if ($line=~/^<($base)>/)
		{
			$base=$1;
			%item={};
		} else {
			# TODO: only filter_line when tag changes (optimization)
			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);
					if ($target eq "body") { %item->{$target}.="\n"; }
				}
			} else {	
				# only content
				%item->{$target} .= filter_line($line,!$is_comment)."\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;
}

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>$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;
}

# Read doblog configuration file
if (! -e "$prefix/blog.conf" )
{
	invalid_doblog_prefix("Cannot open blog.conf");
}
require "$prefix/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";
\$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
\$list_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]"; # set the 'add comment' string
\$comment_view_string="[view comments]"; # sets the 'view comments' string
\$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++;
		print "Unlinking post_".$pn.".html\n",
		unlink "post_$pn.html";
		$mailbody.="/post_$pn.html\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.html";
	unlink "$prefix/comments_todo";
	$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;
}

$read_more_string="[read more]";
$comment_add_string="[add comment]";
$comment_view_string="[view comments]";

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

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
#
sub filter_line
{
	($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"><div width="100%" style="background-color:black;color:#606060">&nbsp;&nbsp;console:<\/div><tt>/g;
	$line=~s/\[\/console\]/<\/tt><\/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";
		}
	}
	open idx,">$file" or die "Cannot create $file.";
	$template="blog.html" if ($template eq "");
	open (my $fd,"<","$theme/$template") or die "Cannot open $theme/$template";
	while(<$fd>)
	{
	s/##URL##/$url/g;
	s/##TITLE##/$title/g;

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

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

	if (/##BLOG##/)
	{
		# -1 : list all posts
		if ($category==-1)
		{
			print idx "<table cellpadding=\"5\" width=\"100%\"><tr><td bgcolor=\"#c0c0c0\">";
			print idx "<h2><tt>List of posts:</tt></h2>\n";
			print idx "<p class=\"Estilo16\">\n";
			foreach $i (0 .. $#data)
			{
				if ($inverse==1) { $pn=$i;$opn=$#data-$i-1; } else { $opn=$pn=$#data-$i-1; };
				next if ( $data[$pn]{"hidden"} eq "true" );
				next if ($pn <0);
				print idx "&nbsp;- <a title=\"".$data[$pn]{"date"}."\" href='post_$opn.html'>".$data[$pn]{"title"}."</a><br/>\n";
			}
			print idx "</p>\n";
			print idx "</td></tr></table>";
			next;
		}
		##

		my $n = 0;
		my $limit=$#data;
		if ($blog_limit ne "")
		{
			if ($blog_limit-1<$#data)
			{
				$limit=$blog_limit-1;
			}
		}
		my $n = 0;
		my $pn = 0; # post number (used by $inverse mode)
		my $opn = 0;

		foreach $i ($from .. $#data)
		{
			my @comm=();

			if ($category=~/\d/)
			{
				if ($inverse==1) { $pn=$category; $opn=$#data-$category; }
				else { $opn=$pn=$category; }
				#$#data-$i-1;
				#next if ($pn==$i);
				# { $opn=$#data-$i-1; $pn=$#data-$i-1; };
			} else {
				if ($inverse==1) { $pn=$i; $opn=$#data-$i; }
				else { $opn=$pn=$#data-$i; };

				if ($category ne "")
				{
					next if ($category ne $data[$pn]{'category'});
				}

				last if ($n++==$limit+1);
			}

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


			if ($comments)
			{
				@comm = parse_mxml(("comments_$opn.mxml"));
			}

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

				if ($post_split==1)
				{
				if (($file=~/index.*html/) || (!($category=~/\d/)))
				{
					$pos=index($body,"<...>");
					if ($pos==-1)
					{
						# TODO split N words.
					} else {
						$body=substr($body,0,$pos);
						$body.="<br /><a class=\"ReadMore\" href='post_$opn.html'>$read_more_string</a>";
					}
				}
				}

				$body=~s/<\.\.\.>//g;
				$line=~s/##TITLE##/$data[$pn]{"title"}/g;
				if ($data[$pn]{"filename"} ne "")
				{
				
				$line=~s/##TITLE_LINK##/<a href='$data[$pn]{"filename"}'>$data[$pn]{"title"}<\/a>/g;
				$line=~s/##TITLE_URL##/$data[$pn]{"filename"}/g;
				$line=~s/##LINK##/$data[$pn]{"filename"}/g;
				} else {
				$line=~s/##TITLE_LINK##/<a href='post_$opn.html'>$data[$pn]{"title"}<\/a>/g;
				$line=~s/##TITLE_URL##/post_$opn.html/g;
				$line=~s/##LINK##/post_$opn.html/g;
				}
				$line=~s/##BODY##/$body/g;
				$line=~s/##DATE##/$data[$pn]{"date"}/g;
				$line=~s/##CATEGORY##/$data[$pn]{"category"}/g;
				$line=~s/##AUTHOR##/$data[$pn]{"author"}/g;
				if ($comments)
				{
					$line=~s/##ADD_COMMENT##/<a href=\"comment.php?id=$opn\">$comment_add_string<\/a>/g;

					if ($#comm==-1)
					{
						$line=~s/##VIEW_COMMENT##/(0 comments)/g;
					} else {
$c=$#comm+1;
						#DEBUG
						#if (/##VIEW_COMMENT##/)
						#{
						#print "Fcuk $pn $#comm || ".$data[$pn]{"title"}."\n";
						#}
						$line=~s/##VIEW_COMMENT##/<a href=post_$opn.html#comments>$comment_view_string ($c)<\/a>/g;
					}
				} else {
					$line=~s/##ADD_COMMENT##//g;
					$line=~s/##VIEW_COMMENT##//g;
				}
				print idx $line;
			}
			close post;
		
			if ($category=~/\d/)
			{
				last;
			}
		}

		if ($comments && ($file=~/post/))
		{
			if ($inverse==1) { $pn=$i; $opn=$#data-$i; }
			else { $opn=$i; $pn=$#data-$i; };

			my @comm = parse_mxml(("comments_$opn.mxml"));

			if ($#comm > -1)
			{

			#print $comm[0]{"title"}."\n";

				print idx "<a name=\"comments\">Comments:</a><br />";

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

					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 href=\"$path\">$name</a>$postdot\n";
			}
		}
	} 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 href=\"$path\">$name</a>$postdot\n";
			}
		}
	} elsif (/##BLOG_LIST##/) {
		foreach $i (0 .. $#data)
		{
			if ($inverse==1) { $pn=$i; $opn=$#data-$i; } else { $opn=$pn=$#data-$i; };
			last if ($i >= $blog_list_limit);
			next if ( $data[$pn]{"hidden"} eq "true" );
			next if ( $data[$pn]{"title"} eq "" );
			print idx "$predot <a href='post_$opn.html'>".$data[$pn]{"title"}."</a>$postdot";
		}
	} elsif (/##LINKS##/) {
		foreach $i (0 .. $#links)
		{
			print idx "$predot <a 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))
		{
			if ($keys{$k}>0)
			{
				print idx "$predot <a href='cat_$k.html'>".$k."</a>";
				if ( $show_number_of_posts_in_categories )
					{ print idx "(".$keys{$k}.")$postdot"; }
			}
		}
	} 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;
		if ($inverse==1)
		{
			$pn = $#data-$i;
			$opn=$i;
		}else{
			$pn=$opn=$i;
		}
		if ($data[$pn]{"filename"} ne "")
		{
		s/##TITLE_LINK##/<a href='$data[$opn]{"filename"}'>$data[$opn]{"url"}<\/a>/g;
		} else {
		s/##TITLE_LINK##/<a href='post_$pn.html'>$data[$opn]{"title"}<\/a>/g;
		}
		s/##TITLE##/$data[$opn]{"title"}/g;
		s/##BODY##/$body/g;
		s/##COUNT_POSTS##/$number_of_posts/g;
		s/##DATE##/$data[$opn]{"date"}/g;
	#print $i."\n";
		#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`);
	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);
if ($#data == -1)
{
	invalid_doblog_prefix("Cannot open mxml data from $prefix.");
}

@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; };

	if ($data[$i]{"author"} eq "")
	{
		$data[$i]->{"author"}=$author;
	}
	if ($data[$i]{"hidden"} eq "true")
	{
		$file=$data[$i]{"filename"};
		$file="post_$pn.html" if ($file eq "");
		print "++ hidden post at $file\n";
		if ($hidden)
		{
			unlink($file);
		}
		next;
	}

	$number_of_posts++;

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

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

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

# Generate index entry page
if ($archive==0)
{
	gen_index("index.html", "", "", $u+3, "index.html", "");
} 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.="_".$var;
			}
			$file.="_".$u;
			$next.=".html";
		}

		$n=($u+$blog_limit);
		$prev.="_".$n if ($n<=$#data);
		$prev.=".html";
		$file.=".html";

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

# Generate category pages
#TODO: multiplage

	foreach $k (sort(keys %keys))
	{
		if ($keys{$k}>0)
		{
		$file="cat_".$k.".html";
		gen_index($file,$k,"","",$file,$file);
		}
	}

# Generate posts
if ($archive==0)
{
	gen_index($file,$i,$tmpl,0,"index.html","");
} else {
	foreach $i (0 .. $#data)
	{
		if ($inverse==1) { $opn=$i; $pn=$#data-$i; } else { $pn=$opn=$i; }

		$file = $data[$i]{"filename"};
		$file = "post_".$pn.".html" if ($file eq "");
		$tmpl = $data[$i]{"template"};
		if ($tmpl eq "")
		{
			if ($post_page_is_index == 1)
			{
				$tmpl = "";
			} else {
				$tmpl = "post_page.html";
			}
		}
		for($offset=1;$data[$i+$offset]{"hidden"} eq "true";$offset++){}

		if (($opn+$offset)>$#data)
		{
			$prev="index.html";
		} else {
			$prev="post_".($pn-1).".html";
		}
		if (($pn-$offset)<0){$prev="index.html";}

		if (($pn+$offset) >= $#data)
		{
			$next="";
		} else {
			$next="post_".($pn+1).".html";
		}

		gen_index($file,$i,$tmpl,0,$prev,$next);
	}
}

# Generate RSS
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)
	{
		if ($inverse==1) { $opn=$i; $pn=$#data-$i; } else { $pn=$opn=$#data-$i; }

		next if ($data[$opn]{"hidden"} ne "");
		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/post_$pn.html</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;
}

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; }

	print rss "<item>\n";
	print rss " <title>".$data[$opn]{"title"}."</title>\n";
	print rss " <link>".$url."/post_".($pn).".html</link>\n";
	if ($comments==1)
	{ print rss " <comments>".$url."/post_".($pn).".html#comments</comments>\n"; }
	print rss " <dc:creator>".$data[$pn]{"author"}."</dc:creator>\n";
	print rss " <category>".$data[$opn]{"category"}."</category>\n";

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

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

close rss;
}

# Generate Full List
if ($list_is_index == 1)
{
	gen_index("list.html",-1,"",0);
} else {

	if ($update)
	{
		if ( -e "list.html" )
		{
			last;
		} else {
			print "Updating list.html\n";
		}
	}

	open out,">list.html";
	open lst,"<$theme/list.html";
	while(<lst>)
	{
		if (/##LIST##/)
		{
			print out "<ul>\n";
			foreach $i (0 .. $#data)
			{
				next if ( $data[$i]{"hidden"} eq "true" );
				if ($inverse==1) { $pn=$#data-$i; } else { $pn=$i=$#data-$i; };
				print out "<li><a title=\"".$data[$i]{"date"}."\"href='post_$pn.html'>".$data[$i]{"title"}."</a></li>\n";
			}
			print out "</ul>\n";
		} else {
		print out;
		}
	}
	close lst;
	close out;
}

# Comments
if ($comments==1)
{
	open out,">comment.php";

	open in,"<doblog/comment.php" or die ("cannot open doblog/comment.php");
	print out while(<in>);
	close in;

	open in,"<$theme/post_comment.html";
	print out while(<in>);
	close in;

	close out;
}

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