forked from github/kensanata.oddmuse
142 lines
3.8 KiB
Perl
142 lines
3.8 KiB
Perl
# Copyright (C) 2005, 2006, 2011 Alex Schroeder <alex@gnu.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/>.
|
|
|
|
AddModuleDescription('weblog-3.pl', 'Create a Blog Front Page');
|
|
|
|
# Categories
|
|
|
|
use vars qw($CategoriesPage);
|
|
|
|
$CategoriesPage = 'Categories';
|
|
|
|
*CategoriesOldOpenPage = *OpenPage;
|
|
*OpenPage = *CategoriesNewOpenPage;
|
|
|
|
my %Category = (); # fast checking
|
|
my @Categories = (); # correct order
|
|
|
|
# handle reset of $NewText in mod_apache environment
|
|
|
|
my $CategoryNewText;
|
|
|
|
push(@MyInitVariables, sub {
|
|
if (defined $CategoryNewText) {
|
|
$NewText = $CategoryNewText;
|
|
} else {
|
|
$CategoryNewText = $NewText;
|
|
}
|
|
});
|
|
|
|
# Set $NewText on OpenPage in some case only
|
|
|
|
sub CategoriesNewOpenPage {
|
|
CategoryInit() unless $CategoryInit;
|
|
CategoriesOldOpenPage(@_);
|
|
if ($Page{revision} == 0) {
|
|
if ($OpenPageName eq $HomePage) {
|
|
$NewText = '<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
|
|
$NewText = T('Matching pages:')
|
|
. "\n\n"
|
|
. '<journal "^\d\d\d\d-\d\d-\d\d.*'
|
|
. $OpenPageName
|
|
. '">';
|
|
}
|
|
}
|
|
}
|
|
|
|
# Category page
|
|
|
|
sub CategoryParse {
|
|
my @paragraphs = split(/\n\n+/, shift);
|
|
my @result;
|
|
foreach (@paragraphs) {
|
|
next unless /^\*/;
|
|
while (/\*+\s*\[\[$FreeLinkPattern\]\]/g) {
|
|
my $id = FreeToNormal($1);
|
|
push(@result, $id);
|
|
}
|
|
last;
|
|
}
|
|
return @result;
|
|
}
|
|
|
|
my $CategoryInit = 0;
|
|
|
|
sub CategoryInit {
|
|
$CategoryInit = 1;
|
|
@Categories = CategoryParse(GetPageContent($CategoriesPage));
|
|
map { $Category{$_} = 1 } @Categories;
|
|
}
|
|
|
|
# New Action
|
|
|
|
$Action{new} = \&DoCategories;
|
|
|
|
sub DoCategories {
|
|
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);
|
|
CategoryInit() unless $CategoryInit;
|
|
print $q->p({-class=>'table'}, map {GetEditLink("$today $_", $_)} @Categories);
|
|
print $q->p($q->textfield('id', $today), GetHiddenValue('action', 'edit'));
|
|
print $q->p(Ts('Edit %s.', GetPageLink($CategoriesPage)));
|
|
print $q->submit("Go!");
|
|
print $q->end_form, $q->end_div();
|
|
PrintFooter();
|
|
}
|
|
|
|
# Goto Bar
|
|
|
|
my $GotoBarInit = 0;
|
|
|
|
sub GotoBarInit {
|
|
$GotoBarInit = 1;
|
|
@UserGotoBarPages = (@UserGotoBarPages,
|
|
CategoryParse(GetPageContent($HomePage)));
|
|
}
|
|
|
|
*GetGotoBar = * NewGetGotoBar;
|
|
|
|
sub NewGetGotoBar {
|
|
my $id = shift;
|
|
GotoBarInit() unless $GotoBarInit;
|
|
my @links;
|
|
foreach my $name (@UserGotoBarPages) {
|
|
push (@links, GetPageLink($name, $name));
|
|
}
|
|
my @parts = split(/_/, GetId());
|
|
CategoryInit() unless $CategoryInit;
|
|
if ($parts[0] =~ /\d\d\d\d-\d\d-\d\d/) {
|
|
shift(@parts);
|
|
push(@links, map {
|
|
if ($Category{$_}) {
|
|
$q->a({-href=>$ScriptName . ($UsePathInfo ? '/' : '?') . UrlEncode($_),
|
|
-class=>'local tag',
|
|
-rel=>'tag'}, $_);
|
|
} else {
|
|
# provide tag=1 parameter to tell OpenPage to add journal tag
|
|
$q->a({-href=>$ScriptName . '?tag=1;action=browse;id=' . UrlEncode($_),
|
|
-class=>'local tag',
|
|
-rel=>'tag'}, $_);
|
|
}
|
|
} @parts);
|
|
}
|
|
push (@links, ScriptLink('action=new', T('New')));
|
|
return $q->span({-class=>'gotobar bar'}, @links, $UserGotoBar);
|
|
}
|