#StripControlChars Global Filter Plugin
# version 0.3
# Copyright 2003,2004, Jacques Distler.
#
# usage: adds a global filter attribute to any MT variable substitution Tag,
#
#    <$MTEntryBody strip_controlchars="1"$> 
#
# strips the characters Ox00-Ox08, Ox0B, Ox0C, Ox0F-Ox1F and Ox80-Ox9F.
#
#   <$MTEntryBody strip_controlchars="2"$>
#
# converts the Windows-1252 characters Ox80 to Ox9F to the corresponding
# Unicode numeric entities, while stripping out the rest.
# Hopefully, that was what was intended.

package MT::Plugin::StripControlChars;
use MT::Template::Context;
MT::Template::Context->add_global_filter(strip_controlchars => sub { &strip_controlchars });

my %windows_1252 = (
  '\x00'  => '',
  '\x01'  => '',
  '\x02'  => '',
  '\x03'  => '',
  '\x04'  => '',
  '\x05'  => '',
  '\x06'  => '',
  '\x07'  => '',
  '\x08'  => '',
  '\x0B'  => '',
  '\x0C'  => '',
  '\x0E'  => '',
  '\x0F'  => '',
  '\x10'  => '',
  '\x11'  => '',
  '\x12'  => '',
  '\x13'  => '',
  '\x14'  => '',
  '\x15'  => '',
  '\x16'  => '',
  '\x17'  => '',
  '\x18'  => '',
  '\x19'  => '',
  '\x1A'  => '',
  '\x1B'  => '',
  '\x1C'  => '',
  '\x1D'  => '',
  '\x1E'  => '',
  '\x1F'  => '',
  '\x7F'  => '',
  '\x80' => '&#x20AC;',
  '\x81' => '',
  '\x82' => '&#x201A;',
  '\x83' => '&#x192;',
  '\x84' => '&#x201E;',
  '\x85' => '&#x2026;',
  '\x86' => '&#x2020;',
  '\x87' => '&#x2021;',
  '\x88' => '&#x2C6;',
  '\x89' => '&#x2030;',
  '\x8A' => '&#x160;',
  '\x8B' => '&#x2039;',
  '\x8C' => '&#x152;',
  '\x8D' => '',
  '\x8E' => '&#x17D;',
  '\x8F' => '',
  '\x90' => '',
  '\x91' => '&#x2018;',
  '\x92' => '&#x2019;',
  '\x93' => '&#x201C;',
  '\x94' => '&#x201D;',
  '\x95' => '&#x2022;',
  '\x96' => '&#x2013;',
  '\x97' => '&#x2014;',
  '\x98' => '&#x02DC;',
  '\x99' => '&#x2122;',
  '\x9A' => '&#x0161;',
  '\x9B' => '&#x203A;',
  '\x9C' => '&#x0153;',
  '\x9D' => '&#x17D;',
  '\x9E' => '&#x17E;',
  '\x9F' => '&#x178;',
  '\xA9' => '&#x00A9;',
  '\xAE' => '&#x00AE;',
  '\xA3' => '&#x00A2;',
  '\xA4' => '&#x00A3;',
  '\xA5' => '&#x00A4;',
  '\xA5' => '&#x00A5;',
  '\xB0' => '&#x00B0;',
  '\xB1' => '&#x00B1;',
  '\xB2' => '&#x00B2;',
  '\xB3' => '&#x00B3;',
  '\xB4' => '&#x00B4;',
  '\xB5' => '&#x00B5;',
  '\xB6' => '&#x00B6;',
  '\xB7' => '&#x00B7;',
  '\xBC' => '&#x00BC;',
  '\xBD' => '&#x00BD;',
  '\xBE' => '&#x00BE;',
  '\xE9' => '&#x00E9;',
  '\xE0' => '&#x00E0;',
  '\xE1' => '&#x00E1;',
  '\xE2' => '&#x00E2;',
  '\xE3' => '&#x00E3;',
  '\xE4' => '&#x00E4;',
  '\xE5' => '&#x00E5;',
  '\xE6' => '&#x00E6;',
  '\xE7' => '&#x00E7;',
  '\xE8' => '&#x00E8;',
  '\xE9' => '&#x00E9;',
  '\xEA' => '&#x00EA;',
  '\xEB' => '&#x00EB;',
  '\xEC' => '&#x00EC;',
  '\xED' => '&#x00ED;',
  '\xEE' => '&#x00EE;',
  '\xEF' => '&#x00EF;',
  '\xF0' => '&#x00F0;',
  '\xF1' => '&#x00F1;',
  '\xF2' => '&#x00F2;',
  '\xF3' => '&#x00F3;',
  '\xF4' => '&#x00F4;',
  '\xF5' => '&#x00F5;',
  '\xF6' => '&#x00F6;',
  '\xF7' => '&#x00F7;',
  '\xF8' => '&#x00F8;',
  '\xF9' => '&#x00F9;',
  '\xFA' => '&#x00FA;',
  '\xFB' => '&#x00FB;',
  '\xFC' => '&#x00FC;',
  '\xFD' => '&#x00FD;',
  '\xFE' => '&#x00FE;',
  '\xFF' => '&#x00FF;'


);

sub strip_controlchars { 
  my $text = shift;
  my $arg_value = shift;
  my $ctx = shift;
  if ($arg_value == 1) {
	$text =~ s/[\x00-\x08\x0B\x0C\x0E\x0F\x10-\x1F\x80-\x9F]//g;
  } elsif ($arg_value == 2) {
	my $controlchar;
	foreach $controlchar (sort keys(%windows_1252)) {
	   $text =~ s/$controlchar/$windows_1252{$controlchar}/g;
	}
  }
  return $text;
}

1;