1 package PLP::Functions;
10 our @EXPORT = qw/Entity DecodeURI EncodeURI Include include PLP_END
11 AddCookie ReadFile WriteFile AutoURL Counter exit/;
19 eval 'package PLP::Script; no warnings; ' . PLP::source($PLP::file, 0, join ' ', (caller)[2,1]);
21 PLP::Functions::exit() if $@ =~ /\cS\cT\cO\cP/;
35 push @PLP::END, shift;
39 my $ref = defined wantarray ? [@_] : \@_;
48 s/\t/ /g;
52 return defined wantarray ? (wantarray ? @$ref : "@$ref") : undef;
56 my $ref = defined wantarray ? [@_] : \@_;
60 tr/+/ /; # Browsers do tr/ /+/ - I don't care about RFCs, but
61 # I do care about real-life situations.
62 s/%([0-9A-Fa-f][0-9A-Fa-f])/chr hex $1/ge;
65 return defined wantarray ? (wantarray ? @$ref : "@$ref") : undef;
69 my $ref = defined wantarray ? [@_] : \@_;
73 s{([^A-Za-z0-9\-_.!~*'()/?:@\$,])}{sprintf("%%%02x", ord $1)}ge;
76 return defined wantarray ? (wantarray ? @$ref : "@$ref") : undef;
80 if ($PLP::Script::header{'Set-Cookie'}) {
81 $PLP::Script::header{'Set-Cookie'} .= "\n" . $_[0];
83 $PLP::Script::header{'Set-Cookie'} = $_[0];
89 open (my $fh, '<', $_[0]) or do {
90 PLP::error("Cannot open $_[0] for reading ($!)", 1);
99 open (my $fh, '>', $_[0]) or do {
100 PLP::error("Cannot open $_[0] for writing ($!)", 1);
104 print $fh $_[1] or do {
105 PLP::error("Cannot write to $_[0] ($!)");
109 PLP::error("Cannot close $_[0] ($!)");
118 open $fh, '+<', $_[0] or
119 open $fh, '>', $_[0] or return undef;
125 print $fh ++$counter or return undef;
126 close $fh or return undef;
131 # This sub assumes your string does not match /(["<>])\cC\1/
132 my $ref = defined wantarray ? \(my $copy = $_[0]) : \$_[0];
134 $$ref =~ s/"/"\cC"/g; # Single characters are easier to match :)
135 $$ref =~ s/>/>\cC>/g; # so we can just use a character class []
136 $$ref =~ s/</<\cC</g;
138 # Now this is a big, ugly regex! But hey - it works :)
139 $$ref =~ s{((\w+://|www\.|WWW\.)[a-zA-Z0-9\.\@:-]+[^\"\'>< \r\t\n]*)}{
142 s/// if (my $trailing) = /([\.,!\?\(\)\[\]]+$)/;
143 s/&(?!\x23?\w+;)/&/g;
145 my $href = ($scheme =~ /www\./i ? "http://$_" : $_);
146 qq{<a href="$href" target="_blank">$_</a>$trailing};
149 $$ref =~ s/"\cC"/"/g;
150 $$ref =~ s/>\cC>/>/g;
151 $$ref =~ s/<\cC</</g;
153 if ($@){ return defined wantarray ? @_ : undef } # return original on error
154 return defined wantarray ? $$ref : undef;
161 PLP::Functions - Functions that are available in PLP documents
165 The functions are exported into the PLP::Script package that is used by PLP documents. Although uppercased letters are unusual in Perl, they were chosen to stand out.
167 Most of these functions are context-hybird. Before using them, one should know about contexts in Perl. The three major contexts are: B<void>, B<scalar> and B<list> context. You'll find more about context in L<perlfunc>.
169 Some context examples:
171 print foo(); # foo is in list context (print LIST)
172 foo(); # foo is in void context
173 $bar = foo(); # foo is in scalar context
174 @bar = foo(); # foo is in list context
175 length foo(); # foo is in scalar context (length EXPR)
181 =item Include FILENAME
183 Executes another PLP file, that will be parsed (i.e. code must be in C<< <: :> >>). As with Perl's C<do>, the file is evaluated in its own lexical file scope, so lexical variables (C<my> variables) are not shared. PLP's C<< <(filename)> >> includes at compile-time, is faster and is doesn't create a lexical scope (it shares lexical variables).
185 Include can be used recursively, and there is no depth limit:
187 <!-- This is crash.plp -->
190 # This example will loop forever,
191 # and dies with an out of memory error.
192 # Do not try this at home.
195 =item include FILENAME
197 An alias for C<Include>.
201 Adds a piece of code that is executed when at the end of the PLP document. This is useful when creating a template file:
203 <html><body> <!-- this is template.plp -->
208 <(template.plp)> <!-- this is index.plp -->
211 You should use this function instead of Perl's built-in C<END> blocks, because those do not work properly with mod_perl.
215 Replaces HTML syntax characters by HTML entities, so they can be displayed literally. You should always use this when displaying user input (or database output), to avoid cross-site-scripting vurnerabilities.
217 In void context, B<changes> the values of the given variables. In other contexts, returns the changed versions.
219 <: print Entity($user_input); :>
221 Be warned that this function also HTMLizes consecutive whitespace and newlines (using and <br> respectively).
222 For simple escaping, use L<XML::Quote|XML::Quote>.
223 To escape high-bit characters as well, use L<HTML::Entities|HTML::Entities>.
227 Encodes URI strings according to RFC 3986. All disallowed characters are replaced by their %-encoded values.
229 In void context, B<changes> the values of the given variables. In other contexts, returns the changed versions.
231 <a href="/foo.plp?name=<:= EncodeURI($name) :>">Link</a>
233 Note that the following reserved characters are I<not> percent-encoded, even though they may have a special meaning in URIs:
237 This should be safe for escaping query values (as in the example above),
238 but it may be a better idea to use L<URI::Escape|URI::Escape> instead.
242 Decodes %-encoded strings. Unlike L<URI::Escape|URI::Escape>,
243 it also translates + characters to spaces (as browsers use those).
245 In void context, B<changes> the values of the given variables. In other contexts, returns the changed versions.
247 =item ReadFile FILENAME
249 Returns the contents of FILENAME in one large string. Returns undef on failure.
251 =item WriteFile FILENAME, STRING
253 Writes STRING to FILENAME (overwrites FILENAME if it already exists). Returns true on success, false on failure.
255 =item Counter FILENAME
257 Increases the contents of FILENAME by one and returns the new value. Returns undef on failure. Fails silently.
259 You are visitor number <:= Counter('counter.txt') :>.
263 Replaces URLs (actually, replace things that look like URLs) by links.
265 In void context, B<changes> the value of the given variable. In other contexts, returns the changed version.
267 <: print AutoURL(Entity($user_input)); :>
269 =item AddCookie STRING
271 Adds a Set-Cookie header. STRING must be a valid Set-Cookie header value.
277 Juerd Waalboer <juerd@cpan.org>
279 Current maintainer: Mischa POSLAWSKY <shiar@cpan.org>