code/Filter/urldecode.filter

   1 # Copyright 2002-2007 Interchange Development Group and others
   2 # Copyright 1996-2002 Red Hat, Inc.
   3 #
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 2 of the License, or
   7 # (at your option) any later version.  See the LICENSE file for details.
   8 #
   9 # $Id: urldecode.filter,v 1.5 2007-09-21 16:15:48 kwalsh Exp $
  10
  11 CodeDef url       Filter
  12 CodeDef url       Alias urldecode
  13
  14 CodeDef urld      Filter
  15 CodeDef urld      Alias urldecode
  16
  17 CodeDef urldecode Filter
  18 CodeDef urldecode Description URL decode
  19 CodeDef urldecode Routine <<EOR
  20 sub {
  21         my $val = shift;
  22         $val =~ s|\%([a-fA-F0-9][a-fA-F0-9])|chr(hex($1))|eg;
  23         return $val;
  24 }
  25 EOR