view release on metacpan or search on metacpan
lib/Mojo/SAML/Document/KeyInfo.pm view on Meta::CPAN
my ($obj, $class) = @_;
Scalar::Util::blessed($obj) && $obj->isa($class);
};
has template => sub { shift->build_template(<<'XML') };
<KeyInfo xmlns="http://www.w3.org/2000/09/xmldsig#">
% if (my $name = $self->name) {
<KeyName><%= $name %></KeyName>
% }
<X509Data>
<X509Certificate><%= $self->x509_string // '' %></X509Certificate>
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/DBViewer/public/js/jquery-1.9.1.js view on Meta::CPAN
return this.each(function() {
jQuery.dequeue( this, type );
});
},
// Based off of the plugin by Clint Helfers, with permission.
// http://blindsignals.com/index.php/2009/07/jquery-delay/
delay: function( time, type ) {
time = jQuery.fx ? jQuery.fx.speeds[ time ] || time : time;
type = type || "fx";
return this.queue( type, function( next, hooks ) {
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/MySQLViewerLite/public/js/jquery-1.9.1.js view on Meta::CPAN
return this.each(function() {
jQuery.dequeue( this, type );
});
},
// Based off of the plugin by Clint Helfers, with permission.
// http://blindsignals.com/index.php/2009/07/jquery-delay/
delay: function( time, type ) {
time = jQuery.fx ? jQuery.fx.speeds[ time ] || time : time;
type = type || "fx";
return this.queue( type, function( next, hooks ) {
view release on metacpan or search on metacpan
share/public/revealjs/plugin/highlight/highlight.js view on Meta::CPAN
}
})();
// END CUSTOM REVEAL.JS INTEGRATION
/*! highlight.js v9.11.0 | BSD3 License | git.io/hljslicense */
!function(e){var n="object"==typeof window&&window||"object"==typeof self&&self;"undefined"!=typeof exports?e(exports):n&&(n.hljs=e({}),"function"==typeof define&&define.amd&&define([],function(){return n.hljs}))}(function(e){function n(e){return e.r...
c:[{cN:"comment",b:/\(\*/,e:/\*\)/},e.ASM,e.QSM,e.CNM,{b:/\{/,e:/\}/,i:/:/}]}});hljs.registerLanguage("roboconf",function(a){var e="[a-zA-Z-_][^\\n{]+\\{",n={cN:"attribute",b:/[a-zA-Z-_]+/,e:/\s*:/,eE:!0,starts:{e:";",r:0,c:[{cN:"variable",b:/\.[a-zA...
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/SQLiteViewerLite/public/js/jquery-1.9.1.js view on Meta::CPAN
return this.each(function() {
jQuery.dequeue( this, type );
});
},
// Based off of the plugin by Clint Helfers, with permission.
// http://blindsignals.com/index.php/2009/07/jquery-delay/
delay: function( time, type ) {
time = jQuery.fx ? jQuery.fx.speeds[ time ] || time : time;
type = type || "fx";
return this.queue( type, function( next, hooks ) {
view release on metacpan or search on metacpan
t/25abstract.t
t/31lexhas.t
t/40loading.t
t/41ps.t
t/50complextypes.t
t/51mixedsigs.t
t/52lists.t
t/53outsiders.t
t/80lines.t
t/97defaults.t
t/98geom.t
view release on metacpan or search on metacpan
eg/nrt-study-setclass view on Meta::CPAN
# well, you could, but the results would be unedifying
die "error: cannot invary $Flag_Invary_Count elements in a ",
scalar(@$pitch_set), " element set class\n";
}
# In hindsight these could be set with the -G flag to neato or whatnot
say <<"GRAPHVIZ_HEADER";
graph links {
size="32,32";
ratio="fill";
splines=polyline;
view release on metacpan or search on metacpan
htdocs/src-min/mode-php.js view on Meta::CPAN
define("ace/mode/doc_comment_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"],function(e,t,n){"use strict";var r=e("../lib/oop"),i=e("./text_highlight_rules").TextHighlightRules,s=function(){this.$rules={s...
view release on metacpan or search on metacpan
_Deparsed_XSubs.pm view on Meta::CPAN
sub setbuf;
sub setgid;
sub setjmp;
sub setlocale;
sub setpayload;
sub setpayloadsig;
sub setpgid;
sub setsid;
sub setuid;
sub setvbuf;
sub sigaction;
view release on metacpan or search on metacpan
extra_docs/rfc4408.txt view on Meta::CPAN
check_host(). The domain-spec is expanded as per Section 8. Then
check_host() is evaluated with the resulting string as the <domain>.
The <ip> and <sender> arguments remain the same as in the current
evaluation of check_host().
In hindsight, the name "include" was poorly chosen. Only the
evaluated result of the referenced SPF record is used, rather than
acting as if the referenced SPF record was literally included in the
first. For example, evaluating a "-all" directive in the referenced
record does not terminate the overall processing and does not
necessarily result in an overall "Fail". (Better names for this
view release on metacpan or search on metacpan
ok(@r);
foreach $a (@r) {
ok($validator->istrusted($a->val_status));
}
@r = $validator->getaddrinfo("good-cname-to-badsign-A.test.dnssec-tools.org");
ok(@r);
$r = $validator->res_query("good-AAAA.test.dnssec-tools.org", "IN", "AAAA");
ok($r);
view release on metacpan or search on metacpan
t/10-keyset.t view on Meta::CPAN
like( $missing_signature, "/No signature.+$bad_tag/", "Expected error [$missing_signature]" );
my $corruptible = Net::DNS::RR::RRSIG->create( $keyrrset, $keyfile1, ttl => 3600 );
my $unverifiable = Net::DNS::SEC::Keyset->new( $keyrrset, [$corruptible] );
my $badsig = Net::DNS::RR::RRSIG->create( [$sigrr1], $keyfile1, ttl => 3600 );
$corruptible->sigbin( $badsig->sigbin );
is( scalar( $unverifiable->extract_ds ), 0, 'No DS from unverifiable keyset' );
my $bogus = Net::DNS::RR->new( <<'END' );
view release on metacpan or search on metacpan
length byte of zero. The high order two bits of every length octet
must be zero, and the remaining six bits of the length field limit
the label to 63 octets or less.
Unfortunately dname attributes are stored strings throughout
Net::DNS. (With hindsight dnames should have had their own class
in which one could have preserved the wire format.).
To be able to represent all octets that are allowed in domain
names I took the approach to use the "presentation format" for
the attributes. This presentation format is defined in RFC 1035
view release on metacpan or search on metacpan
examples/mark-templ.pl view on Meta::CPAN
# on Wed Dec 30 16:32:17 2015
#
# BE WARNED: in most cases, the example below cannot be used without
# interpretation. The comments will guide you.
#
# xmlns:ds http://www.w3.org/2000/09/xmldsig#
# xmlns:mark urn:ietf:params:xml:ns:mark-1.0
# xmlns:smd urn:ietf:params:xml:ns:signedMark-1.0
# xmlns:xsd http://www.w3.org/2001/XMLSchema
# is a mark:markType
view release on metacpan or search on metacpan
lib/Net/EPP/Proxy.pm view on Meta::CPAN
my $hdr = substr(${$input}, 0, 4);
my $length = unpack('N', $hdr) - 4;
my $question = substr(${$input}, 4, $length);
my $oldsig = $SIG{PIPE};
$SIG{PIPE} = 'IGNORE';
my $answer;
eval {
local $SIG{ALRM} = sub { die("timed out") };
alarm($self->{net_server}->{epp}->{timeout});
$answer = $self->{net_server}->{epp}->{client}->request($question);
alarm(0);
};
$SIG{PIPE} = $oldsig;
# initialise some things:
my $err = '';
my $fatal = 0;
view release on metacpan or search on metacpan
examples/xsd/mark-1.0.xsd
examples/xsd/rgp-1.0.xsd
examples/xsd/secDNS-1.1.xsd
examples/xsd/signedMark-1.0.xsd
examples/xsd/ttl-1.0.xsd
examples/xsd/xmldsig-core-schema.xsd
lib/Net/EPP/Server.pm
t/test.t
view release on metacpan or search on metacpan
lib/Net/FullAuto/ISets/Amazon/ClipBucket_is.pm view on Meta::CPAN
$stdout=~s/^.*href=["](.*?[.]tar[.]gz[.]sig)["].*$/$1/s;
my $sdl_tar=$stdout;
$sdl_tar=~s/^(.*)[.]sig$/$1/;
($stdout,$stderr)=$handle->cmd('sudo '.
"mkdir -pv release",'__display__');
my $goodsig=0;
foreach my $count (1..3) {
($stdout,$stderr)=$handle->cwd('release');
($stdout,$stderr)=$handle->cmd('sudo '.
'wget --random-wait --progress=dot '.
"https://www.libsdl.org/$sdl_tar",
lib/Net/FullAuto/ISets/Amazon/ClipBucket_is.pm view on Meta::CPAN
'__display__');
}
if (-1<index $stderr, 'Good signature') {
($stdout,$stderr)=$handle->cmd(
"sudo rm -rvf $sdl_tar.sig",'__display__');
$goodsig=1;
last;
}
}
exit_on_error($stderr." in package ".__PACKAGE__.
" line ".__LINE__."\n")
if !$goodsig;
($stdout,$stderr)=$handle->cwd('release');
($stdout,$stderr)=$handle->cmd('sudo tar zxvf *','__display__');
($stdout,$stderr)=$handle->cwd('SDL2-2.0.5');
($stdout,$stderr)=$handle->cmd('sudo ./configure','__display__');
($stdout,$stderr)=$handle->cmd('sudo make','__display__');
lib/Net/FullAuto/ISets/Amazon/ClipBucket_is.pm view on Meta::CPAN
'./configure --enable-shared','__display__');
($stdout,$stderr)=$handle->cmd('sudo make','__display__');
($stdout,$stderr)=$handle->cmd('sudo make install','__display__');
($stdout,$stderr)=$handle->cwd('/opt/source/ffmpeg/');
my $libmad_tar='libmad-0.15.1b.tar.gz';
$goodsig=0;
foreach my $count (1..3) {
($stdout,$stderr)=$handle->cmd('sudo '.
"wget --random-wait --progress=dot ".
"ftp://ftp.mars.org/pub/mpeg/".$libmad_tar,
'__display__');
lib/Net/FullAuto/ISets/Amazon/ClipBucket_is.pm view on Meta::CPAN
'__display__');
}
if (-1<index $stderr, 'Good signature') {
($stdout,$stderr)=$handle->cmd(
"sudo rm -rvf $libmad_tar.sign",'__display__');
$goodsig=1;
last;
}
}
exit_on_error($stderr." in package ".__PACKAGE__.
" line ".__LINE__."\n")
if !$goodsig;
($stdout,$stderr)=$handle->cmd('sudo tar zxvf '.$libmad_tar,'__display__');
($stdout,$stderr)=$handle->cwd("libmad-0.15.1b");
($stdout,$stderr)=$handle->cmd('sudo ./configure','__display__');
($stdout,$stderr)=$handle->cmd("sudo sed -i 's/-fforce-mem //' ".
"Makefile");
view release on metacpan or search on metacpan
t/attributes.t view on Meta::CPAN
$Mock_response->mock(decoded_content => sub { return q{Link: <https://www.google.com/accounts/o8/site-xrds?ns=2&hd=example.com>; rel="describedby http://reltype.google.com/openid/xrd-op"; type="application/xrds+xml"}})
},
'https://www.google.com/accounts/o8/site-xrds?ns=2&hd=example.com' => sub {
$Mock_response->mock(decoded_content => sub { return q{<?xml version="1.0" encoding="UTF-8"?>
<xrds:XRDS xmlns:xrds="xri://$xrds" xmlns="xri://$xrd*($v*2.0)">
<ds:Signature xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
<ds:SignedInfo>
<ds:CanonicalizationMethod Algorithm="http://docs.oasis-open.org/xri/xrd/2009/01#canonicalize-raw-octets" />
<ds:SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />
</ds:SignedInfo>
<ds:KeyInfo>
<ds:X509Data>
<ds:X509Certificate>
MIIDLjCCApegAwIBAgIHALrcoAADBTANBgkqhkiG9w0BAQUFADBGMQswCQYDVQQGEwJVUzETMBEGA1UEChMKR29vZ2xlIEluYzEiMCAGA1UEAxMZR29vZ2xlIEludGVybmV0IEF1dGhvcml0eTAeFw0xMDA0MDcwMDAwMDBaFw0xMDA0MDkwMDAwMDBaMFYxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpDYWxpZm9ybmlhMRMwEQYDVQQK...
t/attributes.t view on Meta::CPAN
my $cgi = CGI->new($returned_params);
my $auth_fl = Net::Google::FederatedLogin->new(cgi => $cgi, return_to => 'http://example.com/return');
$update_mock_response{'https://www.google.com/accounts/o8/user-xrds?uri=http%3A%2F%2Fexample.com%2Fopenid%3Fid%3D108441225163454056756'} = sub {
$Mock_response->mock(decoded_content => sub { return q{<?xml version="1.0" encoding="UTF-8"?>
<xrds:XRDS xmlns:xrds="xri://$xrds" xmlns="xri://$xrd*($v*2.0)">
<ds:Signature xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
<ds:SignedInfo>
<ds:CanonicalizationMethod Algorithm="http://docs.oasis-open.org/xri/xrd/2009/01#canonicalize-raw-octets" />
<ds:SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />
</ds:SignedInfo>
<ds:KeyInfo>
<ds:X509Data>
<ds:X509Certificate>
MIIDLjCCApegAwIBAgIHALrcoAADBTANBgkqhkiG9w0BAQUFADBGMQswCQYDVQQGEwJVUzETMBEGA1UEChMKR29vZ2xlIEluYzEiMCAGA1UEAxMZR29vZ2xlIEludGVybmV0IEF1dGhvcml0eTAeFw0xMDA0MDcwMDAwMDBaFw0xMDA0MDkwMDAwMDBaMFYxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpDYWxpZm9ybmlhMRMwEQYDVQQK...
view release on metacpan or search on metacpan
lib/Net/IANA/Services.pm view on Meta::CPAN
our $IANA_REGEX_PORTS = qr{\b(?<!-)(?:1(?:1(?:1(?:[234589]|0[345689]?|6[12345]?|7[12345]?|1[012]?)?|3(?:[034589]|2[01]?|19?|67?|71?)?|7(?:[0134678]|2[03]?|51?|96?)?|2(?:[23456789]|0[128]?|1?1)?|9(?:[01234578]|9[789]?|67?)?|0(?:[1234678]|0[01]?|9?5)?|...
our $IANA_REGEX_SERVICES = qr{\b(?<![-])(?:s(?:e(?:[pt]|r(?:v(?:e(?:r(?:view(?:-(?:asn?|icc|gf|rm)|dbms)|-find|graph|start|wsd2)|xec)|i(?:ce(?:-ctrl|meter|tags)|staitsm)|s(?:erv|tat))|comm-(?:scadmin|wlink)|ialgateway|aph)|c(?:-(?:t4net-(?:clt|srv)|p...
our $IANA_REGEX_PORTS_DCCP = qr{\b(?<!-)(?:1(?:02[12]|113)|500[45]|4556|6514|9)\b}i; ## no critic(RegularExpressions)
lib/Net/IANA/Services.pm view on Meta::CPAN
our $IANA_REGEX_SERVICES_TCP = qr{\b(?<![-])(?:s(?:e(?:[pt]|r(?:v(?:e(?:r(?:view(?:-(?:asn?|icc|gf|rm)|dbms)|-find|graph|start|wsd2)|xec)|i(?:ce(?:-ctrl|meter|tags)|staitsm)|stat)|comm-(?:scadmin|wlink)|ialgateway|aph)|c(?:-(?:t4net-(?:clt|srv)|pc2fa...
our $IANA_REGEX_SERVICES_UDP = qr{\b(?<![-])(?:s(?:u(?:[am]|n(?:-(?:s(?:r-(?:iiop(?:-aut|s)?|https?|jm[sx]|admin)|ea-port)|as-(?:j(?:mxrmi|pda)|iiops(?:-ca)?|nodeagt)|user-https|mc-grp|dr|lm)|c(?:acao-(?:(?:jmx|sn)mp|websvc|csa|rmi)|luster(?:geo|mgr)...
####################
view release on metacpan or search on metacpan
lib/Net/SAML2/Binding/POST.pm view on Meta::CPAN
# here to do so
#
# The protocol schema defines a sequence which requires the order
# of the child elements in a Protocol based message:
#
# The dsig:Signature (should it exist) MUST follow the saml:Issuer
#
# 1: saml:Issuer
# 2: dsig:Signature
#
# Seems like an oversight in the SAML schema specifiation but...
$signed_message =~ s!(<dsig:Signature.*?</dsig:Signature>)!!s;
my $signature = $1;
$signed_message =~ s/(<\/saml\d*:Issuer>)/$1$signature/;
my $encoded_request = encode_base64($signed_message, "\n");
view release on metacpan or search on metacpan
lib/Net/SPID/SAML.pm view on Meta::CPAN
sub metadata {
my ($self) = @_;
my $md = 'urn:oasis:names:tc:SAML:2.0:metadata';
my $dsig = 'http://www.w3.org/2000/09/xmldsig#';
my $x = XML::Writer->new(
OUTPUT => 'self',
NAMESPACES => 1,
PREFIX_MAP => {
$md => 'md',
$dsig => 'ds',
},
);
my $ID = $self->sp_entityid;
$ID =~ s/[^a-z0-9_-]/_/g;
lib/Net/SPID/SAML.pm view on Meta::CPAN
AuthnRequestsSigned => 'true',
WantAssertionsSigned => 'true');
{
$x->startTag([$md, 'KeyDescriptor'], use => 'signing');
$x->startTag([$dsig, 'KeyInfo']);
$x->startTag([$dsig, 'X509Data']);
my $cert = $self->sp_cert->as_string;
$cert =~ s/^-+BEGIN CERTIFICATE-+\n//;
$cert =~ s/\n-+END CERTIFICATE-+\n?//;
$x->dataElement([$dsig, 'X509Certificate'], $cert);
$x->endTag(); #ds:X509Data
$x->endTag(); #ds:KeyInfo
$x->endTag(); #KeyDescriptor
}
view release on metacpan or search on metacpan
lib/Net/SAML2/Binding/Redirect.pm view on Meta::CPAN
my $req = encode_base64($output, '');
my $u = URI->new($self->url);
$u->query_param($self->param, $req);
$u->query_param('RelayState', $relaystate) if defined $relaystate;
$u->query_param('SigAlg', 'http://www.w3.org/2000/09/xmldsig#rsa-sha1');
my $key_string = read_file($self->key);
my $rsa_priv = Crypt::OpenSSL::RSA->new_private_key($key_string);
my $to_sign = $u->query;
lib/Net/SAML2/Binding/Redirect.pm view on Meta::CPAN
my $u = URI->new($url);
# verify the response
my $sigalg = $u->query_param('SigAlg');
die "can't verify '$sigalg' signatures"
unless $sigalg eq 'http://www.w3.org/2000/09/xmldsig#rsa-sha1';
my $cert = Crypt::OpenSSL::X509->new_from_string($self->cert);
my $rsa_pub = Crypt::OpenSSL::RSA->new_public_key($cert->pubkey);
my $sig = decode_base64($u->query_param_delete('Signature'));
view release on metacpan or search on metacpan
bin/sinfp3-exportp.sh
bin/sinfp3-export.sh
bin/sinfp3-input-signature-output-addsignature.sh
bin/sinfp3-plugin-add-signature.pl
Changes
lib/Net/SinFP3/Ext/DBI/IpVersion.pm
lib/Net/SinFP3/Ext/DBI/Os.pm
lib/Net/SinFP3/Ext/DBI/OsVersionChildren.pm
view release on metacpan or search on metacpan
lib/ODF/lpOD_Helper/Unicode.pod view on Meta::CPAN
That thinking came from low-level languages like C.
Perl saved us but it took years before everyone believed.
And more years before Perl's Unicode paradigm clearly emerged.
Meanwhile lots of pod and code was written which in hindsight
was confused or misleading.
=head1 THE PERL UNICODE PARADIGM
=over
view release on metacpan or search on metacpan
lib/OMA/Download/DRM/REL/WBXML.pm view on Meta::CPAN
$rattr.=pack("C", 0x05); # xmlns:o-ex=
$rattr.=pack("C", 0x85); # "http://odrl.net/1.1/ODRL-EX"
$rattr.=pack("C", 0x06); # xmlns:o-dd=
$rattr.=pack("C", 0x86); # "http://odrl.net/1.1/ODRL-DD"
$rattr.=pack("C", 0x07); # xmlns:o-ds=
$rattr.=pack("C", 0x87); # "http://www.w3.org/2000/09/xmldsig#/"
$rattr.=pack("C", 0x01); # >
return $res.$self->_in_element('rights', $rattr.$self->_packin, 1);
}
view release on metacpan or search on metacpan
script/ospfview view on Meta::CPAN
if ($todo{verbose}) {
my @errors = $view->get_errors;
print map { "$_\n" } @errors, "" if @errors;
}
my $chldsigset = POSIX::SigSet->new( &POSIX::SIGCHLD );
my $oldsigset = POSIX::SigSet->new();
sigprocmask(POSIX::SIG_BLOCK, $chldsigset, $oldsigset)
or die "Block sigprocmask failed: $!";
if ($pid) {
kill SIGTERM, $pid;
if (waitpid($pid, 0) > 0) {
die "'@cmd' failed: $?" if $? &&
script/ospfview view on Meta::CPAN
(WIFSIGNALED($?) && WTERMSIG($?) != SIGTERM));
undef $pid;
$gone = 1;
}
}
sigprocmask(POSIX::SIG_SETMASK, $oldsigset, undef)
or die "Setmask sigprocmask failed: $!";
$gone = 0;
$pid = open2(undef, $fh, @cmd)
or die "Open pipe to '@cmd' failed: $!";
view release on metacpan or search on metacpan
lib/ObjStore/Internals.pod view on Meta::CPAN
technology. After avoiding relational databases for years, I sensed a
combination of ObjectStore and Perl could offer the same level of
quality and simplicity that I find invaluable in addressing the
hurdles I face as a software professional.
Combining ObjectStore & Perl might seem obvious in hindsight (doesn't
it always?!) but it is my conviction that it was something more than
luck and hard work that gave me the insight to imagine and implement
this technology years before it would be recognized and adopted. If
you will suspend disbelief for a moment, I would like to invite you
imagine a hypothetical situation. What if you found someone who was
view release on metacpan or search on metacpan
static int
thread_create (xthread_t *tid, void *(*proc)(void *), void *arg)
{
int retval;
sigset_t fullsigset, oldsigset;
pthread_attr_t attr;
pthread_attr_init (&attr);
pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED);
pthread_attr_setstacksize (&attr, PTHREAD_STACK_MIN < X_STACKSIZE ? X_STACKSIZE : PTHREAD_STACK_MIN);
pthread_attr_setscope (&attr, PTHREAD_SCOPE_PROCESS);
#endif
sigfillset (&fullsigset);
pthread_sigmask (SIG_SETMASK, &fullsigset, &oldsigset);
retval = pthread_create (tid, &attr, proc, arg) == 0;
pthread_sigmask (SIG_SETMASK, &oldsigset, 0);
pthread_attr_destroy (&attr);
return retval;
}
view release on metacpan or search on metacpan
lib/Opendata/GTFS/Type/StopTime.pm view on Meta::CPAN
1 trip_id
1 arrival_time
1 departure_time
1 stop_id
1 stop_sequence
0 stop_headsign
0 pickup_type
0 drop_off_type
0 shape_dist_traveled
/;
lib/Opendata/GTFS/Type/StopTime.pm view on Meta::CPAN
<p></p>
=end markdown
=head2 stop_headsign
=begin HTML
<table cellpadding="0" cellspacing="0">
<tr>