X-Git-Url: http://git.shiar.nl/perl/plp/.git/blobdiff_plain/0daff7b8f9f15f54cfd2af57e4c8f868db199dda..d7eecb5ca73d043897b6e49c14845bda97ba2202:/PLP/Functions.pm?ds=inline diff --git a/PLP/Functions.pm b/PLP/Functions.pm index 3a0f002..fa23270 100644 --- a/PLP/Functions.pm +++ b/PLP/Functions.pm @@ -4,7 +4,7 @@ use base 'Exporter'; use Fcntl qw(:flock); use strict; -our @EXPORT = qw/HiddenFields Entity DecodeURI EncodeURI Entity include PLP_END +our @EXPORT = qw/Entity DecodeURI EncodeURI include PLP_END AddCookie ReadFile WriteFile AutoURL Counter Include exit/; sub Include ($) { @@ -32,16 +32,6 @@ sub PLP_END (&) { push @PLP::END, shift; } -sub HiddenFields ($@) { - my $hash = shift; - my %saves; - @saves{@_} = (); - for (keys %$hash) { - print qq{} - unless exists $saves{$_}; - } -} - sub Entity (@) { my $ref; my @copy; @@ -253,17 +243,26 @@ In void context, B the values of the given variables. In other contexts <: print Entity($user_input); :> +Be warned that this function also HTMLizes consecutive whitespace and newlines (using   and
respectively). +For simple escaping, use L. To escape high-bit characters as well, use L. + =item EncodeURI LIST -Replaces characters by their %-encoded values. +Encodes URI strings according to RFC 3986. All disallowed characters are replaced by their %-encoded values. In void context, B the values of the given variables. In other contexts, returns the changed versions. Link +Note that the following reserved characters are I percent-encoded, even though they may have a special meaning in URIs: + + / ? : @ $ + +This should be safe for escaping query values (as in the example above), but it may be a better idea to use L instead. + =item DecodeURI LIST -Decodes %-encoded strings. +Decodes %-encoded strings. Unlike L, it also translates + characters to spaces (as browsers use those). In void context, B the values of the given variables. In other contexts, returns the changed versions.