modules/fix-encoding.pl

   1 # Copyright (C) 2012  Alex Schroeder <alex@gnu.org>
   2 #
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
  15
  16 $ModulesDescription .= '<p><a href="http://git.savannah.gnu.org/cgit/oddmuse.git/tree/modules/fix-encoding.pl">fix-encoding.pl</a>, see <a href="http://www.oddmuse.org/cgi-bin/oddmuse/Fix_Encoding">Fix Encoding</a></p>';
  17
  18 $Action{'fix-encoding'} = \&FixEncoding;
  19
  20 sub FixEncoding {
  21   my $id = shift;
  22   ValidIdOrDie($id);
  23   RequestLockOrError();
  24   OpenPage($id);
  25   my $text = $Page{text};
  26   utf8::decode($text);
  27   Save($id, $text, T('Fix character encoding'), 1) if $text ne $Page{text};
  28   ReleaseLock();
  29   ReBrowsePage($id);
  30 }
  31
  32 $Action{'fix-escaping'} = \&FixEscaping;
  33
  34 sub FixEscaping {
  35   my $id = shift;
  36   ValidIdOrDie($id);
  37   RequestLockOrError();
  38   OpenPage($id);
  39   my $text = UnquoteHtml($Page{text});
  40   Save($id, $text, T('Fix HTML escapes'), 1) if $text ne $Page{text};
  41   ReleaseLock();
  42   ReBrowsePage($id);
  43 }
  44
  45 push(@MyAdminCode, \&FixEncodingMenu);
  46
  47 sub FixEncodingMenu {
  48   my ($id, $menuref, $restref) = @_;
  49   if ($id) {
  50     push(@$menuref,
  51          ScriptLink('action=fix-encoding;id=' . UrlEncode($id),
  52                     T('Fix character encoding')));
  53     push(@$menuref,
  54          ScriptLink('action=fix-escaping;id=' . UrlEncode($id),
  55                     T('Fix HTML escapes')));
  56   }
  57 }