urlencode.filter

# Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
# Copyright 1996-2002 Red Hat, Inc.
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: urlencode.filter,v 1.3 2005-11-08 18:14:32 jon Exp $

CodeDef urlencode Filter
CodeDef urlencode Description URL encode
CodeDef urlencode Routine <<EOR
sub {
	my $val = shift;
	$val =~ s|([^\w:])|sprintf "%%%02x", ord $1|eg;
	return $val;
}
EOR