Result:
found more than 741 distributions - search limited to the first 2001 files matching your query
( run in 3.554 )
AnyEvent-UWSGI
view release on metacpan or search on metacpan
lib/AnyEvent/UWSGI.pm view on Meta::CPAN
if $recurse < 0;
my $proxy = exists $arg{proxy} ? $arg{proxy} : $PROXY;
my $timeout = $arg{timeout} || $TIMEOUT;
my ($uscheme, $uauthority, $upath, $query, undef) = # ignore fragment
$url =~ m|^([^:]+):(?://([^/?#]*))?([^?#]*)(?:(\?[^#]*))?(?:#(.*))?$|;
$uscheme = lc $uscheme;
my $uport = 3031;
lib/AnyEvent/UWSGI.pm view on Meta::CPAN
$rscheme = lc $rscheme;
} else {
($rhost, $rport, $rscheme, $rpath) = ($uhost, $uport, $uscheme, $upath);
}
# leave out fragment and query string, just a heuristic
$hdr{referer} = "$uscheme://$uauthority$upath" unless exists $hdr{referer};
$hdr{"user-agent"} = $USERAGENT unless exists $hdr{"user-agent"};
$hdr{"content-length"} = length $arg{body}
if length $arg{body} || $method ne "GET";
AnyEvent-WebSocket-Client
view release on metacpan or search on metacpan
lib/AnyEvent/WebSocket/Client.pm view on Meta::CPAN
has max_payload_size => (
is => 'ro',
);
has max_fragments => (
is => 'ro',
);
has env_proxy => (
lib/AnyEvent/WebSocket/Client.pm view on Meta::CPAN
AnyEvent::WebSocket::Connection->new(
handle => $hdl,
masked => 1,
maybe subprotocol => $sb,
maybe max_payload_size => $self->max_payload_size,
maybe max_fragments => $self->max_fragments,
)
);
undef $hdl;
undef $done;
}
lib/AnyEvent/WebSocket/Client.pm view on Meta::CPAN
=head2 max_payload_size
The maximum payload size for received frames. Currently defaults to whatever
L<Protocol::WebSocket> defaults to.
=head2 max_fragments
The maximum number of fragments for received frames. Currently defaults to whatever
L<Protocol::WebSocket> defaults to.
=head2 env_proxy
If you set true to this boolean attribute, it loads proxy settings
AnyMQ
view release on metacpan or search on metacpan
inc/Module/Install/Any/Moose.pm view on Meta::CPAN
$self->_any_moose_setup(
($prefer eq 'Mouse' ? 'Moose' : 'Mouse'), $module, %args );
}
sub _any_moose_setup {
my ($self, $prefix, $frag, %args) = @_;
my $module = $frag ? $prefix . $frag : $prefix;
my $prefer = $args{ prefer };
my $version = $args{ lc $prefix };
if ($prefer eq $prefix) {
$self->requires($module, $version);
Apache-ASP
view release on metacpan or search on metacpan
This makes StatINC & StatINCMatch settings viable
for production & development use when the system has
very many modules.
-Cookieless session support with configs like SessionQueryParse
and SessionQuery now work for URLs with frags in them
like http://localhost?arg=value#frag
+@rv = $Response->Include() now works where there are
multiple return values from an include like:
<% return(1,2); %>
Apache-AuthenNTLM
view release on metacpan or search on metacpan
smb/smbval/.svn/text-base/rfcnb-io.c.svn-base view on Meta::CPAN
int RFCNB_Get_Pkt(struct RFCNB_Con *con, struct RFCNB_Pkt *pkt, int len)
{ int read_len, pkt_len;
char hdr[RFCNB_Pkt_Hdr_Len]; /* Local space for the header */
struct RFCNB_Pkt *pkt_frag;
int more, this_time, offset, frag_len, this_len;
BOOL seen_keep_alive = TRUE;
/* Read that header straight into the buffer */
if (len < RFCNB_Pkt_Hdr_Len) { /* What a bozo */
smb/smbval/.svn/text-base/rfcnb-io.c.svn-base view on Meta::CPAN
/* Now copy in the hdr */
memcpy(pkt -> data, hdr, sizeof(hdr));
/* Get the rest of the packet ... first figure out how big our buf is? */
/* And make sure that we handle the fragments properly ... Sure should */
/* use an iovec ... */
if (len < pkt_len) /* Only get as much as we have space for */
more = len - RFCNB_Pkt_Hdr_Len;
else
more = pkt_len;
this_time = 0;
/* We read for each fragment ... */
if (pkt -> len == read_len){ /* If this frag was exact size */
pkt_frag = pkt -> next; /* Stick next lot in next frag */
offset = 0; /* then we start at 0 in next */
}
else {
pkt_frag = pkt; /* Otherwise use rest of this frag */
offset = RFCNB_Pkt_Hdr_Len; /* Otherwise skip the header */
}
frag_len = pkt_frag -> len;
if (more <= frag_len) /* If len left to get less than frag space */
this_len = more; /* Get the rest ... */
else
this_len = frag_len - offset;
while (more > 0) {
if ((this_time = read(con -> fd, (pkt_frag -> data) + offset, this_len)) <= 0) { /* Problems */
if (errno == EINTR) {
RFCNB_errno = RFCNB_Timeout;
smb/smbval/.svn/text-base/rfcnb-io.c.svn-base view on Meta::CPAN
return(RFCNBE_Bad);
}
#ifdef RFCNB_DEBUG
fprintf(stderr, "Frag_Len = %i, this_time = %i, this_len = %i, more = %i\n", frag_len,
this_time, this_len, more);
#endif
read_len = read_len + this_time; /* How much have we read ... */
/* Now set up the next part */
if (pkt_frag -> next == NULL) break; /* That's it here */
pkt_frag = pkt_frag -> next;
this_len = pkt_frag -> len;
offset = 0;
more = more - this_time;
}
Apache-AxKit-Plugin-AddXSLParams-Request
view release on metacpan or search on metacpan
# verbose URI parameters
if ( grep { $_ eq 'VerboseURI' } @allowed_groups ) {
my $parsed_uri = $r->parsed_uri;
my @uri_methods = qw( scheme hostinfo user password hostname port path rpath query fragment );
foreach my $method ( @uri_methods ) {
my $value = $parsed_uri->$method();
$cgi->parms->set('request.uri.' . $method => $value ) if length $value > 0;
}
=item * rpath
=item * query
=item * fragment
=back
B<Examples>:
Apache-AxKit-Plugin-Session
view release on metacpan or search on metacpan
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
if (substr($configfile,0,1) eq '/') {
open(IN, $configfile) || die "file open error (read): $configfile";
open(OUT, ">$configfile.new") || die "file open error (write): $configfile.new";
while (my $line = <IN>) {
print OUT $line unless $line eq '# do not modify - autogenerated. # '.$r->uri."\n";
while (my $line = <IN> && $line ne "# end of autogenerated fragment\n") {}
}
close(IN);
print OUT '# do not modify - autogenerated. # '.$r->uri."\n";
print OUT '<Location '.$r->uri.">\n";
print OUT @perms;
print OUT "</Location>\n";
print OUT "# end of autogenerated fragment\n";
close(OUT);
rename("$configfile.new",$configfile);
} else {
my $dir = $r->filename;
$dir =~ s{[^/]*$}{$configfile};
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
open(OUT, ">$dir") || die "file open error (write): $dir";
my $skip = 0;
for my $line (@lines) {
$skip = 1 if $line eq '# do not modify - autogenerated. # '.$r->uri."\n";
print OUT $line unless $skip;
$skip = 0 if $line eq "# end of autogenerated fragment\n";
}
print OUT '# do not modify - autogenerated. # '.$r->uri."\n";
print OUT '<Files '.$file.">\n";
print OUT @perms;
print OUT "</Files>\n";
print OUT "# end of autogenerated fragment\n";
close(OUT);
}
}
# interfaces for the taglib
Apache-DBI-Cache
view release on metacpan or search on metacpan
statistics
returns a reference to the statistics hash. If BerkeleyDB is used it
is tied to BerkeleyDB::Btree.
statistics_as_html
returns a reference to an array of HTML fragments. If mod_perl and
Apache::Status or Apache::Status2 is used the output of this
function is shown under http://HOST/STATUS/URI?DBI_conn.
plugin( 'name', \&mangle, \&setup )
installs a new plugin, see "PLUGINS" below. If a plugin for the
Apache-Dynagzip
view release on metacpan or search on metacpan
Dynagzip.pm view on Meta::CPAN
the "*" C<Vary> extension in order to prevent any proxy caching.
When the outgoing content is gzipped, this extension will be appended to the regular C<Vary> header,
like in the following example:
Using the following fragment within the C<httpd.conf>:
PerlModule Apache::Dynagzip
<Files ~ "*\.html">
SetHandler perl-script
PerlHandler Apache::Dynagzip
Apache-LoggedAuthDBI
view release on metacpan or search on metacpan
which have a NULL C<age>! At least for database engines that
conform to the SQL standard. Refer to the SQL manual for your database
engine or any SQL book for the reasons for this. To explicitly select
NULLs you have to say "C<WHERE age IS NULL>".
A common issue is to have a code fragment handle a value that could be
either C<defined> or C<undef> (non-NULL or NULL) at runtime.
A simple technique is to prepare the appropriate statement as needed,
and substitute the placeholder for non-NULL cases:
$sql_clause = defined $age? "age = ?" : "age IS NULL";
Apache-MP3
view release on metacpan or search on metacpan
This has been changed.
=item HomeLabel I<string>
This is the label for the link used to return to the site's home
page. You may use plain text or any fragment of HTML, such as an
<IMG> tag.
=item LongList I<integer>
The number of lines in the list of MP3 files after which it is
This method displays the playlists given by C<$playlists> in a nicely
formatted table.
=item $html = $mp3->format_playlist($playlist)
This method formats the indicated playlist by creating a fragment of
HTML containing the playlist icon, the stream links and the playlist
name. It returns a HTML fragment used by playlist_list().
=item $response_code = $mp3->list_directory($dir)
This is the top level formatter for directory listings. It is passed
the URL of a directory and returns an Apache response code.
This method sorts the subdirectories given in C<$directories> and
returns a sorted B<list> (not an arrayref).
=item $html = $mp3->format_subdir($directory)
This method formats the indicated subdirectory by creating a fragment
of HTML containing the little CD icon, the shuffle and stream links,
and the subdirectory's name. It returns an HTML fragment used by
subdir_list().
=item $mp3->get_help
This subroutine generates the "Quick Help Summary" link at the bottom
module places the control buttons at both the top and bottom of the
MP3 file table, rather than at the bottom only. This method
=item $html = $mp3->home_label
Returns a fragment of HTML to use as the "Home" link in the list of
parent directories.
=item $style = $mp3->path_style
Returns the style of the list of parent directories. Either "arrows"
Apache-PSP
view release on metacpan or search on metacpan
lib/Template/PSP.pm view on Meta::CPAN
# %tags - list of special HTML tags defined in Template.pm
# %global_tags - list of HTML tags, accessible by all pages
#
# $page - scalar reference to script being created from template
# $frags - html fragments
# $outputflag - process '$' variables
# $perlflag - perl code
# $package - template is being placed in $package
# %tagdata - data associated with tag being created
# %Cache - file time stamps for loaded psp pages
# %Handler - pointers to subroutines for psp pages
# %type - subroutines for handling output types
use vars qw (%tags %global_tags $page $parsefile $frags $outputflag $perlflag
$handlerflag $package %tagdata %Cache %Handler %type $lineno
$top_package $escapeflag $space
);
use vars qw(%QUERY %CGI %FILENAMES %AUTH %COOKIE);
lib/Template/PSP.pm view on Meta::CPAN
{
my ($data, $pkg, $topflag) = @_;
my $parseflag = 0;
my $handler;
my $file;
my ($oldpage, $oldpkg, $oldfrags, $pg, $oldfile, $oldlineno);
if (!ref($data))
{
# data is a file name, not the code
# This file name may have . ../.. or a relative path
lib/Template/PSP.pm view on Meta::CPAN
# we need to create a temporary place
# to store the page as it is building it
$oldlineno = $lineno;
$oldfile = $parsefile;
$oldfrags = $frags;
$oldpage = $page;
$oldpkg = $package;
$frags = 0;
$lineno = 1;
$package = $pkg;
$page = \$pg;
$parsefile = $file;
lib/Template/PSP.pm view on Meta::CPAN
no strict 'refs';
# restore globals
$lineno = $oldlineno;
$parsefile = $oldfile;
$frags = $oldfrags;
$page = $oldpage;
$package = $oldpkg;
}
# import export_tags from loaded page
lib/Template/PSP.pm view on Meta::CPAN
append_page('print qq{' . $text . '};' . "\n");
}
else
{
no strict 'refs';
$frags++;
${$package . '::__html_' . $frags} = $text;
append_page("print \$" . $package . '::__html_' . $frags . ";\n");;
}
}
#########################################
Apache-ProxyRewrite
view release on metacpan or search on metacpan
ProxyRewrite.pm view on Meta::CPAN
my $buflen = length($buf);
while (($lessthanpos = index($buf, "<", $pos)) > -1) {
# Make a special case out of the comment in case there
# are nested tags within the comment, such as javascript code
# fragments. Not necessarily our problem, but it doesn't hurt much
# to deal with it.
if (substr($buf, $lessthanpos + 1, 3) eq '!--') {
$greaterthanpos = index($buf, "-->", $lessthanpos);
$iscomment = 1;
} else {
Apache-SdnFw
view release on metacpan or search on metacpan
lib/Apache/SdnFw/js/prototype.js view on Meta::CPAN
content = Object.toHTML(content);
var parent = element.parentNode, tagName = parent.tagName.toUpperCase();
if (Element._insertionTranslations.tags[tagName]) {
var nextSibling = element.next();
var fragments = Element._getContentFromAnonymousElement(tagName, content.stripScripts());
parent.removeChild(element);
if (nextSibling)
fragments.each(function(node) { parent.insertBefore(node, nextSibling) });
else
fragments.each(function(node) { parent.appendChild(node) });
}
else element.outerHTML = content.stripScripts();
content.evalScripts.bind(content).defer();
return element;
lib/Apache/SdnFw/js/prototype.js view on Meta::CPAN
m[6] = "1"; return Selector.xpath.pseudos['nth-last-of-type'](m);
},
'only-of-type': function(m) {
var p = Selector.xpath.pseudos; return p['first-of-type'](m) + p['last-of-type'](m);
},
nth: function(fragment, m) {
var mm, formula = m[6], predicate;
if (formula == 'even') formula = '2n+0';
if (formula == 'odd') formula = '2n+1';
if (mm = formula.match(/^(\d+)$/)) // digit only
return '[' + fragment + "= " + mm[1] + ']';
if (mm = formula.match(/^(-?\d*)?n(([+-])(\d+))?/)) { // an+b
if (mm[1] == "-") mm[1] = -1;
var a = mm[1] ? Number(mm[1]) : 1;
var b = mm[2] ? Number(mm[2]) : 0;
predicate = "[((#{fragment} - #{b}) mod #{a} = 0) and " +
"((#{fragment} - #{b}) div #{a} >= 0)]";
return new Template(predicate).evaluate({
fragment: fragment, a: a, b: b });
}
}
}
},
Apache-SecSess
view release on metacpan or search on metacpan
SecSess/URL.pm view on Meta::CPAN
my($uid, $realm, $ctxt, %args, $requrl, $idx, @chains, $chain, $url, $sep);
my($backurl);
$log->debug(ref($self), "->issueCredentials():");
## form credentials as URL query string fragments
$uid = $r->user;
$realm = $self->authRealm;
$ctxt = $self->{wrapper}->wraphash({
uid => $uid,
timestamp => time,
Apache-Solr
view release on metacpan or search on metacpan
lib/Apache/Solr/Tables.pm view on Meta::CPAN
group.truncate
hardend
highlight
hl
hl.defaultSummary
hl.fragsizeIsMinimum
hl.highlightAlternate
hl.highlightMultiTerm
hl.mergeContiguous
hl.payloads
hl.preserveMulti
lib/Apache/Solr/Tables.pm view on Meta::CPAN
useConfiguredElevatedOrder
xmlOffsetAdjust
/;
our %introduced = qw/
carrot.fragSize 3.1
carrot.lang 3.6
carrot.lexicalResourcesDir 3.2
carrot.produceSummary 3.6
carrot.resourcesDir 4.5
carrot.summarySnippets 3.6
lib/Apache/Solr/Tables.pm view on Meta::CPAN
hl.boundaryScanner 3.5
hl.bs.chars 3.5
hl.bs.country 3.5
hl.bs.language 3.5
hl.bs.type 3.5
hl.fragListBuilder 3.1
hl.fragmenter 1.3
hl.fragmentsBuilder 3.1
hl.highlightMultiTerm 1.4
hl.maxAlternateFieldLength 1.3
hl.maxAnalyzedChars 1.3
hl.maxMultiValuedToExamine 4.3
hl.maxMultiValuedToMatch 4.3
Apache-UploadMeter
view release on metacpan or search on metacpan
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
Insertion.Before.prototype = Object.extend(new Abstract.Insertion('beforeBegin'), {
initializeRange: function() {
this.range.setStartBefore(this.element);
},
insertContent: function(fragments) {
fragments.each((function(fragment) {
this.element.parentNode.insertBefore(fragment, this.element);
}).bind(this));
}
});
Insertion.Top = Class.create();
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
initializeRange: function() {
this.range.selectNodeContents(this.element);
this.range.collapse(true);
},
insertContent: function(fragments) {
fragments.reverse(false).each((function(fragment) {
this.element.insertBefore(fragment, this.element.firstChild);
}).bind(this));
}
});
Insertion.Bottom = Class.create();
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
initializeRange: function() {
this.range.selectNodeContents(this.element);
this.range.collapse(this.element);
},
insertContent: function(fragments) {
fragments.each((function(fragment) {
this.element.appendChild(fragment);
}).bind(this));
}
});
Insertion.After = Class.create();
Insertion.After.prototype = Object.extend(new Abstract.Insertion('afterEnd'), {
initializeRange: function() {
this.range.setStartAfter(this.element);
},
insertContent: function(fragments) {
fragments.each((function(fragment) {
this.element.parentNode.insertBefore(fragment,
this.element.nextSibling);
}).bind(this));
}
});
Apache-UploadSvr
view release on metacpan or search on metacpan
lib/Apache/UploadSvr.pm view on Meta::CPAN
my $subr = $r->lookup_uri($path);
my $file = $subr->filename;
stat $file;
if (-f _ || -d _) {
$found++;
if ($rbase->frag) {
my $abs = $rbase->path ."#". $rbase->frag;
$rlink = qq{<a href="$abs">$try</A>};
if ($rbase->path eq $f) {
# anchortesten?
}
$cnta++;
lib/Apache/UploadSvr.pm view on Meta::CPAN
}
$path = $sbase->path;
stat "$document_root$path";
if (-f _ || -d _) {
$found++;
if ($sbase->frag) {
my $abs = $sbase->path ."#". $sbase->frag;
$slink = qq{<a href="$abs">$try</A>};
$cnta++;
push @comment, "Stage Link anchor not tested";
} else {
my $abs = $sbase->as_string;
Apache-Voodoo
view release on metacpan or search on metacpan
lib/Apache/Voodoo/Validate/varchar.pm view on Meta::CPAN
return $v,$e;
}
#
# I saw this code fragment somewhere ages ago, I can't remember where.
# So, I can't attribute it to the proper author. sorry!
#
# I've stripped out everthing not pertaining to HTTP URLs. That
# was the part I really needed.
#
Apache-WebDAV
view release on metacpan or search on metacpan
lib/Apache/WebDAV.pm view on Meta::CPAN
3. put_get............... pass
4. put_get_utf8_segment.. pass
5. mkcol_over_plain...... pass
6. delete................ pass
7. delete_null........... pass
8. delete_fragment....... WARNING: DELETE removed collection resource with Request-URI including fragment; unsafe
...................... pass (with 1 warning)
9. mkcol................. pass
10. mkcol_again........... pass
11. delete_coll........... pass
12. mkcol_no_parent....... pass
Apache-Wyrd
view release on metacpan or search on metacpan
Wyrd/Services/SAK.pm view on Meta::CPAN
=pod
=item (scalar) C<normalize_href>(objectref DBL, scalar href)
Given a href-style URL, returns the full URL that is implied from the fragment.
=cut
sub normalize_href {
my ($dbl, $fragment) = @_;
my $req = $dbl->req;
my $default_scheme = ($ENV{'HTTPS'} eq 'on') ? 'https' : 'http';
my $default_hostinfo = $req->hostname;
my $default_path = $dbl->self_path;
Wyrd/Services/SAK.pm view on Meta::CPAN
my $scheme = $uri->scheme || $default_scheme;
my $hostinfo = $uri->hostinfo || $default_hostinfo;
my $path = $uri->rpath || $default_path;
$path =~ s{[^/]+$}{};
if ($fragment =~ /^https?:/) {
return $fragment;
}
elsif ($fragment =~ m#^/#) {
return "$scheme://$hostinfo$fragment";
} else {
use Apache::URI;
my $uri=$req->parsed_uri;
return "$scheme://$hostinfo$path$fragment";
}
}
=pod
Apache-XPointer-RDQL
view release on metacpan or search on metacpan
lib/Apache/XPointer/RDQL.pm view on Meta::CPAN
$Apache::XPointer::RDQL::VERSION = '1.1';
=head1 NAME
Apache::XPointer::RDQL - mod_perl handler for addressing XML fragments using the RDF Data Query Language.
=head1 SYNOPSIS
<Directory /foo/bar>
lib/Apache/XPointer/RDQL.pm view on Meta::CPAN
my $res = $ua->request($req);
=head1 DESCRIPTION
Apache::XPointer::RDQL::RDFStore is a mod_perl handler to address XML fragments using
the HTTP 1.1 I<Range> and I<Accept> headers and the XPath scheme, as described
in the paper : I<A Semantic Web Resource Protocol: XPointer and HTTP>.
Additionally, the handler may also be configured to recognize a conventional
CGI parameter as a valid range identifier.
Apache-XPointer
view release on metacpan or search on metacpan
lib/Apache/XPointer.pm view on Meta::CPAN
$Apache::XPointer::VERSION = '1.1';
=head1 NAME
Apache::XPointer - mod_perl handler to address XML fragments.
=head1 SYNOPSIS
<Directory /foo/bar>
lib/Apache/XPointer.pm view on Meta::CPAN
my $res = $ua->request($req);
=head1 DESCRIPTION
Apache::XPointer is a mod_perl handler to address XML fragments using
the HTTP 1.1 I<Range> and I<Accept> headers and the XPath scheme, as described
in the paper : I<A Semantic Web Resource Protocol: XPointer and HTTP>.
Additionally, the handler may also be configured to recognize a conventional
CGI parameter as a valid range identifier.
Apache-iNcom
view release on metacpan or search on metacpan
lib/Apache/iNcom/Request.pm view on Meta::CPAN
$file = $params->{inputfile};
} else {
$file = shift;
# Create default params
# Since Include file can contain fragment,
my $debug = $r->dir_config( "EMBPERL_DEBUG" ) ||
$ENV{EMBPERL_DEBUG} || 0;
# Default = optRawInput + optDisableTableScan
# disable Table scan by default
my $options = $r->dir_config( "EMBPERL_OPTIONS" ) ||
Apache2-API
view release on metacpan or search on metacpan
lib/Apache2/API/Response.pm view on Meta::CPAN
=head2 no_local_copy
my $status = $resp->no_local_copy();
Used internally in certain sub-requests to prevent sending C<Apache2::Const::HTTP_NOT_MODIFIED> for a fragment or error documents.
Also affect L</meets_conditions>. If set to a true value, the conditions are always met.
It returns a status integer.
Apache2-AuthenNTLM
view release on metacpan or search on metacpan
smb/smbval/rfcnb-io.c view on Meta::CPAN
int RFCNB_Get_Pkt(struct RFCNB_Con *con, struct RFCNB_Pkt *pkt, int len)
{ int read_len, pkt_len;
char hdr[RFCNB_Pkt_Hdr_Len]; /* Local space for the header */
struct RFCNB_Pkt *pkt_frag;
int more, this_time, offset, frag_len, this_len;
BOOL seen_keep_alive = TRUE;
/* Read that header straight into the buffer */
if (len < RFCNB_Pkt_Hdr_Len) { /* What a bozo */
smb/smbval/rfcnb-io.c view on Meta::CPAN
/* Now copy in the hdr */
memcpy(pkt -> data, hdr, sizeof(hdr));
/* Get the rest of the packet ... first figure out how big our buf is? */
/* And make sure that we handle the fragments properly ... Sure should */
/* use an iovec ... */
if (len < pkt_len) /* Only get as much as we have space for */
more = len - RFCNB_Pkt_Hdr_Len;
else
more = pkt_len;
this_time = 0;
/* We read for each fragment ... */
if (pkt -> len == read_len){ /* If this frag was exact size */
pkt_frag = pkt -> next; /* Stick next lot in next frag */
offset = 0; /* then we start at 0 in next */
}
else {
pkt_frag = pkt; /* Otherwise use rest of this frag */
offset = RFCNB_Pkt_Hdr_Len; /* Otherwise skip the header */
}
frag_len = pkt_frag -> len;
if (more <= frag_len) /* If len left to get less than frag space */
this_len = more; /* Get the rest ... */
else
this_len = frag_len - offset;
while (more > 0) {
if ((this_time = read(con -> fd, (pkt_frag -> data) + offset, this_len)) <= 0) { /* Problems */
if (errno == EINTR) {
RFCNB_errno = RFCNB_Timeout;
smb/smbval/rfcnb-io.c view on Meta::CPAN
return(RFCNBE_Bad);
}
#ifdef RFCNB_DEBUG
fprintf(stderr, "Frag_Len = %i, this_time = %i, this_len = %i, more = %i\n", frag_len,
this_time, this_len, more);
#endif
read_len = read_len + this_time; /* How much have we read ... */
/* Now set up the next part */
if (pkt_frag -> next == NULL) break; /* That's it here */
pkt_frag = pkt_frag -> next;
this_len = pkt_frag -> len;
offset = 0;
more = more - this_time;
}
Apache2-CondProxy
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__
Apache2-Controller
view release on metacpan or search on metacpan
lib/Apache2/Controller/Dispatch/Simple.pm view on Meta::CPAN
SEARCH_URI:
for my $search_uri (
grep $uri_length_map->{$_} <= $uri_len, @{$search_uri_list}
) {
my $len = $uri_length_map->{$search_uri};
my $fragment = substr $uri_lc, 0, $len;
DEBUG("search_uri '$search_uri', len $len, fragment '$fragment'");
if ($fragment eq $search_uri) {
DEBUG("fragment match found: '$fragment'");
# if next character in URI is not / or end of string, this is not it,
# only a partial (/foo/barrybonds/stats should not match /foo/bar)
my $next_char = substr $uri, $len, 1;
if ($next_char && $next_char ne '/') {
Apache2-HTML-Detergent
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__
Apache2-MimeInfo
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__
( run in 3.554 seconds using v1.01-cache-2.11-cpan-b16cb0d3907 )