Result:
found more than 629 distributions - search limited to the first 2001 files matching your query
( run in 2.077 )
Apache2-Autocomplete
view release on metacpan or search on metacpan
70;document.fireEvent("onkeydown",a)}}function jb(a){if(!a&&window.event)a=window.event;if(a)va=a.keyCode;if(a&&a.keyCode==8){if(J&&d.createTextRange&&a.srcElement==d&&O(d)==0&&P(d)==0){Wa(d);a.cancelBubble=true;a.returnValue=false;return false}}}fun...
m.style.height=i.style.height}}}function Ha(){if(navigator&&navigator.userAgent.toLowerCase().indexOf("msie")==-1){return d.offsetWidth-T*2}else{return d.offsetWidth}}function db(){if(Ja()){F=true}else{F=false}if($a)E="complete";else E="/complete/"+P...
okdh;d.onkeyup=okuh}d.onsubmit=la;k=d.value;qa=k;i=document.createElement("DIV");i.id="completeDiv";T=1;ia=1;i.style.borderRight="black "+T+"px solid";i.style.borderLeft="black "+T+"px solid";i.style.borderTop="black "+ia+"px solid";i.style.borderBot...
m.id="completeIFrame";m.style.zIndex="1";m.style.position="absolute";if(window.opera&&(!window.opera.version||window.opera.version()<="8.54"))m.style.display="none";else m.style.display="block";m.style.visibility="hidden";m.style.borderRightWidth="0"...
a.style.left="0";a.style.top="-10000";a.style.width="0";a.style.height="0";var b=document.createElement("IFRAME");b.completeDiv=i;b.name="completionFrame";b.id="completionFrame";if(!F){b.src=ra}a.appendChild(b);document.body.appendChild(a);if(frames&...
10);if(d.attachEvent){d.attachEvent("onpropertychange",ab)}}p=document.createElement("INPUT");p.type="hidden";p.name="aq";p.value=null;p.disabled=true;H.appendChild(p);t=document.createElement("INPUT");t.type="hidden";t.name="oq";t.value=null;t.disab...
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=="...
Apache2-Banner
view release on metacpan or search on metacpan
const char*
banner()
CODE:
RETVAL=ap_get_server_banner();
OUTPUT:
RETVAL
const char*
description()
CODE:
RETVAL=ap_get_server_description();
OUTPUT:
RETVAL
char*
date(time)
apr_time_t time
CODE:
char date[APR_RFC822_DATE_LEN];
ap_recent_rfc822_date(date, time);
RETVAL=date;
OUTPUT:
RETVAL
Apache2-CondProxy
view release on metacpan or search on metacpan
lib/Apache2/CondProxy.pm view on Meta::CPAN
use URI ();
use URI::Escape ();
# constants for pnotes
use constant BRIGADE => __PACKAGE__ . '::BRIGADE';
use constant INPUT => __PACKAGE__ . '::INPUT';
use constant CACHE => __PACKAGE__ . '::CACHE';
my $TRUE = qr/^\s*(1|true|on|yes)\s*$/i;
BEGIN {
lib/Apache2/CondProxy.pm view on Meta::CPAN
=head2 RequestBodyCache
RequestBodyCache /tmp/cond-proxy
In order to work with request content (e.g. C<POST>, C<PUT>), we have
to stash it somewhere so we can replay it into the pipe. This means
the contents of this directory are potentially sensitive. So if you're
going to put it in C</tmp>, make sure to at least make it only
readable to the server. Or you can have this module do that
automatically, just make sure it can write to the parent.
lib/Apache2/CondProxy.pm view on Meta::CPAN
Apache2::Const::OK;
}
sub _cleanup_handler {
my $r = shift;
if (my $xx = $r->pnotes(INPUT)) {
$r->log->debug
('Unlinking temporary file in case it is still sticking around');
unlink($xx->[0]);
}
Apache2::Const::OK;
lib/Apache2/CondProxy.pm view on Meta::CPAN
# only open the tempfile if there is something to put in it
unless ($in->is_empty) {
# deal with tempfile
my $fh;
my $xx = $mainr->pnotes(INPUT);
if ($xx) {
$fh = $xx->[1];
}
else {
# unfortunately something does not like the preemptive unlink
lib/Apache2/CondProxy.pm view on Meta::CPAN
return Apache2::Const::SERVER_ERROR;
}
$fh->binmode;
# also yes I know this is the reverse of what File::Temp returns
$mainr->pnotes(INPUT, [$fn, $fh]);
}
for (my $b = $in->first; $b; $b = $in->next($b)) {
if ($b->is_eos) {
# flush the temp file and seek it to zero
lib/Apache2/CondProxy.pm view on Meta::CPAN
sub _input_filter_replay {
my ($f, $bb, $mode, $block, $readbytes) = @_;
my $c = $f->c;
my $r = $f->r;
my $xx = $r->pnotes(INPUT) or return Apache2::Const::DECLINED;
my ($fn, $fh) = @$xx;
$r->log->debug('Replaying input into proxy request');
# XXX do i even have to do this?
Apache2-FakeRequest
view release on metacpan or search on metacpan
lib/Apache2/FakeRequest.pm view on Meta::CPAN
sub HTTP_VARIANT_ALSO_VARIES { 506 }
# methods
sub M_GET { 0 }
sub M_PUT { 1 }
sub M_POST { 2 }
sub M_DELETE { 3 }
sub M_CONNECT { 4 }
sub M_OPTIONS { 5 }
sub M_TRACE { 6 }
Apache2-FileHash
view release on metacpan or search on metacpan
lib/Apache2/FileHash.pm view on Meta::CPAN
use Apache2::FileHash;
<VirtualHost *:80>
<Location /storeFile>
PerlHeaderParserHandler Apache2::FileHash::PUT
<Limit PUT>
order deny,allow
deny from all
allow from 192.168.5.5
</Limit>
</Location>
lib/Apache2/FileHash.pm view on Meta::CPAN
</Location>
</VirtualHost>
<VirtualHost *:8080>
<Location /storeFile>
PerlHeaderParserHandler Apache2::FileHash::PUT
<Limit PUT>
order deny,allow
deny from all
allow from 192.168.5.5
</Limit>
</Location>
lib/Apache2/FileHash.pm view on Meta::CPAN
use lib qw(/opt/mod_perl/lib);
use lib qw(/opt/Apache2);
use lib qw(/opt/Apache2/FileHash);
use Apache2::FileHash;
use Apache2::FileHash::PUT;
use Apache2::FileHash::GET;
use MIME::Types;
my @array = ();
lib/Apache2/FileHash.pm view on Meta::CPAN
name: localhost
port: 8080
METHOD:
GET:
root_uri: '/getFile'
PUT:
root_uri: '/storeFile'
*** FileHash.yml ***
=head1 DESCRIPTION
Apache2-FileManager
view release on metacpan or search on metacpan
FileManager.pm view on Meta::CPAN
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
<TR><TD>$$o{MESSAGE}</TD></TR>
<TR>
<FORM>
<TD ALIGN=RIGHT>
<INPUT TYPE=BUTTON VALUE='close'
onclick="window.close();">
</TD>
</FORM>
</TR>
</TABLE>
FileManager.pm view on Meta::CPAN
</TD>
</TR>
<TR BGCOLOR=#efefef>
<TD ALIGN=RIGHT>
<FORM>
<INPUT TYPE=BUTTON VALUE=close
onclick=\"
window.close();
return false;\">
</FORM>
</TD>
FileManager.pm view on Meta::CPAN
ACTION='".r->uri."'
METHOD=POST>
".$o->html_hidden_fields()."
<INPUT TYPE=HIDDEN NAME=FILEMANAGER_editfile
VALUE=\"".r->param('FILEMANAGER_editfile')."\">
<!-- Header -->
<TABLE WIDTH=100% CELLPADDING=0 CELLSPAING=0>
<TR>
FileManager.pm view on Meta::CPAN
<TD ALIGN=CENTER>
<TABLE CELLPADDING=0 CELLSPACING=0
BORDER=0 WIDTH=90%>
<TR ALIGN=CENTER>
<TD ALIGN=CENTER>
<INPUT TYPE=BUTTON VALUE='cancel'
onclick=\"
window.close();
return false;\">
</TD>
<TD ALIGN=CENTER>
<INPUT TYPE=BUTTON VALUE='preview'
onclick=\"
window.show_preview();
return false;\">
</TD>
<TD ALIGN=CENTER>
<INPUT TYPE=BUTTON VALUE='save'
onclick=\"
var f = window.document.FileManagerEditFile;
f.FILEMANAGER_cmd.value = 'savefiledata';
f.submit();
return false;\">
FileManager.pm view on Meta::CPAN
<TD ALIGN=CENTER>
<TABLE CELLPADDING=0 CELLSPACING=0
BORDER=0 WIDTH=90%>
<TR ALIGN=CENTER>
<TD ALIGN=CENTER>
<INPUT TYPE=BUTTON VALUE='cancel'
onclick=\"
window.close();
return false;\">
</TD>
<TD ALIGN=CENTER>
<INPUT TYPE=BUTTON VALUE='preview'
onclick=\"
window.show_preview();
return false;\">
</TD>
<TD ALIGN=CENTER>
<INPUT TYPE=BUTTON VALUE='save'
onclick=\"
var f = window.document.FileManagerEditFile;
f.FILEMANAGER_cmd.value = 'savefiledata';
f.submit();
return false;\">
FileManager.pm view on Meta::CPAN
\"access these files. To fix the problem, contact your system \"+
\"administrator and ask them to grant the webserver \"+
\"READ, WRITE, and EXECUTE access to your files.<BR><BR>\"+
\"</UL><CENTER>\"+
\"<FORM><INPUT TYPE=BUTTON VALUE='close' onclick='window.close();'>\"+
\"</FORM></CENTER></HTML>\");
d.close();
w.focus();
}
FileManager.pm view on Meta::CPAN
var d = w.document.open();
d.write(\"<HTML><BODY><CENTER><H1>Upload Files</H1>\"+
\"<FORM NAME=UploadForm ACTION='".r->uri."' \"+
\" METHOD=POST onsubmit='window.opener.focus();' \"+
\" ENCTYPE=multipart/form-data>\"+
\" <INPUT TYPE=HIDDEN NAME=FILEMANAGER_curr_dir \"+
\" VALUE='".r->param('FILEMANAGER_curr_dir')."'>\");
for (var i=1; i <= 10; i++) {
d.write(\"<INPUT TYPE=FILE SIZE=40 NAME=FILEMANAGER_file\"+i+\"><BR>\");
}
d.write(\"<INPUT TYPE=BUTTON VALUE='cancel' onclick='window.close();'>\"+
\" \"+
\"<INPUT TYPE=SUBMIT NAME=FILEMANAGER_cmd\"+
\" VALUE=upload></CENTER></BODY></HTML>\");
d.close();
w.focus();
}
FileManager.pm view on Meta::CPAN
}
sub html_hidden_fields {
return "
<INPUT TYPE=HIDDEN NAME=FILEMANAGER_curr_dir
VALUE='".r->param('FILEMANAGER_curr_dir')."'>
<INPUT TYPE=HIDDEN NAME=FILEMANAGER_cmd VALUE=''>
<INPUT TYPE=HIDDEN NAME=FILEMANAGER_arg VALUE=''>
<INPUT TYPE=HIDDEN NAME=FILEMANAGER_last_select_all
VALUE='".r->param('FILEMANAGER_last_select_all')."'>
";
}
FileManager.pm view on Meta::CPAN
</A>";
}
$acum .= "
<TR BGCOLOR=#$bgcolor>
<TD><INPUT TYPE=CHECKBOX NAME=FILEMANAGER_sel_files
VALUE='$curr_dir"."$file'></TD>
<TD>$link</TD>
<TD ALIGN=CENTER NOWRAP>$last_modified</TD>
$size
</TR>";
Apache2-ModLogConfig
view release on metacpan or search on metacpan
ModLogConfig.xs view on Meta::CPAN
ENTER; SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(modperl_ptr2obj(aTHX_ "Apache2::RequestRec", r)));
PUTBACK;
count=call_pv(a, G_SCALAR|G_EVAL);
SPAGAIN;
if( SvTRUE(ERRSV) ) {
(void)POPs; /* G_SCALAR leaves exactly one value:
ModLogConfig.xs view on Meta::CPAN
"'%s' log format handler died: internal error - "
"multiple return values (must not happen)", HND_KEY);
while( count-- ) (void)POPs;
}
PUTBACK;
FREETMPS; LEAVE;
MP_uTHX;
return a;
} else {
Apache2-ModSSL
view release on metacpan or search on metacpan
{
retrieve_functions();
if( !is_https ) return XSRETURN_UNDEF;
RETVAL=is_https(c);
}
OUTPUT:
RETVAL
void
mpxs_Apache2__Connection_ssl_var_lookup(c, var)
Apache2::Connection c
Apache2-ModXml2
view release on metacpan or search on metacpan
Av_CharPtrPtr.c view on Meta::CPAN
#define _CRT_SECURE_NO_DEPRECATE 1
#define _CRT_NONSTDC_NO_DEPRECATE 1
#endif
/* Used by the INPUT typemap for char**.
* Will convert a Perl AV* (containing strings) to a C char**.
*/
char ** XS_unpack_charPtrPtr(SV* rv )
{
AV *av;
Av_CharPtrPtr.c view on Meta::CPAN
}
s[x] = (char*)NULL; /* sentinel */
return( s );
}
/* Used by the OUTPUT typemap for char**.
* Will convert a C char** to a Perl AV*.
*/
void XS_pack_charPtrPtr(SV* st, char **s)
{
AV *av = newAV();
Apache2-PageKit
view release on metacpan or search on metacpan
lib/Apache2/PageKit.pm view on Meta::CPAN
## the recommended fop converter has no usefull error messages.
## the errormoessages go also to STDOUT
## and the returncode is always 0
unless ($error_message =~ /^\[ERROR\]:/m){
local $/;
open PDF_OUTPUT, "<$pdf_file" or die "can't open file: $pdf_file ($!)";
binmode PDF_OUTPUT;
$$output_ref = <PDF_OUTPUT>;
close PDF_OUTPUT;
}
else {
die "Error processing template with Apache XML FOP: $error_message";
}
}
Apache2-REST
view release on metacpan or search on metacpan
lib/Apache2/REST/Handler.pm view on Meta::CPAN
A Handler object is build for each fragment of the URI, and objects are chained via the attibute parent.
You _must_ implement at list one Handler class to handle the root URI of your application and set it in your
apache conf by : PerlSetVar Apache2RESTHandlerRootClass "MyApp::REST::API" (for instance).
You _must_ implement at least one HTTP method (GET,POST,PUT,DELETE ...).
They will be called by the framework like this (for instance):
$this->GET($request,$response) ;
lib/Apache2/REST/Handler.pm view on Meta::CPAN
1 ;
#GET
#POST
#PUT
#DELETE
#new
Apache2-RequestRec-Time
view release on metacpan or search on metacpan
double
mpxs_Apache2__RequestRec_request_duration_microseconds(r)
Apache2::RequestRec r
CODE:
RETVAL = (double)(apr_time_now() - r->request_time);
OUTPUT:
RETVAL
long
mpxs_Apache2__RequestRec_request_duration(r)
Apache2::RequestRec r
CODE:
apr_time_t duration = apr_time_now() - r->request_time;
RETVAL = apr_time_sec(duration);
OUTPUT:
RETVAL
double
mpxs_Apache2__RequestRec_request_time_microseconds(r)
Apache2::RequestRec r
CODE:
RETVAL = (double)(r->request_time);
OUTPUT:
RETVAL
Apache2-S3
view release on metacpan or search on metacpan
lib/Apache2/S3.pm view on Meta::CPAN
the required authentication fields to the request and sets up mod_proxy
to handle it. Therefore you will need to enable mod_proxy like so:
ProxyRequests on
If you permit modification requests (PUT/DELETE) using the
S3ReadWrite feature then it is quite important that you protect
the url from untrusted requests using something like the following
on Apache 2.2:
<Proxy *>
Apache2-ScoreBoardFile
view release on metacpan or search on metacpan
ScoreBoardFile.xs view on Meta::CPAN
init(fd, &RETVAL);
close(fd);
}
}
}
OUTPUT:
RETVAL
void
summary(obj, ...)
Apache2::ScoreBoardFile obj
ScoreBoardFile.xs view on Meta::CPAN
shmsize(obj)
Apache2::ScoreBoardFile obj
PROTOTYPE: $
CODE:
RETVAL=obj->prefix.sz;
OUTPUT:
RETVAL
unsigned int
server_limit(obj)
Apache2::ScoreBoardFile obj
PROTOTYPE: $
CODE:
RETVAL=obj->gscore.server_limit;
OUTPUT:
RETVAL
unsigned int
thread_limit(obj)
Apache2::ScoreBoardFile obj
PROTOTYPE: $
CODE:
RETVAL=obj->gscore.thread_limit;
OUTPUT:
RETVAL
unsigned int
type(obj)
Apache2::ScoreBoardFile obj
PROTOTYPE: $
CODE:
RETVAL=obj->gscore.sb_type;
OUTPUT:
RETVAL
unsigned int
generation(obj)
Apache2::ScoreBoardFile obj
PROTOTYPE: $
CODE:
RETVAL=obj->gscore.running_generation;
OUTPUT:
RETVAL
unsigned int
lb_limit(obj)
Apache2::ScoreBoardFile obj
PROTOTYPE: $
CODE:
RETVAL=obj->gscore.lb_limit;
OUTPUT:
RETVAL
double
restart_time(obj)
Apache2::ScoreBoardFile obj
PROTOTYPE: $
CODE:
RETVAL=time2double(obj->gscore.restart_time);
OUTPUT:
RETVAL
Apache2::ScoreBoardFile::Process
process(obj, index)
Apache2::ScoreBoardFile obj
ScoreBoardFile.xs view on Meta::CPAN
INIT:
if( !(0<=index && index<obj->gscore.server_limit) )
XSRETURN_UNDEF;
CODE:
RETVAL=&(obj->pscore[index]);
OUTPUT:
RETVAL
Apache2::ScoreBoardFile::Worker
worker(obj, pindex, tindex=-1)
Apache2::ScoreBoardFile obj
ScoreBoardFile.xs view on Meta::CPAN
if( !(0<=pindex && pindex<sl*tl) ) XSRETURN_UNDEF;
CODE:
/* warn("sl=%d, tl=%d, start_of_ws=%x\n", sl, tl, */
/* (char*)(&(obj->pscore[sl]))-(char*)obj); */
RETVAL=&(((worker_score*)(&(obj->pscore[sl])))[pindex]);
OUTPUT:
RETVAL
void
DESTROY(obj)
Apache2::ScoreBoardFile obj
ScoreBoardFile.xs view on Meta::CPAN
pid(obj)
Apache2::ScoreBoardFile::Process obj
PROTOTYPE: $
CODE:
RETVAL=obj->pid;
OUTPUT:
RETVAL
unsigned int
generation(obj)
Apache2::ScoreBoardFile::Process obj
PROTOTYPE: $
CODE:
RETVAL=obj->generation;
OUTPUT:
RETVAL
unsigned int
quiescing(obj)
Apache2::ScoreBoardFile::Process obj
PROTOTYPE: $
CODE:
RETVAL=obj->quiescing;
OUTPUT:
RETVAL
MODULE = Apache2::ScoreBoardFile PACKAGE = Apache2::ScoreBoardFile::Worker
int
thread_num(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->thread_num;
OUTPUT:
RETVAL
unsigned int
pid(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->pid;
OUTPUT:
RETVAL
unsigned int
generation(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->generation;
OUTPUT:
RETVAL
char
status(obj)
Apache2::ScoreBoardFile::Worker obj
ScoreBoardFile.xs view on Meta::CPAN
if( status>=sizeof(ws_status_letters)-1 ) {
RETVAL='?';
} else {
RETVAL=ws_status_letters[status];
}
OUTPUT:
RETVAL
unsigned int
access_count(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->access_count;
OUTPUT:
RETVAL
unsigned int
bytes_served(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->bytes_served;
OUTPUT:
RETVAL
unsigned int
my_access_count(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->my_access_count;
OUTPUT:
RETVAL
unsigned int
my_bytes_served(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->my_bytes_served;
OUTPUT:
RETVAL
unsigned int
conn_count(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->conn_count;
OUTPUT:
RETVAL
unsigned int
conn_bytes(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->conn_bytes;
OUTPUT:
RETVAL
double
start_time(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=time2double(obj->start_time);
OUTPUT:
RETVAL
double
stop_time(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=time2double(obj->stop_time);
OUTPUT:
RETVAL
double
last_used(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=time2double(obj->last_used);
OUTPUT:
RETVAL
char*
client(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->client;
OUTPUT:
RETVAL
char*
request(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->request;
OUTPUT:
RETVAL
char*
vhost(obj)
Apache2::ScoreBoardFile::Worker obj
PROTOTYPE: $
CODE:
RETVAL=obj->vhost;
OUTPUT:
RETVAL
unsigned int
tid(obj)
Apache2::ScoreBoardFile::Worker obj
ScoreBoardFile.xs view on Meta::CPAN
#if APR_HAS_THREADS
RETVAL=obj->tid;
#else
RETVAL=(unsigned)-1;
#endif
OUTPUT:
RETVAL
unsigned int
utime(obj)
Apache2::ScoreBoardFile::Worker obj
ScoreBoardFile.xs view on Meta::CPAN
#if HAVE_TIMES
RETVAL=obj->times.tms_utime;
#else
RETVAL=(unsigned)-1;
#endif
OUTPUT:
RETVAL
unsigned int
stime(obj)
Apache2::ScoreBoardFile::Worker obj
ScoreBoardFile.xs view on Meta::CPAN
#if HAVE_TIMES
RETVAL=obj->times.tms_stime;
#else
RETVAL=(unsigned)-1;
#endif
OUTPUT:
RETVAL
unsigned int
cutime(obj)
Apache2::ScoreBoardFile::Worker obj
ScoreBoardFile.xs view on Meta::CPAN
#if HAVE_TIMES
RETVAL=obj->times.tms_cutime;
#else
RETVAL=(unsigned)-1;
#endif
OUTPUT:
RETVAL
unsigned int
cstime(obj)
Apache2::ScoreBoardFile::Worker obj
ScoreBoardFile.xs view on Meta::CPAN
#if HAVE_TIMES
RETVAL=obj->times.tms_cstime;
#else
RETVAL=(unsigned)-1;
#endif
OUTPUT:
RETVAL
# Local Variables:
# mode: c
# End:
Apache2-SiteControl
view release on metacpan or search on metacpan
lib/Apache2/SiteControl.pm view on Meta::CPAN
<HTML>
<HEAD> ... </HEAD>
% if($manager->can($currentUser, "edit", $table)) {
<FORM METHOD=POST ACTION="...">
<P><INPUT TYPE=TEXT NAME="x" VALUE="<% $table->{x} %>">
...
</FORM>
% } else {
<P>x is <% $table->{x} %>
% }
Apache2-Translation
view release on metacpan or search on metacpan
lib/Apache2/Translation/Admin/dragdrop.js view on Meta::CPAN
Draggable._dragging[this.element]) return;
if(Event.isLeftClick(event)) {
// abort on form elements, fixes a Firefox issue
var src = Event.element(event);
if((tag_name = src.tagName.toUpperCase()) && (
tag_name=='INPUT' ||
tag_name=='SELECT' ||
tag_name=='OPTION' ||
tag_name=='BUTTON' ||
tag_name=='TEXTAREA')) return;
Apache2-WebApp-Extra-Admin
view release on metacpan or search on metacpan
usr/share/webapp-toolkit/extra/class/admin_users_add.tt view on Meta::CPAN
# list the users
$self->_list_users($c);
}
else {
$error{alert} = ERROR_FORM_INPUT;
# errors exist, reload the form
$self->_view_page( $c, \%param, \%error );
}
}
ApacheBench
view release on metacpan or search on metacpan
src/ApacheBench.xs view on Meta::CPAN
newSVnv(registry->total_bytes_received), 0);
hv_store(RETVAL, "started", 7, newSViv(total_started), 0);
hv_store(RETVAL, "good", 4, newSViv(total_good), 0);
hv_store(RETVAL, "failed", 6, newSViv(total_failed), 0);
OUTPUT:
RETVAL
ApacheLog-Compressor
view release on metacpan or search on metacpan
lib/ApacheLog/Compressor.pm view on Meta::CPAN
=back
=cut
our %HTTP_METHOD;
our @HTTP_METHOD_LIST = qw(GET PUT HEAD POST OPTIONS DELETE TRACE CONNECT MKCOL PATCH PROPFIND PROPPATCH FILEPATCH COPY MOVE LOCK UNLOCK SIGNATURE DELTA);
{ my $idx = 0; %HTTP_METHOD = map { $_ => $idx++ } @HTTP_METHOD_LIST; }
=head1 METHODS
=cut
Apertur-SDK
view release on metacpan or search on metacpan
lib/Apertur/SDK/Resource/Keys.pm view on Meta::CPAN
my %payload = (destination_ids => $destination_ids);
$payload{long_polling_enabled} = $long_polling
if defined $long_polling;
return $self->{http}->request(
'PUT', "/api/v1/keys/$key_id/destinations",
body => encode_json(\%payload),
);
}
1;
Apigee-Edge
view release on metacpan or search on metacpan
lib/Apigee/Edge.pm view on Meta::CPAN
sub update_developer { ## no critic (ArgUnpacking)
my $self = shift;
my $email = shift;
my %args = @_ % 2 ? %{$_[0]} : @_;
$email or croak "email is required.";
return $self->request('PUT', "/o/" . $self->{org} . "/developers/" . uri_escape($email), %args);
}
## Apps: Developer http://apigee.com/docs/api/apps-developer
sub change_app_status {
my ($self, $email, $app) = @_;
lib/Apigee/Edge.pm view on Meta::CPAN
my $email = shift;
my $app = shift;
my %args = @_ % 2 ? %{$_[0]} : @_;
$email or croak "email is required.";
$app or croak "app is required.";
return $self->request('PUT', "/o/" . $self->{org} . "/developers/" . uri_escape($email) . "/apps/" . uri_escape($app), %args);
}
sub get_count_of_developer_app_resource {
my ($self, $email, $app, $entity) = @_;
return $self->request('GET',
lib/Apigee/Edge.pm view on Meta::CPAN
sub update_api_product { ## no critic (ArgUnpacking)
my $self = shift;
my $product = shift;
my %args = @_ % 2 ? %{$_[0]} : @_;
$product or croak "product is required.";
return $self->request('PUT', "/o/" . $self->{org} . "/apiproducts/" . uri_escape($product), %args);
}
sub delete_api_product {
my ($self, $product) = @_;
return $self->request('DELETE', "/o/" . $self->{org} . "/apiproducts/" . uri_escape($product));
lib/Apigee/Edge.pm view on Meta::CPAN
The underlaying method to call Apigee when you see something is missing.
$self->request('GET', "/o/$org_name/apps/$app_id");
$self->request('DELETE', "/o/$org_name/developers/" . uri_escape($email));
$self->request('POST', "/o/$org_name/developers", %args);
$self->request('PUT', "/o/$org_name/developers/" . uri_escape($email), %args);
=head2 errstr
=head1 GITHUB
Apophis
view release on metacpan or search on metacpan
lib/Apophis.xs view on Meta::CPAN
apophis_identify_content(uuid, ns, content, content_len);
EXTEND(SP, 1);
PUSHs(sv_2mortal(apophis_uuid_to_sv(aTHX_ uuid)));
PUTBACK;
return NORMAL;
}
/*
* pp_apophis_store - Custom op: fused identify + mkdir + atomic write
lib/Apophis.xs view on Meta::CPAN
apophis_atomic_write(aTHX_ path, content, content_len);
}
EXTEND(SP, 1);
PUSHs(sv_2mortal(newSVpvn(id_str, HORUS_FMT_STR_LEN)));
PUTBACK;
return NORMAL;
}
/*
* pp_apophis_exists - Custom op: UUID → boolean existence check
lib/Apophis.xs view on Meta::CPAN
apophis_build_path(path, sizeof(path),
store_dir, store_dir_len, id_str, id_len);
EXTEND(SP, 1);
PUSHs(stat(path, &st) == 0 ? &PL_sv_yes : &PL_sv_no);
PUTBACK;
return NORMAL;
}
/*
* pp_apophis_fetch - Custom op: UUID → content scalar ref or undef
lib/Apophis.xs view on Meta::CPAN
SvCUR_set(content, (STRLEN)nread);
*SvEND(content) = '\0';
PUSHs(sv_2mortal(newRV_noinc(content)));
}
PUTBACK;
return NORMAL;
}
/*
* pp_apophis_verify - Custom op: fused re-read + re-hash + compare
lib/Apophis.xs view on Meta::CPAN
horus_format_uuid(recomputed, uuid, HORUS_FMT_STR);
PUSHs((id_len == HORUS_FMT_STR_LEN &&
memcmp(id_str, recomputed, HORUS_FMT_STR_LEN) == 0)
? &PL_sv_yes : &PL_sv_no);
}
PUTBACK;
return NORMAL;
}
/*
* pp_apophis_remove - Custom op: fused path + unlink + meta cleanup
lib/Apophis.xs view on Meta::CPAN
path, path_len);
unlink(meta_path); /* ignore error — may not exist */
EXTEND(SP, 1);
PUSHs(removed ? &PL_sv_yes : &PL_sv_no);
PUTBACK;
return NORMAL;
}
/*
* apophis_make_custom_op - Create a custom OP node
lib/Apophis.xs view on Meta::CPAN
hv_stores(self, "store_dir", newSVpvn(store_dir, store_dir_len));
self_ref = newRV_noinc((SV *)self);
sv_bless(self_ref, gv_stashpv(class, GV_ADD));
RETVAL = self_ref;
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# namespace() -> UUID string #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
hv = (HV *)SvRV(self);
svp = hv_fetchs(hv, "_ns_str", 0);
if (!svp || !SvOK(*svp))
croak("Apophis: object has no namespace");
RETVAL = newSVsv(*svp);
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# identify(\$content) -> UUID string #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
content_sv = SvRV(content_ref);
content = SvPV(content_sv, content_len);
apophis_identify_content(uuid, ns, content, content_len);
RETVAL = apophis_uuid_to_sv(aTHX_ uuid);
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# identify_file($path) -> UUID string #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
apophis_identify_stream(aTHX_ uuid, ns, fh);
PerlIO_close(fh);
RETVAL = apophis_uuid_to_sv(aTHX_ uuid);
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# path_for($id, %opts) -> path string #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
path_len = apophis_build_path(path, sizeof(path),
store_dir, store_dir_len,
id_str, id_len);
RETVAL = newSVpvn(path, path_len);
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# store(\$content, %opts) -> UUID string #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
path, path_len);
apophis_meta_write(aTHX_ meta_path, meta);
}
RETVAL = newSVpvn(id_str, HORUS_FMT_STR_LEN);
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# fetch($id, %opts) -> \$content or undef #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
SvCUR_set(content, (STRLEN)nread);
*SvEND(content) = '\0';
RETVAL = newRV_noinc(content);
}
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# exists($id, %opts) -> bool #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
id_str = SvPV(id, id_len);
apophis_build_path(path, sizeof(path),
store_dir, store_dir_len, id_str, id_len);
RETVAL = (stat(path, &st) == 0) ? TRUE : FALSE;
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# remove($id, %opts) -> bool #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
apophis_build_meta_path(meta_path, sizeof(meta_path),
path, path_len);
unlink(meta_path); /* ignore error — may not exist */
RETVAL = removed ? TRUE : FALSE;
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# verify($id, %opts) -> bool #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
horus_format_uuid(recomputed, uuid, HORUS_FMT_STR);
RETVAL = (id_len == HORUS_FMT_STR_LEN &&
memcmp(id_str, recomputed, HORUS_FMT_STR_LEN) == 0)
? TRUE : FALSE;
}
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# store_many(\@refs, %opts) -> @ids #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
if (meta) {
RETVAL = newRV_noinc((SV *)meta);
} else {
RETVAL = &PL_sv_undef;
}
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# Custom op direct invocation XSUBs #
# #
lib/Apophis.xs view on Meta::CPAN
content_sv = SvRV(content_ref);
content = SvPV(content_sv, content_len);
apophis_identify_content(uuid, ns, content, content_len);
RETVAL = apophis_uuid_to_sv(aTHX_ uuid);
OUTPUT:
RETVAL
# op_store($self, \$content) -> UUID string
# Fused identify + mkdir + atomic write — single call, no intermediates.
lib/Apophis.xs view on Meta::CPAN
apophis_ensure_parent_dir(path);
apophis_atomic_write(aTHX_ path, content, content_len);
}
RETVAL = newSVpvn(id_str, HORUS_FMT_STR_LEN);
OUTPUT:
RETVAL
# op_exists($self, $id) -> bool
# Fused path computation + stat — single call.
lib/Apophis.xs view on Meta::CPAN
id_str = SvPV(id, id_len);
apophis_build_path(path, sizeof(path),
store_dir, store_dir_len, id_str, id_len);
RETVAL = (stat(path, &st) == 0) ? TRUE : FALSE;
OUTPUT:
RETVAL
# op_fetch($self, $id) -> \$content or undef
# Fused path computation + stat + read — single call.
lib/Apophis.xs view on Meta::CPAN
SvCUR_set(content, (STRLEN)nread);
*SvEND(content) = '\0';
RETVAL = newRV_noinc(content);
}
OUTPUT:
RETVAL
# op_verify($self, $id) -> bool
# Fused read + streaming SHA-1 + compare — single call.
lib/Apophis.xs view on Meta::CPAN
horus_format_uuid(recomputed, uuid, HORUS_FMT_STR);
RETVAL = (id_len == HORUS_FMT_STR_LEN &&
memcmp(id_str, recomputed, HORUS_FMT_STR_LEN) == 0)
? TRUE : FALSE;
}
OUTPUT:
RETVAL
# op_remove($self, $id) -> bool
# Fused path + unlink + meta cleanup — single call.
lib/Apophis.xs view on Meta::CPAN
apophis_build_meta_path(meta_path, sizeof(meta_path),
path, path_len);
unlink(meta_path); /* ignore error — may not exist */
RETVAL = removed ? TRUE : FALSE;
OUTPUT:
RETVAL
# ------------------------------------------------------------------ #
# Custom op introspection and testing #
# ------------------------------------------------------------------ #
lib/Apophis.xs view on Meta::CPAN
RETVAL = newSVpvf("CUSTOM_OP@apophis_remove[%p]", (void *)op->op_ppaddr);
FreeOp(op);
} else {
croak("Apophis::_make_op: unknown type '%s'", type);
}
OUTPUT:
RETVAL
App-12567834
view release on metacpan or search on metacpan
* con = $o{','} ? sub { map { M $_ } $_[0] .. $_[1] } : sub { ( M $_[0] ) . '-' . ( M $_[1] ) } ; # 関数を定義。-ã§ã¤ãªã’ã‚‹ã‹ã€,ã§ã¤ãªã’ã‚‹ã‹
* con2 = sub { $p2a < $p2 ? join "," , con ($p2a,$p2) : "$p2" } ;
if ( $o{p} ) {
my @P ;
my $out = "pdftk INPUT.pdf cat " ;
$p=$p1-1;splice @P,@P/2,0,$p+1..($p+=4)for 1..$q;$out .= join" ",@P ;
$out .= " output OUTPUT.pdf" ;
say $out ;
print "# Page " . con2($p2a, $p2) . " has not contained above." if $pr ;
say "# The above contains " . length ($out) . " characters." ;
$o{2}//= 0 ;
exit ;
App-AFNI-SiemensPhysio
view release on metacpan or search on metacpan
lib/bin/siemphysdat view on Meta::CPAN
C<-t MR> is useful for testing against data/
C<-t Phys> is useful for forcing a sampling rate
=head1 OUTPUT
=over
=item C<*dat>
App-Acmeman
view release on metacpan or search on metacpan
lib/App/Acmeman.pm view on Meta::CPAN
print $fd $response->decoded_content;
close $fd;
}
} else {
error("error downloading certificate from $letsencrypt_root_cert_url");
abend(EX_NOINPUT, $response->status_line);
}
}
sub setup {
my $self = shift;
App-Adenosine
view release on metacpan or search on metacpan
lib/App/Adenosine.pm view on Meta::CPAN
use Path::Class;
use Text::ParseWords;
use Scalar::Util 'blessed';
use Module::Runtime 'use_module';
our $verb_regex = '(?:HEAD|OPTIONS|GET|DELETE|PUT|POST|TRACE|PATCH)';
sub verbose { $_[0]->{verbose} }
sub plugins { @{$_[0]->{plugins}} }
sub enable_xdg {
return $_[0]->{enable_xdg} if exists $_[0]->{enable_xdg};
lib/App/Adenosine.pm view on Meta::CPAN
v => sub { $self->{verbose} = 1 },
);
my @extra = (@ARGV, $self->_get_extra_options);
my $wantdata;
$wantdata = 1 if $action =~ m/^(?:PUT|POST|TRACE|PATCH)$/;
if ($wantdata && $interactive_edit) {
require File::Temp;
my ($fh, $fn) = File::Temp::tempfile();
system($ENV{EDITOR} || 'vi', $fn);
lib/App/Adenosine.pm view on Meta::CPAN
print <<'SHELL';
function HEAD() { adenosine HEAD "$@"; };
function OPTIONS() { adenosine OPTIONS "$@"; };
function GET() { adenosine GET "$@"; };
function POST() { adenosine POST "$@"; };
function PUT() { adenosine PUT "$@"; };
function DELETE() { adenosine DELETE "$@"; };
function TRACE() { adenosine TRACE "$@"; };
function PATCH() { adenosine TRACE "$@"; };
SHELL
} else {
App-Alice
view release on metacpan or search on metacpan
share/static/alice.js view on Meta::CPAN
if (!methods) {
Object.extend(Form, Form.Methods);
Object.extend(Form.Element, Form.Element.Methods);
Object.extend(Element.Methods.ByTag, {
"FORM": Object.clone(Form.Methods),
"INPUT": Object.clone(Form.Element.Methods),
"SELECT": Object.clone(Form.Element.Methods),
"TEXTAREA": Object.clone(Form.Element.Methods)
});
}
share/static/alice.js view on Meta::CPAN
element.setStyle(originalStyles);
this._prepared = false;
},
_compute: function(property) {
var COMPUTATIONS = Element.Layout.COMPUTATIONS;
if (!(property in COMPUTATIONS)) {
throw "Property not found.";
}
return this._set(property, COMPUTATIONS[property].call(this, this.element));
},
toCSS: function() {
var args = $A(arguments);
var keys = (args.length === 0) ? Element.Layout.PROPERTIES :
share/static/alice.js view on Meta::CPAN
Object.extend(Element.Layout, {
PROPERTIES: $w('height width top left right bottom border-left border-right border-top border-bottom padding-left padding-right padding-top padding-bottom margin-top margin-bottom margin-left margin-right padding-box-width padding-box-height bord...
COMPOSITE_PROPERTIES: $w('padding-box-width padding-box-height margin-box-width margin-box-height border-box-width border-box-height'),
COMPUTATIONS: {
'height': function(element) {
if (!this._preComputing) this._begin();
var bHeight = this.get('border-box-height');
if (bHeight <= 0) return 0;
share/static/alice.js view on Meta::CPAN
}
}
});
if ('getBoundingClientRect' in document.documentElement) {
Object.extend(Element.Layout.COMPUTATIONS, {
'right': function(element) {
var parent = hasLayout(element.getOffsetParent());
var rect = element.getBoundingClientRect(),
pRect = parent.getBoundingClientRect();
share/static/alice.js view on Meta::CPAN
if(!Object.isUndefined(Draggable._dragging[this.element]) &&
Draggable._dragging[this.element]) return;
if(Event.isLeftClick(event)) {
var src = Event.element(event);
if((tag_name = src.tagName.toUpperCase()) && (
tag_name=='INPUT' ||
tag_name=='SELECT' ||
tag_name=='OPTION' ||
tag_name=='BUTTON' ||
tag_name=='TEXTAREA')) return;
share/static/alice.js view on Meta::CPAN
var element;
if(e.target) element=e.target;
else if(e.srcElement) element=e.srcElement;
if(element.nodeType==3) element=element.parentNode;
if(element.tagName == 'INPUT' || element.tagName == 'TEXTAREA') return;
}
if (e.keyCode) code = e.keyCode;
else if (e.which) code = e.which;
var character = String.fromCharCode(code).toLowerCase();
App-Aphra
view release on metacpan or search on metacpan
lib/App/Aphra.pm view on Meta::CPAN
ENCODING => 'utf8',
LOAD_TEMPLATES => [
Template::Provider::Pandoc->new(
INCLUDE_PATH => $self->include_path,
EXTENSIONS => $exts,
OUTPUT_FORMAT => $self->config->{output},
STRIP_FRONT_MATTER => 1,
),
],
VARIABLES => {
site => $self->site_vars,
aphra => $self,
},
INCLUDE_PATH => $self->include_path,
OUTPUT_PATH => $self->config->{target},
WRAPPER => $self->config->{wrapper},
);
}
has uri => (
App-Asciio
view release on metacpan or search on metacpan
setup/import_export/perl.pl view on Meta::CPAN
my ($header, $footer) = ('', '') ;
eval "use Pod::Select ; use Pod::Text;" ;
die $@ if $@ ;
open INPUT, '<', $file_name or die "get_base64_data: Can't open '$file_name'!\n" ;
open my $out, '>', \my $all_pod or die "Can't redirect to scalar output: $!\n";
my $parser = new Pod::Select();
$parser->parse_from_filehandle(\*INPUT, $out);
$all_pod .= '=cut' ; #add the =cut taken away by above parsing
my @asciio_pods ;
App-BPOMUtils
view release on metacpan or search on metacpan
lib/App/BPOMUtils.pm view on Meta::CPAN
} elsif ($output_format =~ /linear/) {
push @rows, $code_fmttext->( "/Persen AKG berdasarkan kebutuhan energi 2150 kkal. Kebutuhan energi Anda mungkin lebih tinggi atau lebih rendah./");
}
OUTPUT:
if ($output_format eq 'raw_table') {
return [200, "OK", \@rows, {'table.fields'=>[qw/name_eng name_ind val_per_100g val_per_srv val_per_srv_R val_per_pkg val_per_pkg_R pct_dv pct_dv_R/]}];
}
my $text;
( run in 2.077 seconds using v1.01-cache-2.11-cpan-13bb782fe5a )