view release on metacpan or search on metacpan
src/subversion/CHANGES view on Meta::CPAN
* various translation updates for localized client messages
- Server:
* fixed: 'svn log' performance regression, general (r14116, 14772, 14759)
* fixed: 'svn log -v' performance regression, FSFS-specific (r15016)
* fixed: mod_dav_svn bug sets content-type incorrectly (r15046)
Developer-visible changes:
* fixed: win32 innosetup's add/repair/remove features (r14830)
* fixed: OBOE with 'limit' parameter of svn_repos_get_logs3(). (r15119)
* redhat RPM fixes (r15050)
view release on metacpan or search on metacpan
share/swagger-ui-bundle.js view on Meta::CPAN
!function(e,t){"object"==typeof exports&&"object"==typeof module?module.exports=t(function(){try{return require("esprima")}catch(e){}}()):"function"==typeof define&&define.amd?define(["esprima"],t):"object"==typeof exports?exports.SwaggerUIBundle=t(f...
/*
object-assign
(c) Sindre Sorhus
@license MIT
*/var r=Object.getOwnPropertySymbols,o=Object.prototype.hasOwnProperty,i=Object.prototype.propertyIsEnumerable;function a(e){if(null==e)throw new TypeError("Object.assign cannot be called with null or undefined");return Object(e)}e.exports=function()...
/*!
Copyright (c) 2017 Jed Watson.
Licensed under the MIT License (MIT), see
http://jedwatson.github.io/classnames
*/
share/swagger-ui-bundle.js view on Meta::CPAN
* FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
* COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
* IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
* CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*/
function n(e){return e instanceof t||e instanceof Date||e instanceof RegExp}function r(e){if(e instanceof t){var n=t.alloc?t.alloc(e.length):new t(e.length);return e.copy(n),n}if(e instanceof Date)return new Date(e.getTime());if(e instanceof RegExp)r...
/*!
* cookie
* Copyright(c) 2012-2014 Roman Shtylman
* Copyright(c) 2015 Douglas Christopher Wilson
* MIT Licensed
*/t.parse=function(e,t){if("string"!=typeof e)throw new TypeError("argument str must be a string");for(var n={},o=t||{},a=e.split(i),u=o.decode||r,c=0;c<a.length;c++){var l=a[c],p=l.indexOf("=");if(!(p<0)){var f=l.substr(0,p).trim(),h=l.substr(++p,l...
/*!
* repeat-string <https://github.com/jonschlinkert/repeat-string>
*
* Copyright (c) 2014-2015, Jon Schlinkert.
* Licensed under the MIT License.
share/swagger-ui-bundle.js view on Meta::CPAN
*
* Copyright(c) 2016 Gregory Jacobs <greg@greg-jacobs.com>
* MIT License
*
* https://github.com/gregjacobs/Autolinker.js
*/o=[],void 0===(i="function"==typeof(r=function(){var e,t,n,r,o,i,a,s=function(e){e=e||{},this.version=s.version,this.urls=this.normalizeUrlsCfg(e.urls),this.email="boolean"!=typeof e.email||e.email,this.twitter="boolean"!=typeof e.twitter||e.twitt...
//# sourceMappingURL=swagger-ui-bundle.js.map
view release on metacpan or search on metacpan
share/js/hal/views/response_body.js view on Meta::CPAN
if(e.resource !== null) {
output = JSON.stringify(e.resource, null, HAL.jsonIndent);
} else {
// The Ajax request "failed", but there may still be an
// interesting response body (possibly JSON) to show.
var content_type = e.jqxhr.getResponseHeader('content-type');
var responseText = e.jqxhr.responseText;
if(content_type == null || content_type.indexOf('text/') == 0) {
output = responseText;
} else if(content_type.indexOf('json') != -1) {
// Looks like json... try to parse it.
view release on metacpan or search on metacpan
lib/Alvis/Document/Meta.pm view on Meta::CPAN
"publisher " => "dc:publisher",
"pd" => "dc:date",
"publisher-email" => "dc:publisher",
"abstract" => "dc:description",
"documenttype" => "dc:type",
"content-type"=>"dc:type",
"doc-rights" => "dc:rights",
"page-topic" => "dc:subject",
"keyword" => "dc:subject",
"document-rights" => "dc:rights",
"keywords " => "dc:subject",
view release on metacpan or search on metacpan
lib/Amazon/API.pm view on Meta::CPAN
=pod
=head2 invoke_api
invoke_api(action, [parameters, [content-type]]);
=over 5
=item action
=item parameters
Parameters to send to the API. Can be a scalar, a hash reference or an
array reference.
=item content-type
If you send the C<content-type>, it is assumed that the parameters are
the payload to be sent in the request. Otherwise, the C<parameters>
will be converted to a JSON string if the C<parameters> value is a
hash reference or a query string if the C<parameters> value is an
array reference.
view release on metacpan or search on metacpan
t/01-sigv4.t view on Meta::CPAN
my $expected = <<'EOEXPECTED';
POST
/
content-length:312
content-type:text/xml
host:cloudfront.amazonaws.com
x-amz-date:20150807T183442Z
content-length;content-type;host;x-amz-date
a3e23f629891d71d6ff0aa08039794877aad1b2c35d9a6763d73cf6000fabe2a
EOEXPECTED
chomp $expected;
is $canonical_request, $expected, 'canonical request created successfully';
view release on metacpan or search on metacpan
lib/Amazon/DynamoDB/20120810.pm view on Meta::CPAN
my $date = strftime('%Y%m%d', gmtime($now));
$req->protocol('HTTP/1.1');
$req->header( 'Date' => $http_date );
$req->header( 'x-amz-target', 'DynamoDB_'. $api_version. '.'. $target );
$req->header( 'content-type' => 'application/x-amz-json-1.0' );
$payload = encode_json($payload);
$req->content($payload);
$req->header( 'Content-Length' => length($payload));
if ($self->{use_iam_role}) {
view release on metacpan or search on metacpan
lib/Amazon/PAApi5/Signature.pm view on Meta::CPAN
my $canonical_url = $self->http_method . "\n";
$canonical_url .= $self->resource_path . "\n\n";
my $signed_headers = '';
for my $key (grep { $_ !~ m!content-type! } sort keys %{$self->aws_headers}) {
$signed_headers .= lc($key) . ';';
$canonical_url .= lc($key) . ':' . $self->aws_headers->{$key} . "\n";
}
$canonical_url .= "\n";
lib/Amazon/PAApi5/Signature.pm view on Meta::CPAN
my ($self) = @_;
my $aws_headers = $self->aws_headers;
$aws_headers->{'content-encoding'} = 'amz-1.0';
$aws_headers->{'content-type'} = 'application/json; charset=UTF-8';
$aws_headers->{'host'} = $self->host;
$aws_headers->{'x-amz-date'} = $self->x_amz_date;
$aws_headers->{'x-amz-target'} = $self->_build_amz_target;
my $canonical_url = $self->_prepare_canonical_url;
view release on metacpan or search on metacpan
lib/Amazon/S3/SignedURLGenerator.pm view on Meta::CPAN
my %interesting_headers = ();
while (my ($key, $value) = each %$headers) {
my $lk = lc $key;
if (
$lk eq 'content-md5' or
$lk eq 'content-type' or
$lk eq 'date' or
$lk =~ /^$AMAZON_HEADER_PREFIX/
) {
$interesting_headers{$lk} = __trim($value);
}
}
# these keys get empty strings if they don't exist
$interesting_headers{'content-type'} ||= '';
$interesting_headers{'content-md5'} ||= '';
# just in case someone used this. it's not necessary in this lib.
$interesting_headers{'date'} = '' if $interesting_headers{'x-amz-date'};
view release on metacpan or search on metacpan
lib/Amazon/S3/Thin/Signer/V2.pm view on Meta::CPAN
my %interesting_headers = ();
while (my ($key, $value) = each %$headers) {
my $lk = lc $key;
if ( $lk eq 'content-md5'
or $lk eq 'content-type'
or $lk eq 'date'
or $lk =~ /^$AMAZON_HEADER_PREFIX/)
{
$interesting_headers{$lk} = $self->_trim($value);
}
}
# these keys get empty strings if they don't exist
$interesting_headers{'content-type'} ||= '';
$interesting_headers{'content-md5'} ||= '';
# x-amz-date becomes date if it exists
$interesting_headers{'date'} = delete $interesting_headers{'x-amz-date'}
if exists $interesting_headers{'x-amz-date'};
view release on metacpan or search on metacpan
lib/Amazon/S3.pm view on Meta::CPAN
foreach my $p ( pairs %{$headers} ) {
my ( $key, $value ) = @{$p};
my $lk = lc $key;
if ( $lk eq 'content-md5'
or $lk eq 'content-type'
or $lk eq 'date'
or $lk =~ /^$AMAZON_HEADER_PREFIX/xsm ) {
$interesting_headers{$lk} = $self->_trim($value);
}
}
# these keys get empty strings if they don't exist
$interesting_headers{'content-type'} ||= $EMPTY;
$interesting_headers{'content-md5'} ||= $EMPTY;
# just in case someone used this. it's not necessary in this lib.
if ( $interesting_headers{'x-amz-date'} ) {
$interesting_headers{'date'} = $EMPTY;
lib/Amazon/S3.pm view on Meta::CPAN
my $bucket_name = $aws_access_key_id . '-net-amazon-s3-test';
my $bucket = $s3->add_bucket( { bucket => $bucket_name } )
or die $s3->err . ": " . $s3->errstr;
# store a key with a content-type and some optional metadata
my $keyname = 'testing.txt';
my $value = 'T';
$bucket->add_key(
view release on metacpan or search on metacpan
lib/Amazon/S3Curl/PurePerl.pm view on Meta::CPAN
my $signature = encode_base64( $hmac->digest, "" );
return [
$self->curl,
-H => "Date: $httpDate",
-H => "Authorization: AWS $keyId:$signature",
-H => "content-type: $contentType",
"-L",
"-f",
$resource,
];
}
view release on metacpan or search on metacpan
lib/Amazon/SQS/Simple/Base.pm view on Meta::CPAN
my $date = strftime('%Y%m%d', gmtime($now));
$req->protocol('HTTP/1.1');
$req->header('Date' => $http_date);
$req->header('x-amz-target', 'AmazonSQSv20121105.' . $params->{Action});
$req->header('content-type' => 'application/x-www-form-urlencoded;charset=utf-8');
if ($self->{UseIAMRole}) {
my $creds = VM::EC2::Security::CredentialCache->get();
defined($creds) || die("Unable to retrieve IAM role credentials");
$self->{AWSAccessKeyId} = $creds->accessKeyId;
view release on metacpan or search on metacpan
factpacks/rfc_index.fact view on Meta::CPAN
rfc 1501 => OS/2 User Group. E. Brunsen. August 1993. (Format: TXT=3636 bytes) (Status: INFORMATIONAL)
rfc 1500 => Internet Official Protocol Standards. J. Postel. August 1993. (Format: TXT=79557 bytes) (Obsoletes RFC1410) (Obsoleted by RFC1540, RFC2200) (Status: HISTORIC)
rfc 1499 => Summary of 1400-1499. J. Elliott. January 1997. (Format: TXT=40923 bytes) (Status: INFORMATIONAL)
rfc 1498 => On the Naming and Binding of Network Destinations. J. Saltzer. August 1993. (Format: TXT=24698 bytes) (Status: INFORMATIONAL)
rfc 1497 => BOOTP Vendor Information Extensions. J. Reynolds. August 1993. (Format: TXT=16805 bytes) (Obsoletes RFC1395, RFC1084, RFC1048) (Obsoleted by RFC1533) (Updates RFC951, RFC0951) (Status: DRAFT STANDARD)
rfc 1496 => Rules for downgrading messages from X.400/88 to X.400/84 when MIME content-types are present in the messages. H. Alvestrand, J. Romaguera & K. Jordan. August 1993. (Format: TXT=8411 bytes) (Status: PROPOSED STANDARD)
rfc 1495 => Mapping between X.400 and RFC-822 Message Bodies. H. Alvestrand, S. Kille, R. Miles, M. Rose, & S. Thompson. August 1993. (Format: TXT=20071 bytes) (Obsoletes RFC987, RFC1026, RFC1138, RFC1148, RFC1327) (Obsoleted by RFC2156) (Status: PRO...
rfc 1494 => Equivalences between 1988 X.400 and RFC-822 Message Bodies. H. Alvestrand & S. Thompson. August 1993. (Format: TXT=37273 bytes) (Status: PROPOSED STANDARD)
rfc 1493 => Definitions of Managed Objects for Bridges. E. Decker, P. Langille, A. Rijsinghani, & K. McCloghrie. July 1993. (Format: TXT=74493 bytes) (Obsoletes RFC1286) (Status: DRAFT STANDARD)
rfc 1492 => An Access Control Protocol, Sometimes Called TACACS. C. Finseth. July 1993. (Format: TXT=41880 bytes) (Status: INFORMATIONAL)
rfc 1491 => A Survey of Advanced Usages of X.500. C. Weider & R. Wright. July 1993. (Format: TXT=34883 bytes) (Also FYI0021) (Status: INFORMATIONAL)
view release on metacpan or search on metacpan
lib/Amon2/Setup/Asset/jQuery.pm view on Meta::CPAN
}
sub files {
return {
'js/jquery-3.6.1.min.js' => '/*! jQuery v3.6.1 | (c) OpenJS Foundation and other contributors | jquery.org/license */
!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(!e.document)throw new Error("jQuery requires a window with a document");return t(e)}:t(e)}("undefined"!=typeof windo...
'
}
;
}
view release on metacpan or search on metacpan
lib/Anansi/Script/CGI.pm view on Meta::CPAN
$self->uses(
CGI => $CGI,
);
$self->loadHeaders(%parameters);
$self->loadParameters(%parameters);
$self->header('content-type' => 'text/html');
$self->content();
}
=head2 old
view release on metacpan or search on metacpan
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
This method retrieves an attachment and returns the contents as a condvar.
B<Example>:
my($body, $headers) = $db->open_attachment($doc, "issue.net")->recv;
my $content_type = $headers->{'content-type'};
=head3 $cv = $db->bulk_docs(\@docs, [ \%options ])
This method requests that many create, update, and delete operations be
performed in one shot. You pass it an arrayref of documents, and it'll
view release on metacpan or search on metacpan
lib/AnyEvent/Discord/Client.pm view on Meta::CPAN
referer => undef,
authorization => "Bot $self->{token}",
"user-agent" => $self->{api_useragent},
(
!defined $data ? ()
: ref $data ? ("content-type" => "application/json")
: ("content-type" => "application/x-www-form-urlencoded")
),
},
(
!defined $data ? ()
: ref $data ? (body => encode_json($data))
: (body => $data)
),
sub {
my ($body, $hdr) = @_;
return unless $cb;
$cb->(!defined $body ? undef : defined $hdr->{"content-type"} && $hdr->{"content-type"} eq 'application/json' ? decode_json($body) : 1, $hdr);
},
);
}
1;
view release on metacpan or search on metacpan
lib/AnyEvent/HTTP/MXHR.pm view on Meta::CPAN
want_body_handle => 1,
on_error => $on_error,
on_header => sub {
my ($headers) = @_;
if ($headers->{"content-type"} =~ m{^multipart/mixed\s*;\s*boundary="([^"]+)"}) {
$state{boundary} = $1;
$state{boundary_re} = qr!(?:^|\r?\n)--$state{boundary}\n?!;
return 1;
} else {
%state = ();
view release on metacpan or search on metacpan
t/request.t view on Meta::CPAN
is_deeply
$req->headers,
{
'x-rain' => 'king',
'user-agent' => 'perfect,round here',
'content-type' => 'text/plain',
# don't pass 'content-length' to AEH
},
"converted headers $suffix";
is $req->cb, $cb, 'cb passed in second hashref';
view release on metacpan or search on metacpan
The downside is that cancelling the request makes it impossible to re-use
the connection. Also, the C<on_header> callback will not receive any
trailer (headers sent after the response body).
Example: cancel the request unless the content-type is "text/html".
on_header => sub {
$_[0]{"content-type"} =~ /^text\/html\s*(?:;|$)/
},
=item on_body => $callback->($partial_body, $headers)
When specified, all body data will be passed to this callback instead of
view release on metacpan or search on metacpan
lib/AnyEvent/HTTPD/ExtDirect.pm view on Meta::CPAN
#
# AnyEvent::HTTPD::Request stores the form parameters in a peculiar format:
# $self->{parm} is a hashref of arrayrefs; each arrayref contain one
# or more values, again in arrayrefs with fixed number of items:
# [ content, content-type, file-name ]
#
# For anything but file uploads, the last 2 elements are undef; for the
# file uploads they're the file MIME type and name, respectively.
#
# A dump might look like this:
view release on metacpan or search on metacpan
lib/AnyEvent/HTTPD/HTTPConnection.pm view on Meta::CPAN
my ($name, $par) = split /\s*=\s*/o, $name_para;
if ($par =~ /^".*"$/o) { $par = _unquote ($par) }
$p{$name} = $par;
}
my ($ctype, $bound) = _content_type_boundary ($hdr->{'content-type'});
if ($ctype eq 'multipart/mixed') {
my $parts = $self->decode_multipart ($cont, $bound);
for my $sp (keys %$parts) {
for (@{$parts->{$sp}}) {
push @res, [$p{name}, @$_];
}
}
} else {
push @res, [$p{name}, $cont, $hdr->{'content-type'}, $p{filename}];
}
return @res
}
lib/AnyEvent/HTTPD/HTTPConnection.pm view on Meta::CPAN
sub handle_request {
my ($self, $method, $uri, $hdr, $cont) = @_;
$self->{keep_alive} = ($hdr->{connection} =~ /keep-alive/io);
my ($ctype, $bound) = _content_type_boundary ($hdr->{'content-type'});
if ($ctype eq 'multipart/form-data') {
$cont = $self->decode_multipart ($cont, $bound);
} elsif ($ctype =~ /x-www-form-urlencoded/o) {
view release on metacpan or search on metacpan
lib/AnyEvent/InfluxDB.pm view on Meta::CPAN
if ( $method eq 'POST' ) {
if ( defined $post_data ) {
$args{'body'} = $post_data;
} else {
if ( my $q = $url->query_param_delete('q') ) {
$args{headers}{'content-type'} = 'application/x-www-form-urlencoded';
$args{body} = 'q='. uri_encode($q);
}
}
}
if ( $self->_is_ssl ) {
view release on metacpan or search on metacpan
lib/AnyEvent/MSN.pm view on Meta::CPAN
$token =~ s/"/"/sg;
# Reply to good challenge. Expect no body.
$s->_soap_request(
'https://local-bay.contacts.msn.com/abservice/SharingService.asmx',
{ 'content-type' => 'text/xml; charset=utf-8',
SOAPAction =>
'"http://www.msn.com/webservices/AddressBook/FindMembership"'
},
sprintf(<<'XML', $token),
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
lib/AnyEvent/MSN.pm view on Meta::CPAN
#...
}
);
$s->_soap_request(
'https://local-bay.contacts.msn.com/abservice/abservice.asmx',
{ 'content-type' => 'text/xml; charset=utf-8',
SOAPAction =>
'"http://www.msn.com/webservices/AddressBook/ABFindContactsPaged"'
},
sprintf(<<'XML', $token),
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
lib/AnyEvent/MSN.pm view on Meta::CPAN
sub _soap_request {
my ($s, $uri, $headers, $content, $cb) = @_;
my %headers = (
'user-agent' => 'MSNPM 1.0',
'content-type' => 'application/soap+xml; charset=utf-8; action=""',
'Expect' => '100-continue',
'connection' => 'Keep-Alive'
);
#warn $content;
lib/AnyEvent/MSN.pm view on Meta::CPAN
$token =~ s/"/"/sg;
#
$s->_soap_request(
'https://local-bay.contacts.msn.com/abservice/abservice.asmx',
{ 'content-type' => 'text/xml; charset=utf-8',
SOAPAction =>
'"http://www.msn.com/webservices/AddressBook/ABContactAdd"'
},
sprintf(<<'XML', $token, $contact),
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
lib/AnyEvent/MSN.pm view on Meta::CPAN
$token =~ s/"/"/sg;
#
$s->_soap_request(
'https://contacts.msn.com/abservice/abservice.asmx',
{'content-type' => 'text/xml; charset=utf-8',
SOAPAction =>
'"http://www.msn.com/webservices/AddressBook/ABContactDelete"'
},
sprintf(<<'XML', $token, $contact),
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
view release on metacpan or search on metacpan
lib/AnyEvent/Net/Amazon/S3/Client/Object.pm view on Meta::CPAN
# to delete an object
$object->delete;
# to create a new object which is publically-accessible with a
# content-type of text/plain which expires on 2010-01-02
my $object = $bucket->object(
key => 'this is the public key',
acl_short => 'public-read',
content_type => 'text/plain',
expires => '2010-01-02',
view release on metacpan or search on metacpan
share/fixed_amqp0-9-1.xml view on Meta::CPAN
</rule>
<!-- These are the properties for a Basic content -->
<!-- MIME typing -->
<field name = "content-type" domain = "shortstr" label = "MIME content type" />
<!-- MIME typing -->
<field name = "content-encoding" domain = "shortstr" label = "MIME content encoding" />
<!-- For applications, and for header exchange routing -->
<field name = "headers" domain = "table" label = "message header field table" />
<!-- For queues that implement persistence -->
view release on metacpan or search on metacpan
lib/AnyEvent/ReverseHTTP.pm view on Meta::CPAN
# HTTP::Response->as_string by default adds a new line which could be harmful
my $res_body = $res->as_string;
chomp $res_body if $res->content_type eq 'text/plain';
http_post $hdr->{URL}, $res_body,
headers => { 'content-type' => 'message/http' },
sub {
my($body, $hdr) = @_;
if ($hdr->{Status} ne '202') {
$self->on_error->("$hdr->{Status}: $hdr->{Reason}");
}
view release on metacpan or search on metacpan
examples/basic.pl view on Meta::CPAN
$self->subscribe('/queue/test-destination');
$self->send(
'/queue/test-destination',
{'content-type' => 'text/plain',},
"Hello World!"
);
}
);
view release on metacpan or search on metacpan
WebDriver.pm view on Meta::CPAN
AnyEvent::HTTP::http_request $method => "$self->{_ep}$ep",
body => $body,
$self->{persistent} ? (persistent => 1) : (),
$self->{proxy} eq "default" ? () : (proxy => $self->{proxy}),
timeout => $self->{timeout},
headers => { "content-type" => "application/json; charset=utf-8", "cache-control" => "no-cache" },
sub {
my ($res, $hdr) = @_;
$res = eval { $json->decode ($res) };
$hdr->{Status} = 500 unless exists $res->{value};