New.

modules/weblog-4.pl

@@ -0,0 +1,64 @@
+# Copyright (C) 2006  Alex Schroeder <alex@emacswiki.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the
+#    Free Software Foundation, Inc.
+#    59 Temple Place, Suite 330
+#    Boston, MA 02111-1307 USA
+
+$ModulesDescription .= '<p>$Id: weblog-4.pl,v 1.1 2006/06/11 15:06:58 as Exp $</p>';
+
+# Default page content copied from weblog-3.pl.
+
+*BlogOldOpenPage = *OpenPage;
+*OpenPage = *BlogNewOpenPage;
+
+sub BlogNewOpenPage {
+  BlogOldOpenPage(@_);
+  if ($Page{revision} == 0) {
+    if ($OpenPageName eq $HomePage) {
+      $Page{text} = '<journal>';
+    } elsif (GetParam('tag','') or $Category{$OpenPageName}) {
+      # if the page is either on the categories page, or the tag=1
+      # parameter was added, show a journal
+      $Page{text} = T('Matching pages:')
+	. "\n\n"
+	. '<journal "^\d\d\d\d-\d\d-\d\d.*'
+	. $OpenPageName
+	. '">';
+    }
+  }
+}
+
+# New Action
+
+$Action{new} = \&DoCategories;
+
+sub DoCategories {
+  if (GetParam('tags', '') and GetParam('id', '')) {
+    DoEdit(GetParam('id', ''), "\n\n\nTags: "
+	   . join (' ', map { "[[tag:$_]]" } split(' ', GetParam('tags', ''))),
+	   1);
+  } else {
+    print GetHeader('', T('New')), $q->start_div({-class=>'content categories'}),
+      GetFormStart(undef, 'get', 'cat');
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime();
+    my $today = sprintf("%d-%02d-%02d", $year + 1900, $mon + 1, $mday);
+    print $q->p(T('Title: '), $q->textfield('id', $today),
+		GetHiddenValue('action', 'new'));
+    print $q->p(T('Tags: '), $q->textfield('tags'));
+    print $q->p($q->submit(T('Go!')));
+    print $q->end_form, $q->end_div();
+    PrintFooter();
+  }
+}