#!/usr/bin/perl -w
# Author: Vulcho Nedelchev (weby@bastun.net)
# Date: Thursday 17 April 2003
# Version: 1.0.0
use strict;

sub url_encode ($) {
	my $str=shift;
	$str=~s#([^-0-9a-zA-Z./])#sprintf("%%%02X", ord($1))#ge;
	return $str;
}

sub url_decode ($) {
	my $str=shift;
	$str=~tr/+/ /;
	$str=~s/%([0-9a-z]{2})/chr(hex($1))/ieg;
	return $str;
}