forked from github/kensanata.oddmuse
093a6da63d
Resetting the value was dead code. Instead of fixing this, the old value is now discarded. There is no point in keeping it around.
65 lines
2.5 KiB
Perl
65 lines
2.5 KiB
Perl
# Copyright (C) 2014 Alex-Daniel Jakimenko <alex.jakimenko@gmail.com>
|
|
#
|
|
# 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/>.
|
|
|
|
$ModulesDescription .= '<p><a href="http://git.savannah.gnu.org/cgit/oddmuse.git/tree/modules/askpage.pl">askpage.pl</a>, see <a href="http://www.oddmuse.org/cgi-bin/oddmuse/Ask_Page_Extension">Ask Page Extension</a></p>';
|
|
|
|
use Fcntl qw(:DEFAULT :flock);
|
|
|
|
use vars qw($AskPage $QuestionPage $NewQuestion);
|
|
# Don't forget to set your $CommentsPattern to include both $AskPage and $QuestionPage
|
|
$AskPage = 'Ask';
|
|
$QuestionPage = 'Question_';
|
|
$NewQuestion = 'Write your question here:';
|
|
|
|
sub IncrementInFile {
|
|
my $filename = shift;
|
|
sysopen my $fh, $filename, O_RDWR|O_CREAT or die "can't open $filename: $!";
|
|
flock $fh, LOCK_EX or die "can't flock $filename: $!";
|
|
my $num = <$fh> || 1;
|
|
seek $fh, 0, 0 or die "can't rewind $filename: $!";
|
|
truncate $fh, 0 or die "can't truncate $filename: $!";
|
|
(print $fh $num+1, "\n") or die "can't write $filename: $!";
|
|
close $fh or die "can't close $filename: $!";
|
|
return $num;
|
|
}
|
|
|
|
*OldAskPageDoPost=*DoPost;
|
|
*DoPost=*NewAskPageDoPost;
|
|
sub NewAskPageDoPost {
|
|
my $id = FreeToNormal(shift);
|
|
if ($id eq $AskPage and not GetParam('text', undef)) {
|
|
my $currentId = IncrementInFile("$DataDir/curquestion");
|
|
$currentQuestion =~ s/[\s\n]//g;
|
|
return OldAskPageDoPost($QuestionPage . $currentQuestion, @_);
|
|
} else {
|
|
return OldAskPageDoPost($id, @_);
|
|
}
|
|
}
|
|
|
|
*OldAskPageGetCommentForm=*GetCommentForm;
|
|
*GetCommentForm=*NewAskPageGetCommentForm;
|
|
sub NewAskPageGetCommentForm {
|
|
my ($id, $rev, $comment) = @_;
|
|
$NewComment = $NewQuestion if $id eq $AskPage;
|
|
return OldAskPageGetCommentForm(@_);
|
|
}
|
|
|
|
*OldAskPageJournalSort=*JournalSort;
|
|
*JournalSort=NewAskPageJournalSort;
|
|
sub NewAskPageJournalSort {
|
|
return OldAskPageJournalSort() unless $a =~ m/^$QuestionPage\d+$/ and $b =~ m/^$QuestionPage\d+$/;
|
|
($b =~ m/$QuestionPage(\d+)/)[0] <=> ($a =~ m/$QuestionPage(\d+)/)[0];
|
|
}
|