ikiwiki/doc/todo/blogpost_plugin.mdwn

This is a plugin that prompts the user for a title for a post, and then 
redirects the user to post in a hierarchically organized directory
structure. It supports limiting blog posts only to certain users, and 
this applies to creating new as well as editing old ones. It's a little
clumsy so far:

* Although Joey said specifically not to, I export the printheader
  function so that the plugin can create a form.
* The form doesn't invoke the formbuilder hooks; I couldn't figure
  out a way to do that easily from inside the plugin (unless I
  exported run_hooks and that didn't seem right).
* This invokes a new hook, authcgi, although Joey said that
  "the best approach was adding a flag that makes a cgi hook get 
  postponed and called after a session is set up". I don't know
  if this is a good idea; authenticated CGI plugins need sessions,
  and unauthenticated CGI plugins don't, so it seems like a new hook
  is a better idea.
* This creates a lot of broken parents unless you use something 
  like [[missingparents.pm]].

I don't expect that this will be applied; it's more like a first draft.
I would like to hear good ideas on how to solve the first two problems.
Maybe make the hook return a form, which is printed by CGI.pm? --Ethan

<pre>
Index: IkiWiki/CGI.pm
===================================================================
--- IkiWiki/CGI.pm	(revision 3968)
+++ IkiWiki/CGI.pm	(working copy)
@@ -684,6 +684,9 @@
 		}
 	}
 	
+	run_hooks(authcgi => sub { shift->($q, $session); });
+	my $do=$q->param('do'); # in case the hook changed it
+
 	if (defined $session->param("name") &&
 	    userinfo_get($session->param("name"), "banned")) {
 		print $q->header(-status => "403 Forbidden");
Index: IkiWiki/Plugin/blogpost.pm
===================================================================
--- IkiWiki/Plugin/blogpost.pm	(revision 0)
+++ IkiWiki/Plugin/blogpost.pm	(revision 0)
@@ -0,0 +1,97 @@
+#!/usr/bin/perl
+# blogpost plugin: interprets cgi "blogpost" commands as create commands.
+package IkiWiki::Plugin::blogpost;
+
+use warnings;
+use strict;
+use POSIX;
+use IkiWiki 2.00;
+
+sub import { #{{{
+	hook(type => "checkconfig", id => "blogpost", call => \&checkconfig);
+	hook(type => "authcgi", id => "blogpost", call => \&authcgi);
+	hook(type => "canedit", id => "blogpost", call => \&canedit);
+} # }}}
+
+sub checkconfig () { #{{{
+	if (! defined $config{blogformat}){
+		$config{blogformat} = 'posts/%Y/%m/%d/$title';
+	}
+
+	if (! defined $config{blogpagespec}){
+		my $spec = $config{blogformat};
+		$spec =~ s/%./\*/g;
+		$spec =~ s/\$title/*/;
+		$config{blogpagespec} = "$spec and ! $spec/*";
+	}
+	
+	if (! defined $config{blogusers}) {
+		$config{blogusers} = (); # disallow all posting by default
+	}
+} #}}}
+
+sub authcgi ($$) { #{{{
+	my $cgi=shift;
+	my $session=shift;
+
+	return unless (defined $cgi->param('do') && $cgi->param('do') eq "blogpost");
+	my $user=$session->param("name");
+	error ("not allowed to blog, $user") unless
+	    $config{blogusers} eq "*" ||
+		grep {$_ eq $user} $config{blogusers};
+	eval q{use CGI::FormBuilder};
+	error($@) if $@;
+	my @fields=qw(title);
+	my $form = CGI::FormBuilder->new(
+		fields => \@fields,
+		title => "post title",
+		name => "post title",
+		header => 1,
+		charset => "utf-8",
+		method => 'POST',
+		required => 'NONE',
+		javascript => 0,
+		params => $cgi,
+		action => $config{cgiurl},
+		header => 0,
+		template => {type => 'div'},
+		stylesheet => $config{url}."/style.css",
+	);
+	my $buttons=["Blog!"];
+	$form->field(name => "do", type => "hidden", value => "blogpost",
+		force => 1);
+	if (! $form->submitted){
+		printheader($session);
+		print misctemplate($form->title, $form->render(submit => $buttons));
+		exit;
+	}
+	else {
+		my $page = blogpage($form->field("title"));
+		$cgi->param("do", "create");
+		$cgi->param("page", $page);
+	}
+
+} #}}}
+
+sub blogpage ($) { #{{{
+	my $title=shift;
+	my $page=POSIX::strftime $config{blogformat}, localtime;
+	$page =~ s/\$title/$title/;
+	return $page;
+} #}}}
+
+sub canedit ($$$) { #{{{
+	my $page=shift;
+	my $cgi=shift;
+	my $session=shift;
+
+	return undef unless pagespec_match($page, $config{blogpagespec});
+	my $user=$session->param("name");
+	IkiWiki::needsignin($cgi, $session) unless defined $user;
+
+	return "" if ($config{blogusers} eq "*" ||
+		      grep {$_ eq $user} $config{blogusers});
+	return ("not allowed to blog, $user");
+} #}}}
+
+1
Index: IkiWiki.pm
===================================================================
--- IkiWiki.pm	(revision 3968)
+++ IkiWiki.pm	(working copy)
@@ -17,6 +17,7 @@
 our @EXPORT = qw(hook debug error template htmlpage add_depends pagespec_match
                  bestlink htmllink readfile writefile pagetype srcfile pagename
                  displaytime will_render gettext urlto targetpage
+                 misctemplate printheader
                  %config %links %renderedfiles %pagesources %destsources);
 our $VERSION = 2.00; # plugin interface version, next is ikiwiki version
 our $version='unknown'; # VERSION_AUTOREPLACE done by Makefile, DNE
</pre>