oddmuse/modules/today.pl

# 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 3 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, see <http://www.gnu.org/licenses/>.

use strict;
use v5.10;

AddModuleDescription('today.pl', 'Blog Module');

our (%Action, $Now, @MyAdminCode, $UsePathInfo, $NamespaceCurrent);

# New Action

push(@MyAdminCode, \&TodayMenu);

sub TodayMenu {
  my ($id, $menuref, $restref) = @_;
  push(@$menuref,
       ScriptLink('action=new',
		  T('Create a new page for today'),
		  'today'));
}

$Action{new} = \&DoNew;

sub DoNew {
  my $id = shift;
  # GetId() returns "SandWiki" for the following URL:
  # http://www.communitywiki.org/odd/SandWiki?action=new.
  if ($UsePathInfo and $NamespaceCurrent
      and $id eq $NamespaceCurrent
      and GetParam($NamespaceCurrent, 0) == 0
      and not GetParam('id', '')) {
    # Undo this unless we're getting
    # http://www.communitywiki.org/odd/SandWiki/SandWiki?action=new or
    # http://www.communitywiki.org/odd/SandWiki?action=new;id=SandWiki.
    $id = '';
  }
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime($Now);
  my $today = sprintf("%d-%02d-%02d", $year + 1900, $mon + 1, $mday);
  $today .= sprintf("_%02dh%02d", $hour, $min) if GetParam('hour', 0);
  $today .= "_$id" if $id;
  return DoEdit($today);
}