Lines Matching refs:url

9 use vars qw/%url $date/;
11 %url = ();
18 	if( exists $url{ $tag } ){
19 		return $url{ $tag };
44 		$url{ $tag } = "<a href=\"$file#".escurl($tag)."\">".esctext($label)."</a>";
60 	my $url = shift;
61 	$url =~ s/"/%22/g;
62 	$url =~ s/~/%7E/g;
63 	$url =~ s/</%3C/g;
64 	$url =~ s/>/%3E/g;
65 	$url =~ s/=/%20/g;
66 	$url =~ s/#/%23/g;
67 	$url =~ s/\//%2F/g;
69 	return $url;