#!/usr/bin/perl -w
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
#NAME
#  pctdecode - 
#
#SYNOPSIS
#  pctdecode [file]..
#REQUIRES
#
#DESCRIPTION
#
#OPTIONS
# None yet, but there may be some soon.
#
#EXAMPLES
#
#FILES
#
#BUGS
#
#SEE ALSO
#
#AUTHOR
#  John Chambers <jc@trillian.mit.edu>
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #

$| = 1;
$exitstat = 0;
($P = $0) =~ s".*/"";
#V = $ENV{"V_$P"} || $ENV{"D_$P"} || 2;	# Verbose level.

while ($s = <>) {
	$s =~ s/[\r\s]+$//;		# Trim white stuff
	print "Input: \"$s\"\n";
	$t = &url_decode($s);
	print "Result \"$t\"\n";
}

exit $exitstat;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
##  From CGI_Lite.pm
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub url_decode
{	my $string = shift;
    $string =~ s/%([\da-fA-F]{2})/chr (hex ($1))/eg;
    return $string;
}