view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
lib/Aozora2Epub.pm view on Meta::CPAN
use Aozora2Epub::CachedGet qw/http_get/;
use Aozora2Epub::Epub;
use Aozora2Epub::XHTML;
use Path::Tiny;
use URI;
use HTML::Escape qw/escape_html/;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw/files title author epub bib_info notation_notes/);
our $VERSION = '0.05';
lib/Aozora2Epub.pm view on Meta::CPAN
$self->bib_info(join('',
$self->bib_info,
"<br/>",
($part_title
? (q{<h5 class="bib">}, escape_html($part_title), "</h5>")
: ()),
$bib_info));
}
sub add_notation_notes {
lib/Aozora2Epub.pm view on Meta::CPAN
$self->notation_notes(join('',
$self->notation_notes,
"<br/>",
($part_title
? (q{<h5 class="n-notes">}, escape_html($part_title), "</h5>")
: ()),
$notes));
}
sub _make_content_iterator {
view release on metacpan or search on metacpan
many powerful extensions, including XML taglibs, XSLT rendering,
and new events not originally part of the ASP API!
=begin html
<table class="noescape" border="0"><tr><td>
<b>Apache::ASP's features include:</b>
<font face=verdana,helvetica,arial size=-1>
<ul>
<li> Scripting SYNTAX is Natural and Powerful
<li> Rich OBJECTS Developer API
with caching output from $Response->Include(\%cache)
running on a Linux 2.2.14 dual PIII-450.
The variables are output size being cached & the CacheDB used,
the default being MLDBM::Sync::SDBM_File.
<table class="noescape" border="0">
<tr><th>CacheDB</th><th>Output Cached</th><th>Operation</th><th>Ops/sec</th></tr>
<tr><td>MLDBM::Sync::SDBM_File</td> <td>3200 bytes</td> <td>read</td> <td>177</td></tr>
<tr><td>DB_File</td> <td>3200 bytes</td> <td>read</td> <td>59</td></tr>
<tr><td>MLDBM::Sync::SDBM_File</td> <td>32000 bytes</td> <td>read</td> <td>42</td></tr>
<tr><td>DB_File</td> <td>32000 bytes</td> <td>read</td> <td>53</td></tr>
my $script = "<\% print 'TEST'; %\>";
$Response->Include(\$script);
%>
This include would output TEST. Note that tokens like
<% and %> must be escaped so Apache::ASP does not try
to compile those code blocks directly when compiling
the original script. If the $script data were fetched
directly from some external resource like a database,
then these tokens would not need to be escaped at all as in:
<%
my $script = $dbh->selectrow_array(
"select script_text from scripts where script_id = ?",
undef, $script_id
Not implemented, will likely not ever be because this is dependent
on how IIS handles errors and is not relevant in Apache.
=item $Server->HTMLEncode( $string || \$string )
Returns an HTML escapes version of $string. &, ", >, <, are each
escapes with their HTML equivalents. Strings encoded in this nature
should be raw text displayed to an end user, as HTML tags become
escaped with this method.
As of version 2.23, $Server->HTMLEncode() may take a string reference
for an optmization when encoding a large buffer as an API extension.
Here is how one might use one over the other:
$Response->Include($file, @args);
$Response->End;
=item $Server->URLEncode($string)
Returns the URL-escaped version of the string $string. +'s are substituted in
for spaces and special characters are escaped to the ascii equivalents.
Strings encoded in this manner are safe to put in urls... they are especially
useful for encoding data used in a query string as in:
$data = $Server->URLEncode("test data");
$url = "http://localhost?data=$data";
(d) Documentation update about flock() work around for
Win95/Win98/WinMe systems, confirmed by Rex Arul
(d) Documentation/site build bug found by Mitsunobu Ozato,
where <% %> not being escaped correctly with $Server->HTMLEncode().
New japanese documentation project started by him
at http://sourceforge.jp/projects/apache-asp-jp/
-InitPackageGlobals() called after new Apache::ASP object created so
core system templates can be compiled even when there was a runtime
view release on metacpan or search on metacpan
=item BodyArgs
This entire string is passed in the <BODY> tag. Useful for setting
background images, background color, link colors, etc. If set in the
httpd.conf file, you must put quotes around the value, and escape any
quotes in the value. If this value is set in the .htaccess file, this
is not necessary:
In httpd.conf: PerlSetVar BodyArgs "BACKGROUND=gray.gif text=\"#FFFFFF\""
In .htaccess : PerlSetVar BodyArgs BACKGROUND=gray.gif text="#FFFFFF"
view release on metacpan or search on metacpan
JavaScript.pm view on Meta::CPAN
my $repl = join("'+'", $orig =~ /(.{1,4})/g);
$repl =~ s/</'+JSlt+'/g;
$repl =~ s/>/'+JSgt+'/g;
## removed language=\"JavaScript\" for XHTML
$orig = "<script type=\"text/javascript\">JSlt=unescape('%3C');JSgt=unescape('%3E');document.write('" .
$repl . "');</script>";
## may be you want to add this
#$orig .= "<noscript>$text ($email)</noscript>";
JavaScript.pm view on Meta::CPAN
# in html-file
<a href="mailto:alex@zeitform.de">alex@zeitform.de</a>
# in browser
<script type="text/javascript">
JSlt=unescape('%3C'); // "<"
JSgt=unescape('%3E'); // ">"
document.write(''+JSlt+'a h'+'ref='+'"mai'+'lto:'+'alex'+'@zei'+'tfor'+
'm.de'+'"'+JSgt+'al'+'ex@z'+'eitf'+'orm.'+'de'+JSlt+'/'+
'a'+JSgt+'');
</script>
view release on metacpan or search on metacpan
Mercury/Base.pm view on Meta::CPAN
my $errmsg = $_[0] ? $_[0] : ": ".$@;
$self->{r}->log_error((ref($self)||$self).$errmsg)
if ref $self->{r} and $self->{r}->can("log_error");
}
sub uri_escape_noamp {
return uri_escape($_[1], '^;/?:@=+\$,A-Za-z0-9\-_.!~*\'()');
}
sub get_date {
my @date = localtime($_[1] ? $_[1] : time);
# my $midnighttime = mktime(0, 0, 0, @date[3, 4, 5], 0, 0, 0);
view release on metacpan or search on metacpan
lib/Apache/AppSamurai.pm view on Meta::CPAN
# Make sure there is at least one value, which can be empty
(scalar(@values)) or ($values[0] = '');
foreach $value (@values) {
if ($MP eq 1) {
push(@pairs, Apache::Util::escape_uri($name) . '=' .
Apache::Util::escape_uri($value));
} else {
# Assume mod_perl 2 behaviour
push(@pairs, Apache2::Util::escape_path($name, $r->pool) .
'=' . Apache2::Util::escape_path($value, $r->pool));
}
}
}
$r->args(join '&', @pairs) if scalar(@pairs) > 0;
view release on metacpan or search on metacpan
lib/Apache/AuthCookie.pm view on Meta::CPAN
use Carp;
use mod_perl qw(1.07 StackedHandlers MethodHandlers Authen Authz);
use Apache::Constants qw(:common M_GET FORBIDDEN OK REDIRECT);
use Apache::AuthCookie::Params;
use Apache::AuthCookie::Util qw(is_blank is_local_destination);
use Apache::Util qw(escape_uri);
use Apache::URI;
use Encode ();
sub recognize_user ($$) {
lib/Apache/AuthCookie.pm view on Meta::CPAN
# we dont want to copy login data, only extra data
next if $name eq 'destination'
or $name =~ /^credential_\d+$/;
for my $v ($args->param($name)) {
push @pairs, escape_uri($name) . '=' . escape_uri($v);
}
}
$r->args(join '&', @pairs) if scalar(@pairs) > 0;
lib/Apache/AuthCookie.pm view on Meta::CPAN
sub untaint_destination {
my ($self, $dest) = @_;
return Apache::AuthCookie::Util::escape_destination($dest);
}
sub logout($$) {
my ($self, $r) = @_;
lib/Apache/AuthCookie.pm view on Meta::CPAN
URL contained in the C<"destination"> submitted form field.
=head2 untaint_destination($uri)
This method returns a modified version of the destination parameter
before embedding it into the response header. Per default it escapes
CR, LF and TAB characters of the uri to avoid certain types of
security attacks. You can override it to more limit the allowed
destinations, e.g., only allow relative uris, only special hosts or
only limited set of characters.
lib/Apache/AuthCookie.pm view on Meta::CPAN
=item *
Due to the way HTTP works, cookies cannot contain non-ASCII characters.
Because of this, if you are including the username in your generated session
key, you will need to escape any non-ascii characters in the session key
returned by L</authen_cred()>.
=item *
Similarly, you must reverse this escaping process in L</authen_ses_key()> and
view release on metacpan or search on metacpan
AuthCookiePAM.pm view on Meta::CPAN
use Apache;
use Apache::Table;
use Apache::Constants qw(:common M_GET FORBIDDEN REDIRECT);
use Apache::AuthCookie::Util;
use Apache::Util qw(escape_uri);
use Apache::AuthCookie;
use Authen::PAM;
use vars qw( @ISA );
@ISA = qw( Apache::AuthCookie );
AuthCookiePAM.pm view on Meta::CPAN
# we dont want to copy login data, only extra data
next if $name eq 'destination'
or $name =~ /^credential_\d+$/;
$value = '' unless defined $value;
push @pairs, escape_uri($name) . '=' . escape_uri($value);
}
$r->args(join '&', @pairs) if scalar(@pairs) > 0;
$r->method('GET');
$r->method_number(M_GET);
view release on metacpan or search on metacpan
# Strip possible quotes
$ticket =~ s,^"|"$,,g;
return if length($ticket) < 40;
# Assume $ticket is not URL-escaped but may be base64-escaped
my $raw = $ticket =~ m/!/ ? $ticket : decode_base64($ticket);
# If $raw still doesn't have ! then it is bogus
return if $raw !~ m/!/;
view release on metacpan or search on metacpan
eg/login.pl view on Meta::CPAN
#!/usr/bin/perl -w
use strict;
use Apache::Util qw( escape_uri );
my $Protected = 'http://example.com/login-protected';
my $r = Apache->request;
$r->status(200);
my $prev = $r->prev;
eg/login.pl view on Meta::CPAN
}
my $token = $prev->dir_config('TypeKeyToken');
my $tk_url = $prev->dir_config('TypeKeyURL') ||
'https://www.typekey.com/t/typekey/login';
$uri = escape_uri("$Protected?destination=" . escape_uri($uri));
my $html = <<HTML;
<html>
<head>
<title>Login</title>
view release on metacpan or search on metacpan
AuthzLDAP.pm view on Meta::CPAN
if ($member =~ /^[^=]+="([^"]+)",/) {
$member = $1;
$r->log->debug("check_group: Setting quoted $member");
} elsif ($member =~ /^[^=]+=([^,]+),/) {
$member = $1;
$r->log->debug("check_group: Examining escaped $member");
$member =~ s/\\(.)/$1/g;
$r->log->debug("check_group: Setting escaped $member");
}
$r->log->debug("check_group: Member now $member");
my ($result, $child_group) = check_group($r, $ld, $basedn, $groupattrtype,
$memberattrtype, $userinfo,
view release on metacpan or search on metacpan
lib/Apache/AxKit/Language/XSP/ObjectTaglib.pm view on Meta::CPAN
Similarly, the C<code> tag calls the C<code> method on the same object.
The C<description> and C<summary> tags call the C<description> and C<summary>
methods on each course object with the loop, this time making sure that the
result is valid XML instead of plain text. (This is because we store the
description in the database as XML, and don't want it escaped before AxKit
throws it onto the page.)
}, {
tag => 'presentations',
target => 'course',
view release on metacpan or search on metacpan
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
unless ($authen_script = $r->dir_config($auth_name.'LoginScript')) {
$r->log_reason("PerlSetVar '${auth_name}LoginScript' missing", $r->uri);
return SERVER_ERROR;
}
my $uri = uri_escape($r->uri);
$authen_script =~ s/((?:[?&])destination=)/$1$uri/;
$self->debug(3,"Internally redirecting to $authen_script");
$r->custom_response(FORBIDDEN, $authen_script);
return FORBIDDEN;
}
view release on metacpan or search on metacpan
dtds/drawing.mod view on Meta::CPAN
<!-- caption attributes -->
<!ATTLIST style:properties draw:caption-type (straight-line|angled-line|angled-connector-line) #IMPLIED>
<!ATTLIST style:properties draw:caption-angle-type (fixed|free) #IMPLIED>
<!ATTLIST style:properties draw:caption-angle %nonNegativeInteger; #IMPLIED>
<!ATTLIST style:properties draw:caption-gap %distance; #IMPLIED>
<!ATTLIST style:properties draw:caption-escape-direction (horizontal|vertical|auto) #IMPLIED>
<!ATTLIST style:properties draw:caption-escape %lengthOrPercentage; #IMPLIED>
<!ATTLIST style:properties draw:caption-line-length %distance; #IMPLIED>
<!ATTLIST style:properties draw:caption-fit-line-length %boolean; #IMPLIED>
<!-- Animations -->
<!ELEMENT presentation:sound EMPTY>
view release on metacpan or search on metacpan
templates/lightblue/older.html view on Meta::CPAN
<tr>
<td height="351"></td>
<td valign="top" colspan="2" class="lightblue">
<p>
<tmpl_loop older_entries>
<li><tmpl_var date> - <a href="<tmpl_var escape=url name=filename>"><tmpl_var escape=html name=short_name></a> (<tmpl_var wc> words)
</tmpl_loop>
<p></p>
<hr>
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $Pod::Escapes::Name2character_number{$1}
? chr($Pod::Escapes::Name2character_number{$1})
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
inc/Module/Install/Metadata.pm view on Meta::CPAN
defined $2
? chr($2)
: defined $mapping->{$1}
? $mapping->{$1}
: do {
warn "Unknown escape: E<$1>";
"E<$1>";
};
}gex;
}
else {
view release on metacpan or search on metacpan
then you need to reinstall CGI.pm - We have included a tested version
of CGI.pm in the contrib directory, however it is recommended to get the
latest version from http://www.perl.com/CPAN/modules/by-module/CGI/
>Attempt to free unreferenced scalar.
>[Wed Jan 15 14:36:45 2003] [error] Undefined subroutine &CGI::unescape called at
>/usr/lib/perl5/5.6.1/CGI/Cookie.pm line 75.
---> if this condition is met, thenm proceed to next test
4) Check which type of authetication has been chosen. i.e. is it an httpd.conf
view release on metacpan or search on metacpan
lib/Apache/CustomKeywords.pm view on Meta::CPAN
}
}
sub interpolate {
my($class, $engine, $query) = @_;
$engine =~ s/%s/$class->escape_it($query)/eg;
return $engine;
}
sub escape_it {
my($class, $query) = @_;
$query =~ s/ /+/g;
return Apache::Util::escape_uri($query);
}
sub query {
my($class, $r) = @_;
my %args = $r->args;
view release on metacpan or search on metacpan
mod_dav-1.0.3.patch view on Meta::CPAN
+ &propdb)) != NULL) {
+ err = dav_push_error(r->pool, HTTP_INTERNAL_SERVER_ERROR, 0,
+ ap_psprintf(r->pool,
+ "Could not open the property "
+ "database for %s.",
+ ap_escape_html(r->pool, r->uri)),
+ err);
+ return dav_handle_err(r, err, NULL);
+ }
+ /* ### what to do about closing the propdb on server failure? */
+
mod_dav-1.0.3.patch view on Meta::CPAN
- &propdb)) != NULL) {
- err = dav_push_error(r->pool, HTTP_INTERNAL_SERVER_ERROR, 0,
- ap_psprintf(r->pool,
- "Could not open the property "
- "database for %s.",
- ap_escape_html(r->pool, r->uri)),
- err);
- return dav_handle_err(r, err, NULL);
- }
- /* ### what to do about closing the propdb on server failure? */
-
view release on metacpan or search on metacpan
sql/oracle.sql view on Meta::CPAN
-- drop sequence records_MX_id;
-- drop sequence records_NS_id;
-- drop sequence records_PTR_id;
-- drop sequence records_TXT_id;
set escape \
create table languages (
id number not null,
lang varchar2(5) not null,
language varchar2(255) not null,
view release on metacpan or search on metacpan
lib/Apache/ExtDirect/Router.pm view on Meta::CPAN
# Pluck file name from Content-Disposition string
my ($file_name)
= $upload_info->{'Content-Disposition'} =~ /filename="(.*?)"/;
# URL unescape it
$file_name =~ s/%([\dA-Fa-f]{2})/pack("C", hex $1)/eg;
return $file_name;
}
view release on metacpan or search on metacpan
FakeCookie.pm view on Meta::CPAN
# Some foreign cookies are not in name=value format, so ignore
# them.
next if !defined($value);
my @values = ();
if ($value ne '') {
@values = map unescape($_),split(/[&;]/,$value.'&dmy');
pop @values;
}
$key = unescape($key);
# A bug in Netscape can cause several cookies with same name to
# appear. The FIRST one in HTTP_COOKIE is the most recent version.
$results{$key} ||= $self->new(undef,-name=>$key,-value=>\@values);
}
$self = \%results;
FakeCookie.pm view on Meta::CPAN
}
sub as_string {
my $self = shift;
return '' unless $self->name;
my %cook = %$self;
my $cook = ($cook{-name}) ? escape($cook{-name}) . '=' : '';
if ($cook{-value}) {
my $i = '';
foreach(@{$cook{-value}}) {
$cook .= $i . escape($_);
$i = '&';
}
}
foreach(qw(domain path)) {
$cook .= "; $_=" . $cook{"-$_"} if $cook{"-$_"};
FakeCookie.pm view on Meta::CPAN
}
$self->{$item} = $val;
}
return (exists $self->{$item}) ? $self->{$item} : '';
}
sub escape {
my ($x) = @_;
return undef unless defined($x);
$x =~ s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
return $x;
}
# unescape URL-data, but leave +'s alone
sub unescape {
my ($x) = @_;
return undef unless defined($x);
$x =~ tr/+/ /; # pluses become spaces
$x =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
return $x;
view release on metacpan or search on metacpan
examples/basic/Demo.pm view on Meta::CPAN
# Template initialisation
my $sheet = tie my %sheet, 'Apache::FastForward::Spreadsheet';
my %csv_atr = (
'quote_char' => '"',
'escape_char' => '"',
'sep_char' => ';',
'binary' => 1 );
$sheet->LoadTemplate( '/var/www/demo/books.csv', \%csv_atr);
view release on metacpan or search on metacpan
FileManager.pm view on Meta::CPAN
use strict;
#use warnings;
use IO::File;
use Apache::Request;
use Apache::Util qw(escape_html);
use Apache::File;
use File::NCopy qw(copy);
use File::Copy qw(move);
use File::Remove qw(remove);
use File::stat;
FileManager.pm view on Meta::CPAN
var cookiestring=''+document.cookie;
var index1=cookiestring.indexOf(cookiename);
if (index1==-1 || cookiename=='') return '';
var index2=cookiestring.indexOf(';',index1);
if (index2==-1) index2=cookiestring.length;
return unescape(cookiestring.substring(index1+cookiename.length+1,index2));
}
function setcookie(name,value,duration){
cookiestring=name+'='+escape(value)+';EXPIRES='+getexpirydate(duration);
document.cookie=cookiestring;
if(!getcookie(name)){ return false; }
else{ return true; }
}
FileManager.pm view on Meta::CPAN
window.alert('Please select ONE file to edit by clicking on a check box with the mouse.');
}
else {
var f= window.document.FileManager;
var cd = escape(f.FILEMANAGER_curr_dir.value);
var editfile = escape(sel_ar[0].value);
var w = window.open('".r->uri."?FILEMANAGER_cmd=editfile&FILEMANAGER_curr_dir='+cd+'&FILEMANAGER_editfile='+editfile, 'FileManagerEditFile', 'scrollbars,resizable');
sel_ar[0].checked = false;
w.focus();
}
}
FileManager.pm view on Meta::CPAN
var cd = f.FILEMANAGER_curr_dir.value;
if (cd != '') {
rv = cd+'/'+rv;
}
if ((rv != null)&&(rv != '')) {
var w = window.open('".r->uri."?FILEMANAGER_cmd=editfile&FILEMANAGER_curr_dir='+escape(cd)+'&FILEMANAGER_editfile='+escape(rv), 'FileManagerEditFile', 'scrollbars,resizable');
w.focus();
} else if (rv == '') {
window.alert('can not create blank file names');
}
return false;
FileManager.pm view on Meta::CPAN
#if directory?
if (-d $file) {
$last_modified = "--";
$size = "<TD ALIGN=CENTER>--</TD>";
$type = "/"; # "/" designates "directory"
$link = "<A HREF=# onclick=\"var f=window.document.FileManager; f.FILEMANAGER_curr_dir.value='".&escape_html($curr_dir.$file)."'; f.submit(); return false;\"><FONT COLOR=#006699>$file$type</FONT></A>";
}
#must be a file
elsif (-f $file) {
FileManager.pm view on Meta::CPAN
$fake_doc_root =~ s/^\///; $fake_doc_root =~ s/\/$//;
my $href = $curr_dir;
$href = $fake_doc_root."/".$href if $fake_doc_root;
$link = "<A HREF=\"/$href"."$file?nossi=1\" TARGET=_blank><FONT COLOR=BLACK>".&escape_html($file.$type)."</FONT></A>";
}
$acum .= "
<TR BGCOLOR=#$bgcolor>
<TD><INPUT TYPE=CHECKBOX NAME=FILEMANAGER_sel_files VALUE='$curr_dir"."$file'></TD>
FileManager.pm view on Meta::CPAN
my $o = shift;
my @sel_files = r->param('FILEMANAGER_sel_files');
return \ @sel_files;
}
#escape spaces in filename
sub filename_esc {
my $o = shift;
my $f = shift;
$f =~ s/\ /\\\ /g;
return $f;
view release on metacpan or search on metacpan
lib/Apache/GD/Graph.pm view on Meta::CPAN
eval {
my $args = scalar $r->args || $r->content;
my %args = map {
s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
$_ # unescaped
} split /[=&;]/, $args, -1;
die <<EOF unless $args;
Please supply arguments in the query string, see the Apache::GD::Graph man
page for details.