view release on metacpan or search on metacpan
lib/CGI/Application/Demo/Dispatch.pm view on Meta::CPAN
Order deny,allow
Deny from all
Allow from 127.0.0.1
</Location>
Note: My use of '/local' is not mandatory; you could use any URL fragment there.
And don't forget to restart C<Apache> after editing it's httpd.conf.
=head2 Start testing
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
view release on metacpan or search on metacpan
like the one built into CGI::Application, so that old code
can get the benefit of AnyTemplate.
* added support for the load_tmpl hook
* test suite should be less fragile for users who don't have
all of the templating modules installed
The incompatibilities are:
* associate_query off by default
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
if (my $add = $self->meta_add) {
if (not exists $add->{'meta-spec'} or $add->{'meta-spec'}{version} != 2) {
require CPAN::Meta::Converter;
if (CPAN::Meta::Converter->VERSION('2.141170')) {
$add = CPAN::Meta::Converter->new($add)->upgrade_fragment;
delete $add->{prereqs}; # XXX this would now overwrite all prereqs
}
else {
$self->log_warn("Can't meta_add without CPAN::Meta 2.141170");
}
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
view release on metacpan or search on metacpan
templates/prototype_javascript.tmpl view on Meta::CPAN
if (this.adjacency && this.element.insertAdjacentHTML) {
this.element.insertAdjacentHTML(this.adjacency, this.content);
} else {
this.range = this.element.ownerDocument.createRange();
if (this.initializeRange) this.initializeRange();
this.fragment = this.range.createContextualFragment(this.content);
this.insertContent();
}
}
}
templates/prototype_javascript.tmpl view on Meta::CPAN
initializeRange: function() {
this.range.setStartBefore(this.element);
},
insertContent: function() {
this.element.parentNode.insertBefore(this.fragment, this.element);
}
});
Insertion.Top = Class.create();
Insertion.Top.prototype = (new Abstract.Insertion('afterBegin')).extend({
templates/prototype_javascript.tmpl view on Meta::CPAN
this.range.selectNodeContents(this.element);
this.range.collapse(true);
},
insertContent: function() {
this.element.insertBefore(this.fragment, this.element.firstChild);
}
});
Insertion.Bottom = Class.create();
Insertion.Bottom.prototype = (new Abstract.Insertion('beforeEnd')).extend({
templates/prototype_javascript.tmpl view on Meta::CPAN
this.range.selectNodeContents(this.element);
this.range.collapse(this.element);
},
insertContent: function() {
this.element.appendChild(this.fragment);
}
});
Insertion.After = Class.create();
Insertion.After.prototype = (new Abstract.Insertion('afterEnd')).extend({
initializeRange: function() {
this.range.setStartAfter(this.element);
},
insertContent: function() {
this.element.parentNode.insertBefore(this.fragment,
this.element.nextSibling);
}
});
var Field = {
view release on metacpan or search on metacpan
lib/CGI/Application/Util/Diff.pm view on Meta::CPAN
Order deny,allow
Deny from all
Allow from 127.0.0.1
</Location>
Of course, use of '/local' is not mandatory; you could use any URL fragment there.
And don't forget to restart C<Apache> after editing it's httpd.conf.
=head2 Start testing
view release on metacpan or search on metacpan
lib/CGI/Bus/fut.pod view on Meta::CPAN
=item glob ( pathMask ) -> entry list
Glob filenames with mask and return list of them such as
standard C<glob> function.
When $^O eq 'MSWin32' own implementation with fragments from
L<File::DosGlob|File/DosGlob> is used, else C<glob> is called.
=item globn ( pathMask ) -> entry list
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return 1;
}
sub postamble {
$PostambleUsed = 1;
my $fragment;
$fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;
config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL
$fragment .= <<"END_MAKE";
checkdeps ::
\t\$(PERL) $0 --checkdeps
installdeps ::
inc/Module/AutoInstall.pm view on Meta::CPAN
listalldeps ::
\t$PostambleActionsListAllDeps
END_MAKE
return $fragment;
}
1;
__END__
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
view release on metacpan or search on metacpan
examples/fragments.pl view on Meta::CPAN
}
sub subroutine {
return qq(
<p>
<font color="009900">This is another fragment, this time from a
subroutine.</font>
</p>
);
}
view release on metacpan or search on metacpan
lib/CGI/IDS.pm view on Meta::CPAN
#****if* IDS/_convert_from_nested_base64
# NAME
# _convert_from_nested_base64
# DESCRIPTION
# Matches and translates base64 strings and fragments used in data URIs (use MIME::Base64;)
# INPUT
# value the string to convert
# OUTPUT
# value converted string
# SYNOPSIS
view release on metacpan or search on metacpan
lib/CGI/Inspect/htdocs/js/jquery.ui.all.js view on Meta::CPAN
*
* http://docs.jquery.com/UI/Tabs
*
* Depends:
* ui.core.js
*/
(function(a){a.widget("ui.tabs",{_init:function(){if(this.options.deselectable!==undefined){this.options.collapsible=this.options.deselectable}this._tabify(true)},_setData:function(b,c){if(b=="selected"){if(this.options.collapsible&&c==this.optio...
* jQuery UI Datepicker 1.7.1
*
* Copyright (c) 2009 AUTHORS.txt (http://jqueryui.com/about)
* Dual licensed under the MIT (MIT-LICENSE.txt)
* and GPL (GPL-LICENSE.txt) licenses.
view release on metacpan or search on metacpan
t/cgi_security.t view on Meta::CPAN
subtest 'Accept-Language: shell metacharacters are rejected by untaint regex' => sub {
for my $payload (@SHELL_PAYLOADS) {
local %ENV = (HTTP_ACCEPT_LANGUAGE => $payload, REMOTE_ADDR => '127.0.0.1');
my $l = _obj();
# language() must fall through to 'Unknown'; it must NOT return or store
# any fragment of the hostile payload.
my $lang = $l->language();
is($lang, 'Unknown', "shell payload rejected: " . _abbrev($payload));
unlike($lang // '', qr/[|;&\x60\$]/, 'no shell meta in returned language');
}
};
t/cgi_security.t view on Meta::CPAN
subtest 'LANG: shell metacharacters are ignored' => sub {
for my $payload ('en_US; rm -rf /', "en_US\r\nX-Header: evil", "en_US\x00") {
local %ENV = (LANG => $payload, REMOTE_ADDR => '127.0.0.1');
my $l = _obj();
# language() must not expose any fragment of the payload
my $lang = $l->language();
unlike($lang // '', qr/[|;&\x60\$\r\n\x00]/, "LANG payload not reflected: " . _abbrev($payload));
}
};
view release on metacpan or search on metacpan
lib/CGI/OptimalQuery/Resources/jquery.js view on Meta::CPAN
/*! jQuery v@1.8.0 jquery.com | jquery.org/license */
(function(a,b){function G(a){var b=F[a]={};return p.each(a.split(s),function(a,c){b[c]=!0}),b}function J(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(I,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d=...
view release on metacpan or search on metacpan
demos/animals/DemoPanda.pm view on Meta::CPAN
<BR>Color: @{[$globals->pref( 'color' )]}
<BR>Size: @{[$globals->pref( 'size' )]}</P>
<P>Now let's look at some files; take your pick:
__endquote
$globals->navigate_url_path( $globals->pref( 'file_reader' ) );
foreach my $frag (@{$globals->pref( 'files' )}) {
my $url = $globals->url_as_string( $frag );
$globals->append_page_body( "<BR><A HREF=\"$url\">$frag</A>" );
}
$globals->append_page_body( "</P>" );
}
1;
view release on metacpan or search on metacpan
t/001_filename.t view on Meta::CPAN
#simple and short: see that '/var' is extracted from '/var'
push @unixtests, "/var";
#case counts! this is a UNIX name!
push @unixtests,qw{/Opt /a/b/c/ /a/B/c/ foo_bar a.txt ~a b~};
#more complex.Throw in a leading double slash.
push @unixtests, "//this/is/a/very/deeply/nested/name/indeed/why/would/you/do/such/a/thing/superfragilisticexpialodocius/antidisestablishmentiarianism";
#blanks in unix names are a PITA but legal. Bad idea but since used by e.g. win32 they find their way into samba-exported filesystems
push @unixtests, "/home/My Documents/";
push @unixtests, "/home/my-documents";
#unusal but legal
push @unixtests,"[14,22]"; # the old PPN naming of directories on DEC
t/001_filename.t view on Meta::CPAN
#simple and short: see that '\var' is extracted from '\var'
push @windowstests, "\\var";
#case does not count this is a Windows name!
push @windowstests,qw/\\Opt \\a\\b\\c\\ \\a\\B\\c\\ foo_bar a.txt +2/;
#more complex.Throw in a leading double slash.
push @windowstests, "\\\\this\\is\\a\\very\\deeply\\nested\\name\\indeed\\why\\would\\you\\do\\such\\a\\thing\\superfragilisticexpialodocius\\antidisestablishmentiarianism";
#blanks in unix names are a PITA but legal. Bad idea but since used by e.g. win32 they find their way into samba-exported filesystems
push @windowstests, "\\home\\My Documents\\";
push @windowstests, "\\home\\my-documents";
#unusal but legal
push @windowstests,"[14,22]"; # the old PPN naming of directories on DEC
view release on metacpan or search on metacpan
sub _untaint_re { qr/(.*)/ }
sub is_valid {
my $self = shift;
$self->value($sanitizer->filter_html_fragment($self->value));
}
1;
__END__
# Below is stub documentation for your module. You better edit it!
view release on metacpan or search on metacpan
t/private/javascripts/jscolor.js view on Meta::CPAN
if(e[i].src && /(^|\/)jscolor\.js([?#].*)?$/i.test(e[i].src)) {
var src = new jscolor.URI(e[i].src)
var srcAbs = src.toAbsolute(base)
srcAbs.path = srcAbs.path.replace(/[^\/]+$/, '') // remove filename
delete srcAbs.query
delete srcAbs.fragment
return srcAbs.toString()
}
}
return false
},
t/private/javascripts/jscolor.js view on Meta::CPAN
this.scheme = null
this.authority = null
this.path = ''
this.query = null
this.fragment = null
this.parse = function(uri) {
var m = uri.match(/^(([A-Za-z][0-9A-Za-z+.-]*)(:))?((\/\/)([^\/?#]*))?([^?#]*)((\?)([^#]*))?((#)(.*))?/)
this.scheme = m[3] ? m[2] : null
this.authority = m[5] ? m[6] : null
this.path = m[7]
this.query = m[9] ? m[10] : null
this.fragment = m[12] ? m[13] : null
return this
}
this.toString = function() {
var result = ''
if(this.scheme != null) result = result + this.scheme + ':'
if(this.authority != null) result = result + '//' + this.authority
if(this.path != null) result = result + this.path
if(this.query != null) result = result + '?' + this.query
if(this.fragment != null) result = result + '#' + this.fragment
return result
}
this.toAbsolute = function(base) {
var base = new jscolor.URI(base)
t/private/javascripts/jscolor.js view on Meta::CPAN
}
t.authority = base.authority
}
t.scheme = base.scheme
}
t.fragment = r.fragment
return t
}
function removeDotSegments(path) {
view release on metacpan or search on metacpan
The parameters "ones" and "zeroes" are used to indicate if the allocation can
make use of an all ones or all zeros network if necessary.
The parameter "location" is optional but if present and the allocation is
smaller than a /24 it will try to choose a block in the same location as
other allocations in order to avoid too much fragmentation of the address
space.
=cut
my($self) = shift;
} elsif ( $#candidates > 0 ) {
# We should check that these elements completely cover the
# entry we want to change but that's too hard for now so
# just assume they do...
#
# Remove the fragments enclosed by the new element
foreach ( @candidates ) {
$self->{DB}->del($_);
}
%hash = {};
$hash{'state'} = $state;
view release on metacpan or search on metacpan
lib/CIPP/Debug.pm view on Meta::CPAN
use Data::Dumper;
#---------------------------------------------------------------------
# Debugging stuff
#
# Setzen/Abfragen des Debugging Levels. Wenn als Klassenmethode
# aufgerufen, wird das Debugging klassenweit eingeschaltet. Als
# Objektmethode aufgerufen, wird Debugging nur für das entsprechende
# Objekt eingeschaltet.
#
# Level: 0 Debugging deaktiviert
view release on metacpan or search on metacpan
lib/CLI/Meta/YoutubeDl.pm view on Meta::CPAN
'include-ads' => undef,
# Download Options:
'limit-rate|r=s' => undef, # number with prefix
'retries|R=i' => undef,
'fragment-retries=i' => undef,
'skip-unavailable-fragments' => undef,
'abort-on-unavailable-fragment' => undef,
'keep-fragments' => undef,
'buffer-size=s' => undef, # number or number with prefix
'no-resize-buffer' => undef,
'http-chunk-size=s' => undef, # e.g. 10485760 or 10M
'playlist-reverse' => undef,
'playlist-random' => undef,
view release on metacpan or search on metacpan
lib/CLI/Meta/YtDlp.pm view on Meta::CPAN
'break-on-reject' => undef,
'skip-playlist-after-errors=i' => undef,
'no-download-archive' => undef,
# Download Options:
'concurrent-fragments|N=i' => undef,
'limit-rate|r=s' => undef, # number with prefix
'throttled-rate|r=s' => undef, # number with prefix
'retries|R=i' => undef,
'fragment-retries=i' => undef,
'skip-unavailable-fragments|no-abort-on-unavailable-fragments' => undef,
'abort-on-unavailable-fragment|no-skip-unavailable-fragments' => undef,
'keep-fragments!' => undef,
'buffer-size=s' => undef, # number or number with prefix
'resize-buffer!' => undef,
'http-chunk-size=s' => undef, # e.g. 10485760 or 10M
'playlist-reverse!' => undef,
'playlist-random' => undef,
view release on metacpan or search on metacpan
lib/CLI/Osprey.pm view on Meta::CPAN
=item *
Osprey doesn't use an automatic module finder (like L<Module::Pluggable>) to
locate modules for sub-commands; their names are given explicitly. This small
amount of additional typing gives you more control and less fragility.
=back
There are also a few things MooX::Options has that Osprey lacks. While they may
be added in the future, I haven't seen the need yet. Currently known missing
view release on metacpan or search on metacpan
my $this = shift;
my %arg = @_;
my $text = $arg{text} || confess "text unset";
my $text_is_filename = $arg{text_is_filename} ? 1 : 0;
my $sep = $arg{separator} || confess;
my $max_frags = $arg{max_fragments} || 3;
my $fragment_size = $arg{fragment_size} || confess;
my $type = int($arg{type});
my $html_start = $arg{html_start} || confess;
my $html_end = $arg{html_end} || confess;
CLuceneWrap::CL_Hightlight1($this->{resource}, $text, $text_is_filename, $sep, $max_frags, $fragment_size, $type, $html_start, $html_end);
}
# values for flag byte entries
sub NORMAL_FIELD { 0 } ;
sub REQUIRED_FIELD { 1 } ;
view release on metacpan or search on metacpan
lib/CORBA/HTML/NameVisitor.pm view on Meta::CPAN
last if ($list_scope[0] ne $list_name[0]);
shift @list_name;
shift @list_scope;
}
my $name = join '::', @list_name;
my $fragment = $node->{idf};
$fragment = $node->{html_name} if (exists $node->{html_name});
if (exists $node->{file_html}) {
my $a = '<a href="' . $node->{file_html} . '#' . $fragment . '">' . $name . '</a>';
return $a;
}
elsif ( $node->isa('BaseInterface') or $node->isa('ForwardBaseInterface') ) {
my $filename = $node->{full};
$filename =~ s/::/_/g;
$filename .= '.html';
my $a = '<a href="' . $filename . '#' . $fragment . '">' . $name . '</a>';
return $a;
}
else {
return $name;
}
view release on metacpan or search on metacpan
lib/CORBA/IDL/Lexer.pm view on Meta::CPAN
}
}
sub _CodeLexer {
my ($parser) = @_;
my $frag = q{};
while (1) {
$parser->YYData->{line}
or $parser->YYData->{line} = readline $parser->YYData->{fh}
or return;
for ($parser->YYData->{line}) {
s/^(\n)//
and $parser->YYData->{lineno} ++,
$frag .= $1,
last;
s/^%\}.*//
and return ('CODE_FRAGMENT', $frag);
s/^(.[^%\n]*)//
and $frag .= $1,
last;
}
}
}
lib/CORBA/IDL/Lexer.pm view on Meta::CPAN
s/^\/\/.*\n// # single line comment
and $parser->YYData->{lineno} ++,
$parser->YYData->{curr_node} = undef,
last;
s/^%\{// # code fragment
and return _CodeLexer($parser);
if ($parser->YYData->{prop}) {
s/^([A-Za-z][0-9A-Za-z_]*)//
and return ('PROP_KEY', $1);
view release on metacpan or search on metacpan
* idl.c (porbit_parse_idl_file): Remvoing -D__ORBIT_IDL__
since with it, the GNOME IDL files break badly
by using #pragma inhibit push to avoid compiling bits
that are predefined in C libraries.
* idl.c (porbit_parse_idl_file): Enable codefrag
syntax, since GNORBA uses it.
* interfaces.c (load_ancestor): call ensure_iface_repository,
before trying to access iface repository. Also, try
to produce a bit more graceful warnings and death
view release on metacpan or search on metacpan
- fix in PyIDL/rpc_giop.py
0.38 Tue Jun 05 12:30:00 2007
- class.pm : fully qualified import (option -J)
- server.pm : fix corba_id call
- PyIDL/rpc_giop.py : fix socket fragmentation
0.37 Mon May 14 08:30:00 2007
- cpyemb.pm: handles SystemException
0.36 Fri Apr 13 12:30:00 2007
view release on metacpan or search on metacpan
lib/CORBA/XPIDL/CheckVisitor.pm view on Meta::CPAN
$self->{parser}->YYData->{filename} = $node->{filename};
$self->{parser}->YYData->{lineno} = $node->{lineno};
if ($parent->isa('BaseInterface')) {
$self->{parser}->Warning(
"\%\%{ .. \%\%} code fragment within interface " .
"ignored when generating NS_DECL_$parent->{idf} macro; " .
"if the code fragment contains method declarations, " .
"the macro probably isn't complete.\n"
);
}
if ($self->{mode} eq 'header') {
my @code = split /\n/, $node->{value};