Result:
found more than 632 distributions - search limited to the first 2001 files matching your query
( run in 2.081 )
Apache-Template
view release on metacpan or search on metacpan
lib/Apache/Template.pm view on Meta::CPAN
A pair of values can be used to indicate a START_TAG and END_TAG.
TT2Tags <!-- -->
Note that, unlike the Template Toolkit START_TAG and END_TAG
configuration options, these values are automatically escaped to
remove any special meaning within regular expressions.
TT2Tags [* *] # no need to escape [ or *
By default, the start and end tags are set to C<[%> and C<%]>
respectively. Thus, directives are embedded in the form:
[% INCLUDE my/file %].
Apache-Test
view release on metacpan or search on metacpan
lib/Apache/TestConfig.pm view on Meta::CPAN
return $cfg;
}
# make a string suitable for feed to shell calls (wrap in quotes and
# escape quotes)
sub shell_ready {
my $arg = shift;
$arg =~ s!\\?"!\\"!g;
return qq["$arg"];
}
Apache-TopicMaps
view release on metacpan or search on metacpan
lib/Apache/TopicMaps.pm view on Meta::CPAN
next unless ($param_types->{$p} eq 'Topic');
# maybe alter sidp string
}
$u .= '?'. join( '&' , map { uri_escape($_) .'='. uri_escape($params{$_} )} keys %params );
}
print STDERR $u , "\n";
getTM($result_tm, $u);
}
lib/Apache/TopicMaps.pm view on Meta::CPAN
next unless ($param_types->{$p} eq 'Topic');
# maybe alter sidp string
}
$u .= '?'. join( '&' , map { uri_escape($_) .'='. uri_escape($params->{$_} )} keys %$params );
}
print STDERR $u , "\n";
getTM($tm, $u);
}
Apache-UploadMeter
view release on metacpan or search on metacpan
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
evalScripts: function() {
return this.extractScripts().map(function(script) { return eval(script) });
},
escapeHTML: function() {
var div = document.createElement('div');
var text = document.createTextNode(this);
div.appendChild(text);
return div.innerHTML;
},
unescapeHTML: function() {
var div = document.createElement('div');
div.innerHTML = this.stripTags();
return div.childNodes[0] ? (div.childNodes.length > 1 ?
$A(div.childNodes).inject('',function(memo,node){ return memo+node.nodeValue }) :
div.childNodes[0].nodeValue) : '';
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
dasherize: function() {
return this.gsub(/_/,'-');
},
inspect: function(useDoubleQuotes) {
var escapedString = this.replace(/\\/g, '\\\\');
if (useDoubleQuotes)
return '"' + escapedString.replace(/"/g, '\\"') + '"';
else
return "'" + escapedString.replace(/'/g, '\\\'') + "'";
}
});
String.prototype.gsub.prepareReplacement = function(replacement) {
if (typeof replacement == 'function') return replacement;
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
_attributes: function(attributes) {
var attrs = [];
for(attribute in attributes)
attrs.push((attribute in this.ATTR_MAP ? this.ATTR_MAP[attribute] : attribute) +
'="' + attributes[attribute].toString().escapeHTML() + '"');
return attrs.join(" ");
},
_children: function(element, children) {
if(typeof children=='object') { // array can hold nodes and text
children.flatten().each( function(e) {
Apache-UpnpImgBrowser
view release on metacpan or search on metacpan
UpnpImgBrowser.pm view on Meta::CPAN
(split('&', $r->args));
my $image = $in{image};
my $page = $in{page} || 1;
my $dir = $in{dir};
my $dev = uri_unescape($in{dev}) || $gDeviceList[0]->getudn;
$dev =~ s/\+/ /g;
# only rotate up to 360 degrees
if($in{'rot'} >= 360) { $in{'rot'} -= 360 };
Apache-VMonitor
view release on metacpan or search on metacpan
lib/Apache/VMonitor.pm view on Meta::CPAN
# alert on workers that worked for a single request for more
# than 15 secs
lastreq_class = wrec.lastreq > 15 ? "alert" : "normal";
wrec.flastreq = "<span class=\"$lastreq_class\">${wrec.flastreq}</span>";
# escape HTML in request URI to prevent cross-site scripting attack
wrec.frequest = HTML.escape(wrec.request);
# line fill spacing (needed for coloured areas)
times = max_request_len - wrec.frequest.length;
line_fill = times > 0 ? space.repeat(times) : "";
lib/Apache/VMonitor.pm view on Meta::CPAN
format_item("Client IP or DNS", rec.client);
format_item("Virtual Host", rec.vhost) IF rec.vhost.length;
# escape HTML in request URI to prevent cross-site scripting attack
rec.frequest = HTML.escape(rec.request);
format_item("Request (first 64 chars)", rec.frequest);
format_item("", "");
USE format_cpu_header = format("%8s %8s %8s %8s %8s");
Apache-VimColor
view release on metacpan or search on metacpan
VimColor.pm view on Meta::CPAN
our $Position = 0;
our $Cache = {};
return (1);
sub escape_html ($)
{
$_ = shift;
s/\&/&/g;
s/</</g;
VimColor.pm view on Meta::CPAN
s/( +)/' ' x length ($1)/ge;
return ($_);
}
sub escape_tabs ($$)
{
my $value = shift;
my $tabstop = shift;
my $retval = '';
VimColor.pm view on Meta::CPAN
for (my $i = 0; $i < scalar (@$elems); $i++)
{
my $type = $elems->[$i][0];
my $value = $elems->[$i][1];
$value = escape_tabs ($value, $options->{'tabstop'});
$value = escape_html ($value);
if ($type)
{
$output .= qq(<span class="$type">$value</span>);
}
Apache-Voodoo
view release on metacpan or search on metacpan
lib/Apache/Voodoo/Validate/varchar.pm view on Meta::CPAN
my $hex = '[a-fA-F\d]';
my $alpha = '[a-zA-Z]'; # No, no locale.
my $alphas = "(?:${alpha}+)";
my $alphanum = '[a-zA-Z\d]'; # Letter or digit.
my $xalphanum = "(?:${alphanum}|%(?:3\\d|[46]$hex|[57][Aa\\d]))";
# Letter or digit, or hex escaped letter/digit.
my $alphanums = "(?:${alphanum}+)";
my $escape = "(?:%$hex\{2})";
my $safe = '[$\-_.+]';
my $extra = "[!*'(),]";
my $reserved = '[;/?:@&=]';
my $uchar = "(?:${alphanum}|${safe}|${extra}|${escape})";
$uchar =~ s/\Q]|[\E//g; # Make string smaller, and speed up regex.
# URL schemeparts for ip based protocols:
my $user = "(?:(?:${uchar}|[;?&=])*)";
my $password = "(?:(?:${uchar}|[;?&=])*)";
Apache-WebDAV
view release on metacpan or search on metacpan
lib/Apache/WebDAV.pm view on Meta::CPAN
our $VERSION = '0.01';
use Apache;
use Apache::Constants qw(:response :http);
use Apache::Util qw(unescape_uri escape_uri);
use Data::Dumper;
use Encode;
use File::Spec;
use File::Find::Rule::Filesys::Virtual;
use URI;
lib/Apache/WebDAV.pm view on Meta::CPAN
my $href = $doc->createElement('D:href');
$href->appendText(
File::Spec->catdir(
map { uri_escape encode_utf8 $_ } File::Spec->splitdir($path)
)
);
$resp->addChild($href);
Apache-Wyrd
view release on metacpan or search on metacpan
$processing = $self->dbl->self_path if ($_dbl);
$processing ||= "{COULD NOT PROCESS PATH TO PERL OBJECT}";#assume self_path could be erroneously null
my $id = "($processing -- $caller[0]:$caller[2])";
$value = join(':', $id, $value , "\n". $self->{'_as_html'} . "\n");
if ($_dbl) {
my $htmlvalue = join(':', $id, $value , "<BR>\n". Apache::Util::escape_html($self->{'_as_html'}) . "<BR>\n");
$_dbl->log_event($htmlvalue);
}
die $value;
};
Unlike (X)HTML, however, Wyrds are named like perl modules with the double-colon
syntax (BASENAME::SUBNAME::SUBSUBNAME) and these names are B<case-sensitive>.
Furthermore, either single or double quotes MUST be used around attributes, and
these quotes must match on either side of the enclosed attribute value. Single
quotes may be used, however, to enclose double quotes and vice-versa unless the
entire attribute value is quoted. When in doubt, escape quotes by preceding
them with a backslash (\). B<HTML tags should not appear inside attributes.>
See C<Apache::Wyrd::Template> and C<Apache::Wyrd::Attribute> for common ways
around this limitation.
Also unlike (X)HTML, one Wyrd of one type cannot be embedded in another of the
$self->_debug("$base_class is the base class\n");
$self->_debug("$class is the class\n");
$self->_debug("$params is the params\n");
$self->_debug("$data is the data\n");
my $match = 0;
my (%init, $init_ref, $unescape) = ();
$self->_error("Attempted recursion of $class") if ($data =~ /<$base_class\:\:$class[\s>]/);
#drop the nest identifier
$class =~ s/([^:]):([^:]+)$/$1/ && $self->_info("dropped the nest identifier $2");
#encode the escaped-out " and '
$params =~ s/\\'/<!apostrophe!>/g;
$params =~ s/\\"/<!quote!>/g;
#escape-out special characters when they are the only attribute
$params =~ s/\$/<!dollar!>/g;
$params =~ s/\@/<!at!>/g;
$params =~ s/\%/<!percent!>/g;
$params =~ s/\&/<!ampersand!>/g;
#nullify the blank attributes
Apache-XBEL
view release on metacpan or search on metacpan
xsl/apache-xbel.xsl view on Meta::CPAN
====================================================================== -->
<!-- this is considered a bug until I can either
a) figure out the correct magic to prevent
JavaScript operators from being escaped.
b) move the JavaScript into a separate file
altogether -->
<xsl:output method = "html" />
<xsl:output indent = "yes" />
Apache-XPointer
view release on metacpan or search on metacpan
lib/Apache/XPointer/XPath.pm view on Meta::CPAN
my $pointer = undef;
$range =~ s/^\s+//;
$range =~ s/\s+$//;
# FIX ME - hooks to deal with '^' escaped
# parens per the XPointer spec
while ($range =~ /\G\s*xmlns\(([^=]+)=([^\)]+)\)/mg) {
$ns{ $1 } = $2;
}
Apache-iNcom
view release on metacpan or search on metacpan
lib/Apache/iNcom/Request.pm view on Meta::CPAN
};
$odat ||= {};
$idat ||= {};
my $uri = join "&", map {
if ( exists $odat->{$_} ) {
Apache::Util::escape_uri( $_ ) . "=" .
Apache::Util::escape_uri( $odat->{$_} );
} elsif ( not exists $idat->{$_} ) {
Apache::Util::escape_uri( $_ ) . "=" .
Apache::Util::escape_uri( $fdat->{$_} );
}
} keys %$fdat;
{
no strict 'refs';
Apache-iTunes
view release on metacpan or search on metacpan
lib/Apache/iTunes.pm view on Meta::CPAN
use strict;
use vars qw($VERSION);
use Apache::Constants qw(:common);
use Apache::Util qw(unescape_uri);;
use Mac::iTunes;
use Text::Template;
$VERSION = 0.12;
lib/Apache/iTunes.pm view on Meta::CPAN
{
my $r = shift;
my( undef, $command, @path_info )= split m|/|, ( $r->path_info || '' );
$command = '' unless $command; # silence warning
@path_info = map { unescape_uri( $_ ) } @path_info;
my %params = $r->args;
if( exists $Commands{ $command } )
{
Apache2-API
view release on metacpan or search on metacpan
lib/Apache2/API/Query.pm view on Meta::CPAN
{
my $self = shift( @_ );
my $qs = shift( @_ );
for( split( /[&;]/, $qs ) )
{
my( $key, $value ) = map{ URI::Escape::uri_unescape( $_ ) } split( /=/, $_, 2 );
$key = Encode::decode_utf8( $key ) if( !utf8::is_utf8( $key ) );
$value = Encode::decode_utf8( $value ) if( !utf8::is_utf8( $value ) );
$self->{qq}->{$key} ||= [];
push( @{$self->{qq}->{$key}}, $value ) if( defined( $value ) && $value ne '' );
}
lib/Apache2/API/Query.pm view on Meta::CPAN
my( $self, $arrayref ) = @_;
while( @$arrayref )
{
my $key = shift( @$arrayref );
my $value = shift( @$arrayref );
my $key_unesc = URI::Escape::uri_unescape( $key );
$key_unesc = Encode::decode_utf8( $key_unesc ) if( !utf8::is_utf8( $key_unesc ) );
$self->{qq}->{$key_unesc} ||= [];
if( defined( $value ) && $value ne '' )
{
lib/Apache2/API/Query.pm view on Meta::CPAN
}
else
{
die( "Invalid value found: $value. Not string or arrayref!" );
}
# push @{$self->{qq}->{$key_unesc}}, map { uri_unescape($_) } @values;
for( @values )
{
$_ = URI::Escape::uri_unescape( $_ );
$_ = Encode::decode_utf8( $_ ) if( !utf8::is_utf8( $_ ) );
push( @{$self->{qq}->{$key_unesc}}, $_ );
}
}
}
lib/Apache2/API/Query.pm view on Meta::CPAN
$qq->strip_null;
# Replace all occurrences of the given parameters
$qq->replace(page => $page, foo => 'bar');
# Set the argument separator to use for output (default: unescaped '&')
$qq->separator(';');
# Output the current query string
print "$qq"; # OR $qq->stringify;
# Stringify with explicit argument separator
lib/Apache2/API/Query.pm view on Meta::CPAN
# where values are either scalars or arrayrefs of scalars
$qq = Apache2::API::Query->new($cgi->Vars);
Apache2::API::Query also handles L<CGI.pm>-style hashrefs, where multiple values are packed into a single string, separated by the "\0" (null) character.
All keys and values are URI unescaped at construction time, and are stored and referenced unescaped. So a query string like:
group=prod%2Cinfra%2Ctest&op%3Aset=x%3Dy
is stored as:
'group' => 'prod,infra,test'
'op:set' => 'x=y'
You should always use the unescaped/normal variants in methods i.e.
$qq->replace('op:set' => 'x=z');
NOT:
lib/Apache2/API/Query.pm view on Meta::CPAN
Return the current parameter set as a conventional param=value query string, using $separator as the separator if given. e.g.
foo=1&bar=2&bar=3
Note that all parameters and values are URI escaped by stringify(), so that query-string reserved characters do not occur within elements. For instance, a parameter set of:
'group' => 'prod,infra,test'
'op:set' => 'x=y'
will be stringified as:
Apache2-ASP
view release on metacpan or search on metacpan
lib/Apache2/ASP/ModPerl2CGI.pm view on Meta::CPAN
return $s;
}# end new()
#==============================================================================
sub escape
{
my ($s, $str) = @_;
return Apache2::ASP::SimpleCGI->escape( $str );
}# end escape()
#==============================================================================
sub unescape
{
my ($s, $str) = @_;
return Apache2::ASP::SimpleCGI->unescape( $str );
}# end unescape()
#==============================================================================
sub AUTOLOAD
{
Apache2-Archive
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 {
Apache2-AuthAny
view release on metacpan or search on metacpan
lib/Apache2/AuthAny/AuthUtil.pm view on Meta::CPAN
sub goToGATE {
my $r = shift;
my $reason = shift;
my $subReason = shift;
my $request = uri_escape($r->unparsed_uri);
# prevent redirect loops
$request =~ s/aalogin/aadisabled/g;
my $dumped_subReason = $subReason ? ", subReason => " . Data::Dumper::Dumper($subReason) : '';
Apache2-AuthCAS
view release on metacpan or search on metacpan
lib/Apache2/AuthCAS.pm view on Meta::CPAN
$self->logMsg("start", $LOG_DEBUG);
my $service = $self->this_url(1);
$self->logMsg("redirecting to CAS for service: '$service'", $LOG_INFO);
$service = uri_escape($service);
$self->setHeader(0, 'Location', "https://"
. $self->casConfig("Host") . ":" . $self->casConfig("Port")
. $self->casConfig("LoginUri") . "?service=$service");
return (Apache2::Const::HTTP_MOVED_TEMPORARILY);
}
lib/Apache2/AuthCAS.pm view on Meta::CPAN
$self->setHeader(0, 'CAS_FILTER_SERVICE', $service);
$self->logMsg("redirecting to error page") if ($errcode);
$errcode = "" if (!$errcode);
$service = uri_escape($service);
$self->setHeader(0, 'Location'
, "$url?login_url=https://" . $self->casConfig("Host")
. ":" . $self->casConfig("Port") . $self->casConfig("LoginUri")
. "?service=$service&errcode=$errcode");
return (Apache2::Const::HTTP_MOVED_TEMPORARILY);
lib/Apache2/AuthCAS.pm view on Meta::CPAN
else
{
$url = $self->casConfig("ServiceValidateUri") . "?";
}
$service = uri_escape($service);
$url .= "service=$service&ticket=$ticket";
$self->logMsg("request URL: '$url'", $LOG_DEBUG);
# Net::SSLeay::trace options
Apache2-AuthCASSimple
view release on metacpan or search on metacpan
lib/Apache2/AuthCASSimple.pm view on Meta::CPAN
$log->error(__PACKAGE__.": Unable to create CAS instance.");
return SERVER_ERROR;
}
my $requested_url = _get_requested_url($r,$mod_proxy);
my $login_url = uri_escape $requested_url;
$login_url = $cas->login_url().$login_url;
#$log->info( '==login_url==='.$login_url.'____');
my %args = map { split '=', $_ } split '&', $r->args();
my $ticket = $args{'ticket'};
Apache2-AuthCASpbh
view release on metacpan or search on metacpan
lib/Apache2/AuthCASpbh/Authn.pm view on Meta::CPAN
}
else {
$service = $r->construct_url() . ($qs_nt ? "?$qs_nt" : '');
$_log->l($debug_level, "set service to $service");
};
$service = Apache2::Util::escape_path($service, $r->pool);
my $st = $q->param('ticket');
if ($st) {
my $ua = LWP::UserAgent->new(timeout => 10, keep_alive => 1);
lib/Apache2/AuthCASpbh/Authn.pm view on Meta::CPAN
$pgt_callback = 'https://' . $r->server->server_hostname .
$pgt_callback;
}
$_log->l($debug_level, "using PGT callback $pgt_callback");
$pgt_callback = Apache2::Util::escape_path($pgt_callback, $r->pool);
$validate_url .= "&pgtUrl=$pgt_callback";
}
my $response;
Apache2-AuthEnv
view release on metacpan or search on metacpan
lib/Apache2/AuthEnv.pm view on Meta::CPAN
This is useful for environment variables that are really lists
of values delimited with a specific value.
Note that the <split> string is a regular expression and needs to be
escaped appropiately; e.g. split on '\^' not on '^' as the latter just
splits on the beginning of the string and is probably not what you want.
=item * AuthEnvAllowFile <file>
=item * AuthEnvDenyFile <file>
Apache2-AutoIndex-XSLT
view release on metacpan or search on metacpan
lib/Apache2/AutoIndex/XSLT.pm view on Meta::CPAN
my $qstring = {};
for (split(/[&;]/,($r->args||''))) {
my ($k,$v) = split('=',$_,2);
next unless defined $k;
$v = '' unless defined $v;
$qstring->{URI::Escape::uri_unescape($k)} =
URI::Escape::uri_unescape($v);
}
# Get the configuration directives
my $dir_cfg = get_config($r->server, $r->per_dir_config);
lib/Apache2/AutoIndex/XSLT.pm view on Meta::CPAN
$attr->{icon} = '/icons/__back.png';
}
unless ($type eq 'updir') {
#$attr->{id} = $id; # This serves no real purpose anymor
$attr->{href} = URI::Escape::uri_escape($id);
$attr->{href} .= '/' if $type eq 'dir';
$attr->{title} = XML::Quote::xml_quote($id);
$attr->{desc} = $type eq 'dir'
? 'File Folder'
: defined $attr->{ext}
? sprintf('%s File',uc($attr->{ext}))
: 'File';
if (exists $dir_cfg->{AddDescription}->{$r->uri.URI::Escape::uri_escape($id)}) {
$attr->{desc} = $dir_cfg->{AddDescription}->{$r->uri.URI::Escape::uri_escape($id)};
} elsif (defined $FILETYPES{lc($attr->{ext})}->{DisplayName}) {
$attr->{desc} = $FILETYPES{lc($attr->{ext})}->{DisplayName};
}
$attr->{desc} = XML::Quote::xml_quote($attr->{desc});
lib/Apache2/AutoIndex/XSLT.pm view on Meta::CPAN
AddIcon (IMG,/icons/image.xbm) .gif .jpg .xbm
AddIcon /icons/dir.xbm ^^DIRECTORY^^
AddIcon /icons/backup.xbm *~
This sets the icon to display next to a file ending in name. Icon is either a
(%-escaped) relative URL to the icon, or of
the format (alttext,url) where alttext is the text tag given for an icon for
non-graphical browsers.
Name is either ^^DIRECTORY^^ for directories, ^^BLANKICON^^ for blank lines
(to format the list correctly), a file extension, a wildcard expression, a
lib/Apache2/AutoIndex/XSLT.pm view on Meta::CPAN
=head2 AddIconByEncoding
AddIconByEncoding /icons/compress.xbm x-compress
This sets the icon to display next to files. Icon is
either a (%-escaped) relative URL to the icon, or of the format (alttext,url)
where alttext is the text tag given for an icon for non-graphical browsers.
MIME-encoding is a wildcard expression matching required the content-encoding.
=head2 AddIconByType
AddIconByType (IMG,/icons/image.xbm) image/*
This sets the icon to display next to files of type MIME-type.
Icon is either a (%-escaped) relative URL to the icon, or of
the format (alttext,url) where alttext is the text tag given for an icon for
non-graphical browsers.
MIME-type is a wildcard expression matching required the mime types.
=head2 DefaultIcon
DefaultIcon /icons/__unknown.png
The I<DefaultIcon> directive sets the icon to display for files when no
specific icon is known. Url-path is a (%-escaped)
relative URL to the icon.
=head2 HeaderName
=head2 IndexIgnore
Apache2-Autocomplete
view release on metacpan or search on metacpan
okdh=function(a){if(!(ga(a.keyCode)||fa(a.keyCode))){return true}R++;if(R%3==1)za(a);return false};okuh=function(a){if(!(ya&&(ga(a.keyCode)||fa(a.keyCode)))&&R==0){za(a)}R=0;return false};function za(a){if(!ka){ka=true}j=a.keyCode;Z=d.value;Oa()}func...
b){var f=c[e].innerHTML;if(f==" ")return"";else{var h=rb(f);return h}}}}else{return""}}function L(a){if(!a)return null;return Ga(a,"cAutoComplete")}function ma(a){if(!a)return null;return Ga(a,"dAutoComplete")}function B(){document.getElementByI...
ca()}function Aa(a,b,c){Ca[a]=new Array(b,c)}Suggest_apply=function(a,b,c,e){if(c.length==0||c[0]<2)return;var f=[],h=[],g=c[0],l=Math.floor((c.length-1)/g);for(var o=0;o<l;o++){f.push(c[o*g+1]);h.push(c[o*g+2])}var y=e?e:[];sendRPCDone(a,b,f,h,y)};s...
L);if(pa>0){g.height=16*pa+4;m.height=g.height-4}else{B()}};hcd=function(){B();C=null};function Oa(){if(j==40||j==38)Fa();var a=P(d),b=O(d),c=d.value;if(J&&j!=0){if(a>0&&b!=-1)c=c.substring(0,b);if(j==13||j==3){var e=d;if(e.createTextRange){var f=e.c...
j<=123)){k=c;if(j!=39)oa=c}if(Xa(j)&&j!=0&&ja==k)Ka(i,L);if(ja!=k&&!C)C=setTimeout("hcd()",500)}function la(){return eb(x)}function eb(a){da=true;if(!F){ta("qu","",0,E,null,null)}B();if(a=="url"){var b="";if(r!=-1&&n)b=L(n);if(b=="")b=d.value;if(w=="...
S;p.disabled=false}else if(I>=3||D>=10){p.value="o";p.disabled=false}S=null;return true}}newwin=function(){window.open(d.value);B();return false};idkc=function(a){if($){if(W){Ua()}var b=d.value;if(b!=Z){j=0;Oa()}Z=b;setTimeout("idkc()",10)}};function...
k,b[0],b[1],K.completeDiv.prefixStrings)}else{D++;Qa=(new Date).getTime();if(F){ob(a)}else{ta("qu",a,null,E,null,null);frames["completionFrame"].document.location.reload(true)}}d.focus()}da=false}qa=k;setTimeout("idfn()",bb(D));return true};setTimeou...
for(var c=0;c<A;c++){if(U[c]==n){r=c;break}}},ib=function(){s(this,"aAutoComplete")};function sa(a){S="t";k=M;N(M);w=M;if(!U||A<=0)return;Sa();if(n)s(n,"aAutoComplete");if(a==A||a==-1){r=-1;d.focus();return}else if(a>A){a=0}else if(a<-1){a=A-1}r=a;n=...
f.length;A=h;U=f;pa=h;M=k;if(k==""||h==0){B()}else{Sa()}var g="";if(k.length>0){var l,o;for(var l=0;l<h;l++){for(o=0;o<a.prefixStrings.length;o++){var y=a.prefixStrings[o]+k;if(ha||!aa&&b(f.item(l)).toUpperCase().indexOf(y.toUpperCase())==0||aa&&l==0...
true;break;default:break}if(!wa&&n){var ea=k;s(n,"bAutoComplete");var Q;if(e)Q=b(n).substr(a.prefixStrings[o].length);else Q=ea;if(Q!=c.value){if(c.value!=k)return;if(J){if(c.createTextRange||c.setSelectionRange)N(Q);if(c.createTextRange){var xa=c.cr...
a+"="+b+(c?"; expires="+c.toGMTString():"")+(e?"; path="+e:"")+(f?"; domain="+f:"")+(h?"; secure":"");document.cookie=g}function Ra(){var a=document.body.scrollWidth-220;a=0.73*a;d.size=Math.floor(a/6.18)}function P(a){var b=-1;if(a.createTextRange){...
Apache2-Banner
view release on metacpan or search on metacpan
newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL
newSV_type() NEED_newSV_type NEED_newSV_type_GLOBAL
newSVpvn_flags() NEED_newSVpvn_flags NEED_newSVpvn_flags_GLOBAL
newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_GLOBAL
pv_display() NEED_pv_display NEED_pv_display_GLOBAL
pv_escape() NEED_pv_escape NEED_pv_escape_GLOBAL
pv_pretty() NEED_pv_pretty NEED_pv_pretty_GLOBAL
sv_2pv_flags() NEED_sv_2pv_flags NEED_sv_2pv_flags_GLOBAL
sv_2pvbyte() NEED_sv_2pvbyte NEED_sv_2pvbyte_GLOBAL
sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_GLOBAL
sv_catpvf_mg_nocontext() NEED_sv_catpvf_mg_nocontext NEED_sv_catpvf_mg_nocontext_GLOBAL
ptr_table_split||5.009005|
ptr_table_store||5.009005|
push_scope|||
put_byte|||
pv_display|5.006000||p
pv_escape|5.009004||p
pv_pretty|5.009004||p
pv_uni_display||5.007003|
qerror|||
qsortsvu|||
re_compile||5.009005|
#ifndef PERL_PV_PRETTY_REGPROP
# define PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif
/* Hint: pv_escape
* Note that unicode functionality is only backported to
* those perl versions that support it. For older perl
* versions, the implementation will fall back to bytes.
*/
#ifndef pv_escape
#if defined(NEED_pv_escape)
static char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
static
#else
extern char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
#endif
#ifdef pv_escape
# undef pv_escape
#endif
#define pv_escape(a,b,c,d,e,f) DPPP_(my_pv_escape)(aTHX_ a,b,c,d,e,f)
#define Perl_pv_escape DPPP_(my_pv_escape)
#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
char *
DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
const STRLEN count, const STRLEN max,
STRLEN * const escaped, const U32 flags)
{
const char esc = flags & PERL_PV_ESCAPE_RE ? '%' : '\\';
const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc;
char octbuf[32] = "%123456789ABCDF";
STRLEN wrote = 0;
wrote++;
}
if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
break;
}
if (escaped != NULL)
*escaped= pv - str;
return SvPVX(dsv);
}
#endif
#endif
DPPP_(my_pv_pretty)(pTHX_ SV *dsv, char const * const str, const STRLEN count,
const STRLEN max, char const * const start_color, char const * const end_color,
const U32 flags)
{
const U8 dq = (flags & PERL_PV_PRETTY_QUOTE) ? '"' : '%';
STRLEN escaped;
if (!(flags & PERL_PV_PRETTY_NOCLEAR))
sv_setpvs(dsv, "");
if (dq == '"')
sv_catpvs(dsv, "<");
if (start_color != NULL)
sv_catpv(dsv, D_PPP_CONSTPV_ARG(start_color));
pv_escape(dsv, str, count, max, &escaped, flags | PERL_PV_ESCAPE_NOCLEAR);
if (end_color != NULL)
sv_catpv(dsv, D_PPP_CONSTPV_ARG(end_color));
if (dq == '"')
sv_catpvs(dsv, "\"");
else if (flags & PERL_PV_PRETTY_LTGT)
sv_catpvs(dsv, ">");
if ((flags & PERL_PV_PRETTY_ELLIPSES) && escaped < count)
sv_catpvs(dsv, "...");
return SvPVX(dsv);
}
Apache2-CondProxy
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 {
Apache2-Controller
view release on metacpan or search on metacpan
t/lib/Apache2/Controller/Test/Funk.pm view on Meta::CPAN
my $var = shift;
my $val = shift;
$qs .= '&' if $qs;
if (ref $val) {
croak "wrong ref type, only array allowed\n" if ref $val ne 'ARRAY';
$qs .= join('&', map "$var=".uri_escape($_), @{$val});
}
else {
$qs .= "$var=".uri_escape($val);
}
}
return $qs;
}
Apache2-Dummy-RequestRec
view release on metacpan or search on metacpan
RequestRec.pm view on Meta::CPAN
use JSON;
use Test::More;
sub catch_stdout { ... }
sub unescapeURIString { ... }
sub test_http_handler
{
my ($handler, $exp_res, $cl, $ct, @params) = @_;
RequestRec.pm view on Meta::CPAN
ok($r->headers_out->{'Content-Length'} == $cl, "Content-Length == $cl");
ok($r->headers_out->{'Content-Type'} eq $ct, "Content-Type: '$ct'");
my $result = $ct =~ /json/i ? from_json(unescapeURIString($body)) : $body;
ok(Compare($result, $exp_res), "body");
}
test_http_handler('My::Apache::Request::handler', { redirect => "https://localhost/" }, 55, 'application/json', login => 'mylogin', password => 'mypasswd');
Apache2-FakeRequest
view release on metacpan or search on metacpan
lib/Apache2/FakeRequest.pm view on Meta::CPAN
requires reset_timeout rflush
send_cgi_header send_fd send_http_header
sent_header seqno server
server_root_relative soft_timeout status
status_line subprocess_env taint
the_request translate_name unescape_url
unescape_url_info untaint uri warn
write_client
};
sub elem {
my($self, $key, $val) = @_;
Apache2-FileManager
view release on metacpan or search on metacpan
FileManager.pm view on Meta::CPAN
var index1=cookiestring.indexOf(cookiename);
if (index1==-1 || cookiename=='') return '';
var index2=cookiestring.indexOf(';',index1);
if (index2==-1) index2=cookiestring.length;
escsubstring = cookiestring.substring(index1+cookiename.length+1, index2)
return unescape(escsubstring);
}
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
'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');
FileManager.pm view on Meta::CPAN
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 == '') {
FileManager.pm view on Meta::CPAN
$type = "/"; # "/" designates "directory"
$link = "<A HREF=#
onclick=\"
var f=window.document.FileManager;
f.FILEMANAGER_curr_dir.value='"
.Apache2::Util::escape_path($curr_dir.$file, r->pool)."';
f.submit();
return false;\">
<FONT COLOR=#006699>$file$type</FONT></A>";
}
FileManager.pm view on Meta::CPAN
$href = $fake_doc_root."/".$href if $fake_doc_root;
$link = "
<A HREF=\"/$href"."$file?nossi=1\"
TARGET=_blank><FONT COLOR=BLACK>"
.Apache2::Util::escape_path($file.$type, r->pool).
"</FONT>
</A>";
}
$acum .= "
FileManager.pm view on Meta::CPAN
return \@sel_files;
}
sub filename_esc {
#escape spaces in filename
my $o = shift;
my $f = shift;
$f =~ s/\ /\\\ /g;
return $f;
}
( run in 2.081 seconds using v1.01-cache-2.11-cpan-54e63673c56 )