oddmuse/modules/fix-encoding.pl

# Copyright (C) 2012  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/>.

use strict;
use v5.10;

AddModuleDescription('fix-encoding.pl', 'Fix Encoding');

our (%Action, %Page, @MyAdminCode);

$Action{'fix-encoding'} = \&FixEncoding;

sub FixEncoding {
  my $id = shift;
  ValidIdOrDie($id);
  RequestLockOrError();
  OpenPage($id);
  my $text = decode_utf8($Page{text});
  Save($id, $text, T('Fix character encoding'), 1) if $text ne $Page{text};
  ReleaseLock();
  ReBrowsePage($id);
}

$Action{'fix-escaping'} = \&FixEscaping;

sub FixEscaping {
  my $id = shift;
  ValidIdOrDie($id);
  RequestLockOrError();
  OpenPage($id);
  my $text = UnquoteHtml($Page{text});
  Save($id, $text, T('Fix HTML escapes'), 1) if $text ne $Page{text};
  ReleaseLock();
  ReBrowsePage($id);
}

push(@MyAdminCode, \&FixEncodingMenu);

sub FixEncodingMenu {
  my ($id, $menuref, $restref) = @_;
  if ($id && GetParam('username')) {
    push(@$menuref,
	 ScriptLink('action=fix-encoding;id=' . UrlEncode($id),
		    T('Fix character encoding')));
    push(@$menuref,
	 ScriptLink('action=fix-escaping;id=' . UrlEncode($id),
		    T('Fix HTML escapes')));
  }
}