view release on metacpan or search on metacpan
xs/Apache/Array/Array.xs view on Meta::CPAN
Apache r
int nelts
int elt_size
CODE:
RETVAL = ap_make_array(r->pool, nelts, elt_size);
OUTPUT:
RETVAL
MODULE = Apache::Array PACKAGE = Apache::Array PREFIX = ap_
xs/Apache/Array/Array.xs view on Meta::CPAN
RETVAL = (int) obj->elt_size;
if (items > 1) {
obj->elt_size = (int) val;
}
OUTPUT:
RETVAL
MODULE = Apache::Array PACKAGE = Apache::Array
int
xs/Apache/Array/Array.xs view on Meta::CPAN
RETVAL = (int) obj->nelts;
if (items > 1) {
obj->nelts = (int) val;
}
OUTPUT:
RETVAL
MODULE = Apache::Array PACKAGE = Apache::Array
int
xs/Apache/Array/Array.xs view on Meta::CPAN
RETVAL = (int) obj->nalloc;
if (items > 1) {
obj->nalloc = (int) val;
}
OUTPUT:
RETVAL
MODULE = Apache::Array PACKAGE = Apache::Array
char *
xs/Apache/Array/Array.xs view on Meta::CPAN
RETVAL = (char *) obj->elts;
if (items > 1) {
obj->elts = (char *)ap_pstrdup(obj -> pool, val);
}
OUTPUT:
RETVAL
MODULE = Apache::Array PACKAGE = Apache::Array
xs/Apache/Array/Array.xs view on Meta::CPAN
}
else {
croak ("initializer for Apache::Array::new is not a hash/array/object reference") ;
}
}
OUTPUT:
RETVAL
PROTOTYPES: disabled
BOOT:
view release on metacpan or search on metacpan
RETVAL = TRUE;
}
else
RETVAL = FALSE;
OUTPUT:
RETVAL
MODULE = Apache::DB PACKAGE = DB
void
view release on metacpan or search on metacpan
DefaultCharset.xs view on Meta::CPAN
char *
_get(r)
Apache r;
CODE:
RETVAL = _get(r);
OUTPUT:
RETVAL
void
_set(r, charset)
Apache r;
view release on metacpan or search on metacpan
Dynagzip.pm view on Meta::CPAN
delete($ENV{MACHTYPE});
delete($ENV{TERM});
delete($ENV{HOSTTYPE});
delete($ENV{OLDPWD});
delete($ENV{HOME});
delete($ENV{INPUTRC});
delete($ENV{SUDO_GID});
delete($ENV{SHELL});
delete($ENV{SUDO_UID});
delete($ENV{USER});
delete($ENV{SUDO_USER});
view release on metacpan or search on metacpan
lib/Apache/Emulator/Apache/Constants.pm view on Meta::CPAN
M_DELETE
M_GET
M_INVALID
M_OPTIONS
M_POST
M_PUT
M_TRACE
M_PATCH
M_PROPFIND
M_PROPPATCH
M_MKCOL
view release on metacpan or search on metacpan
FileManager.pm view on Meta::CPAN
#after rsync transacation - view
sub view_post_rsync {
my $o = shift;
r->print("<CENTER><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></CENTER>");
return undef;
}
sub view_filemanager {
FileManager.pm view on Meta::CPAN
<TABLE BORDER=1 CELLPADDING=10 CELLSPACING=0 BGCOLOR=#606060>
<TR BGCOLOR=WHITE><TD ALIGN=CENTER>
could not open file: <I>$base</I> in text writing mode
</TD></TR>
<TR BGCOLOR=#efefef><TD ALIGN=RIGHT>
<FORM><INPUT TYPE=BUTTON VALUE=close onclick=\"window.close(); return false;\"></FORM>
</TD></TR>
</TABLE>
<BR>
</CENTER>
</BODY>
FileManager.pm view on Meta::CPAN
<!-- Styles -->
".$o->html_style_sheet()."
<FORM NAME=FileManagerEditFile 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>
<TD><FONT COLOR=#3a3a3a><B>$base</B></FONT></TD>
</TR></TABLE>
FileManager.pm view on Meta::CPAN
<!-- Toolbar -->
<TR><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;\"></TD>
</TR></TABLE>
</TD></TR>
<!-- file edit box -->
FileManager.pm view on Meta::CPAN
<!-- Toolbar -->
<TR><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;\"></TD>
</TR></TABLE>
</TD></TR>
</TABLE>
FileManager.pm view on Meta::CPAN
\"First click the check boxes next to the file names that you would like to copy or paste. Next click the <I>copy</I> or <I>paste</I> button. Then go to the directory you would like them pasted in. Finally, click <I>paste</I>.<BR><BR>\"+
\"<LI><A NAME=move><B>Why does the file manager seem broken in certain directories or when copying or pasting certain files?</B></A><BR>\"+
\"This occurs when the file manager does not have permission to 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();
}
function getexpirydate(nodays){
FileManager.pm view on Meta::CPAN
}
function print_upload () {
var w = window.open('','FileManagerUpload','scrollbars=yes,resizable=yes,width=500,height=440');
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_cur...
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();
}
// make input check box form elements into an array ALL the time
FileManager.pm view on Meta::CPAN
sub html_hidden_fields {
my $o = shift;
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')."'>
";
}
sub html_location_toolbar {
my $o = shift;
FileManager.pm view on Meta::CPAN
$link = "<A HREF=\"/$href"."$file?nossi=1\" TARGET=_blank><FONT COLOR=BLACK>".&escape_html($file.$type)."</FONT></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>";
view release on metacpan or search on metacpan
TO DO
We should handle PUT and OPTIONS requests. We should handle Expect
headers and 100 (Continue) responses.
We should handle TRACE requests and the Max-Forwards field. However,
TRACE requests never even make it to the handler.
view release on metacpan or search on metacpan
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
return $self;
}
sub create {
# curl -i -X PUT "http://<HOST>:<PORT>/webhdfs/v1/<PATH>?op=CREATE
# [&overwrite=<true|false>][&blocksize=<LONG>][&replication=<SHORT>]
# [&permission=<OCTAL>][&buffersize=<INT>]"
my ( $self, $content, $file_src, $file_dest, $perms, $overwrite, $blocksize, $replication, $buffersize ) = undef;
$self = shift;
if ($_[0]->{'permission'}) { $perms = $_[0]->{'permission'}; } else { $perms = '000'; }
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
}
# TODO need to add 'append' method - for people wanting to corrupt hdfs. :)
sub mkdirs {
# curl -i -X PUT "http://<HOST>:<PORT>/<PATH>?op=MKDIRS[&permission=<OCTAL>]"
my ( $self, $perms, $path, $url ) = undef;
$self = shift;
if ($_[0]->{'path'}) { $path = $_[0]->{'path'}; } else { croak ("I need a HDFS location to create directory"); }
if ($_[0]->{'permissons'}) { $perms = $_[0]->{'permisssions'}; } else { $perms = '000'; }
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
$self->put( $url );
return $self;
}
sub setpermission {
# curl -i -X PUT "http://<HOST>:<PORT>/webhdfs/v1/<PATH>?op=SETPERMISSION[&permission=<OCTAL>]"
my ( $self, $path, $url, $perms ) = undef;
$self = shift;
if ($_[0]->{'path'}) { $path = $_[0]->{'path'}; } else { croak ("I need a HDFS path to set permmissions"); }
if ($_[0]->{'permissison'}) { $perms = $_[0]->{'permisssion'}; }
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
$self->put( $url );
return $self;
}
sub setowner {
# curl -i -X PUT "http://<HOST>:<PORT>/webhdfs/v1/<PATH>?op=SETOWNER[&owner=<USER>][&group=<GROUP>]"
my ( $self, $path, $user, $group, $url ) = undef;
$self = shift;
if ($_[0]->{'path'} ) { $path = $_[0]->{'path'}; } else { croak ("I need a HDFS path before changing ownership"); }
if ($_[0]->{'user'} ) { $user = $_[0]->{'user'}; }
if ($_[0]->{'group'}) { $group = $_[0]->{'group'}; }
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
return $self;
}
sub setreplication {
#curl -i -X PUT "http://<HOST>:<PORT>/webhdfs/v1/<PATH>?op=SETREPLICATION[&replication=<SHORT>]"
my ( $self, $path, $rep,$url ) = undef;
$self = shift;
if ($_[0]->{'path'} ) { $path = $_[0]->{'path'}; } else { croak ("I need a HDFS path before changing ownership"); }
if ($_[0]->{'replication'} ) { $rep = $_[0]->{'replication'}; }
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
return $self;
}
sub settimes {
# curl -i -X PUT "http://<HOST>:<PORT>/webhdfs/v1/<PATH>?op=SETTIMES[&modificationtime=<TIME>][&accesstime=<TIME>]"
my ( $url, $self, $path, $modtime, $accesstime ) = undef;
$self = shift;
if ($_[0]->{'path'} ) { $path = $_[0]->{'path'}; } else { croak ("I need a HDFS path before changing ownership"); }
if ($_[0]->{'modificationtime'} ) { $modtime = $_[0]->{'modificationtime'}; }
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
$self->get( $url );
return $self;
}
sub rename {
# curl -i -X PUT "<HOST>:<PORT>/webhdfs/v1/<PATH>?op=RENAME&destination=<PATH>"
#my $url = 'http://' . $self->{'namenode'} . ':' . $self->{'namenodeport'} . '/webhdfs/v1' . $src . '?op=RENAME&destination=' . $dst;
my ( $self, $src, $dst ) = undef;
$self = shift;
if ($_[0]->{'srcfile'}) { $src = $_[0]->{'srcfile'}; } else { croak ("Need HDFS source before rename can happen") ;}
view release on metacpan or search on metacpan
lib/Apache/Hendrix.pm view on Meta::CPAN
sub post { ## no critic (RequireArgUnpacking)
return route( [ 'POST' ], @_ );
}
sub put { ## no critic (RequireArgUnpacking)
return route( [ 'PUT' ], @_ );
}
sub any {
my (@route) = @_;
# If we haven't specified which type, it's truly "any" route.
# Which for us is currently GET, POST, and HEAD.
if ( scalar(@route) == 2 ) {
unshift @route, [ 'GET', 'POST', 'HEAD', 'PUT' ];
}
return route(@route);
}
## Template Handling
view release on metacpan or search on metacpan
Apache r
CODE:
RETVAL = class;
OUTPUT:
RETVAL
CLEANUP:
icon_add_magic(ST(0), r);
view release on metacpan or search on metacpan
PUSHmortal|5.009002||p
PUSHn|||
PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
PerlIO_clearerr||5.007003|
PerlIO_close||5.007003|
PerlIO_eof||5.007003|
PerlIO_error||5.007003|
PerlIO_fileno||5.007003|
eval_sv(sv, G_SCALAR);
SvREFCNT_dec(sv);
SPAGAIN;
sv = POPs;
PUTBACK;
if (croak_on_error && SvTRUE(GvSV(errgv)))
croak(SvPVx(GvSV(errgv), na));
return sv;
view release on metacpan or search on metacpan
ex/example.txt view on Meta::CPAN
192.168.0.1 - - [07/Feb/2011:10:59:59 +0900] "GET /x/i.cgi/net/0000/ HTTP/1.1" 200 9891 "-" "DoCoMo/2.0 P03B(c500;TB;W24H16)" 53593
192.168.0.1 - - [07/Feb/2011:10:59:59 +0900] "GET /x/i.cgi/net/0000/ HTTP/1.1" 200 9891 "-" "DoCoMo/2.0 P03B(c500;TB;W24H16)" 533593
192.168.0.1 - - [07/Feb/2011:10:59:59 +0900] "GET /x/i.cgi/net/0000/ HTTP/1.1" 200 9891 "-" "DoCoMo/2.0 P03B(c500;TB;W24H16)" 533593
192.168.0.1 - - [07/Feb/2011:10:59:59 +0900] "GET /x/i.cgi/net/0001/ HTTP/1.1" 200 9891 "-" "DoCoMo/2.0 P03B(c500;TB;W24H16)" 53393
192.168.0.1 - - [07/Feb/2011:10:59:59 +0900] "POST /x/i.cgi/net/0000/ HTTP/1.1" 200 9891 "-" "DoCoMo/2.0 P03B(c500;TB;W24H16)" 533593
192.168.0.1 - - [07/Feb/2011:10:59:59 +0900] "PUT /x/i.cgi/net/0000/ HTTP/1.1" 200 9891 "-" "DoCoMo/2.0 P03B(c500;TB;W24H16)" 33593
192.168.0.1 - - [07/Feb/2011:10:59:59 +0900] "GET /x/i.cgi/net/0000/ HTTP/1.1" 200 9891 "-" "DoCoMo/2.0 P03B(c500;TB;W24H16)" 533593
192.168.0.1 - - [07/Feb/2011:10:59:59 +0900] "GET /x/i.cgi/net/0000/ HTTP/1.1" 200 9891 "-" "DoCoMo/2.0 P03B(c500;TB;W24H16)" 533593
view release on metacpan or search on metacpan
fname);
exit(1);
}
}
OUTPUT:
RETVAL
int
print(self, ...)
Apache::LogFile self
RETVAL += write(self->log_fd, str, len);
}
if(*(SvEND(ST(i-1)) - 1) != '\n')
RETVAL += write(self->log_fd, "\n", 1);
OUTPUT:
RETVAL
void
mark_for_inc_delete(file)
SV *file
view release on metacpan or search on metacpan
bin/logmonster.pl view on Meta::CPAN
$config->{'clean'} = $clean if defined $clean; # allow CLI to override file
$config->{'time_offset'} = $bump if defined $bump;
# if this is not enabled, our report formatting will be jumbled
$OUTPUT_AUTOFLUSH++;
if ( $verbose && ! $report_mode ) {
print $verbose == 1 ? "verbose mode (1).\n"
: $verbose == 2 ? "very verbose mode (2).\n"
: $verbose == 3 ? "screaming at you (3).\n"
view release on metacpan or search on metacpan
TR.highlight Style for even-numbered song listing lines
.directory Style for the title of the current directory
.subdirectory Style for the title of subdirectories
P Ordinary paragraphs
A Links
INPUT Fill-out form fields
=head2 Subclassing this Module
For more extensive customization, you can subclass this module. The
Apache::MP3::Sorted module illustrates how to do this.
view release on metacpan or search on metacpan
XSRETURN_UNDEF;
}
RETVAL = ret;
OUTPUT:
RETVAL
SV *
STORE( self, what )
Mmap *self
}
/* return copy of what we stored */
RETVAL = newSVpv( self->addr, self->cur );
OUTPUT:
RETVAL
SV *
FETCH( self )
Mmap *self
}
/* Return a PV with the contents of the mapped region */
RETVAL = newSVpv( self->addr, self->cur );
OUTPUT:
RETVAL
void
DESTROY( self )
Mmap *self
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
Apache::Module modp
CODE:
$trans(modp->$handler);
OUTPUT:
RETVAL
EOF
}
}
view release on metacpan or search on metacpan
lib/Apache/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";
}
}
view release on metacpan or search on metacpan
ParseLog.pm view on Meta::CPAN
C<method();>
%method = $logobject->method();
Returns a hash containing HTTP method (GET, POST, PUT, etc.)
as keys, and the hit count for each key as values.
=cut
sub method {
view release on metacpan or search on metacpan
c->fp = NULL;
c->req = r;
RETVAL = ap_proxy_http_handler(r, c, uri, NULL, 0);
safefree(c);
OUTPUT:
RETVAL
char*
proxy_hash(self, r, uri)
SV *self
CODE:
ap_proxy_hash(uri, filename, pconf->cache.dirlevels, pconf->cache.dirlength);
RETVAL = filename;
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
my ($name, $vars) = @_;
my $file = Template::Provider->new(ABSOLUTE => '1');
my $hash = Queue::Template::Default->new();
$template = Template->new( {
OUTPUT => $r,
LOAD_TEMPLATES => [ $file, $hash ],
PREFIX_MAP => {
file => '0',
hash => '1',
default => '1',
view release on metacpan or search on metacpan
if a form field appears in both the query string B<and> the request body. In
other words, don't try to do this:
<FORM METHOD=post ENCTYPE="multipart/form-data"
ACTION=".../my_script?foo=1">
<INPUT NAME="foo" ...>
...
You should also avoid mixing file uploads and regular input within a single
field name. In other words, don't try this either:
<INPUT TYPE=text NAME="foo">
<INPUT TYPE=file NAME="foo">
=item *
Since all query parameter keys are stored in encoded form within an
I<Apache::Table> (which is case-insensitive), it is possible for two distinct
view release on metacpan or search on metacpan
RequestNotes.pm view on Meta::CPAN
#---------------------------------------------------------------------
# put the form and cookie data in a pnote for access by other handlers
#---------------------------------------------------------------------
$r->pnotes(INPUT => $input);
$r->pnotes(UPLOADS => \@uploads) if @uploads;
$r->pnotes(COOKIES => \%cookies) if %cookies;
#---------------------------------------------------------------------
# wrap up...
RequestNotes.pm view on Meta::CPAN
PerlInitHandler Apache::RequestNotes
some Perl*Handler or Registry script:
my $input = $r->pnotes('INPUT'); # Apache::Table reference
my $uploads = $r->pnotes('UPLOADS'); # Apache::Upload array ref
my $cookies = $r->pnotes('COOKIES'); # hash reference
# GET and POST data
my $foo = $input->get('foo');
view release on metacpan or search on metacpan
lib/Apache/Roaming.pm view on Meta::CPAN
=over 8
=item *
GET, HEAD, PUT, DELETE and MOVE are handled by the module. In particular
the Non-standard MOVE method is implemented, although Apache doesn't know
it by default. Thus you need no set the li.prefs.http.useSimplePut
attribute to true.
=item *
lib/Apache/Roaming.pm view on Meta::CPAN
(Class Method) The I<handler> method is called by the Apache server
for any request. It receives an Apache request B<$r>. The methods
main task is creating an instance of Apache::Roaming by calling the
I<new> method and then passing control to the I<Authenticate>,
I<CheckDir> and I<GET>, I<PUT>, I<DELETE> or I<MOVE>, respectively,
methods.
=cut
sub handler ($$) {
lib/Apache/Roaming.pm view on Meta::CPAN
}
eval {
$self->Authenticate();
$self->CheckDir();
if ($self->{'method'} !~ /(?:GET|PUT|DELETE|MOVE)/) {
$self->{'status'} = Apache::Constants::HTTP_METHOD_NOT_ALLOWED();
die "Unknown method: $self->{'method'}";
}
my $method = $self->{'method'};
lib/Apache/Roaming.pm view on Meta::CPAN
$status = Apache::Roaming->handler_type($r)
(Class Method) This method is required only, because the Apache server
would refuse other methods than GET otherwise. It checks whether the
requested method is GET, PUT, HEAD, DELETE or MOVE, in which case it
returns the value OK. Otherwise the value DECLINED is returned.
=cut
sub handler_type ($$) {
my($class, $r) = @_;
if ($r->method() =~ /(?:GET|PUT|DELETE|MOVE)/) {
$r->handler('perl-script');
return Apache::Constants::OK();
}
return Apache::Constants::DECLINED();
}
lib/Apache/Roaming.pm view on Meta::CPAN
using a PerlSetVar instruction, see L<INSTALLATION> above for an
example.
=item file
This is the path of the file being created (PUT), read (GET), deleted
(DELETE) or moved (MOVE). It's an absolute path.
=item method
The requested method, one of HEAD, GET, PUT, MOVE or DELETE.
=item request
This is the Apache request object.
lib/Apache/Roaming.pm view on Meta::CPAN
}
=pod
=head2 GET, PUT, MOVE, DELETE
$ar_req->GET();
$ar_req->PUT();
$ar_req->MOVE();
$ar_req->DELETE();
(Instance Methods) These methods are called finally for performing the
real action. With the exception of GET, they call I<Success> finally
lib/Apache/Roaming.pm view on Meta::CPAN
}
return Apache::OK();
}
sub PUT {
my $self = shift;
my $file = $self->{'file'};
my $r = $self->{'request'};
$self->MkDir($file);
lib/Apache/Roaming.pm view on Meta::CPAN
=head2 MkDir
$ar_req->MkDir($file);
(Instance Method) Helper function of I<PUT>, creates the directory
where $file is located, if it doesn't yet exist. Works recursively,
if more than one directory must be created.
=cut
view release on metacpan or search on metacpan
lib/Apache/SWIT/Maker/FileWriter.pm view on Meta::CPAN
my $f = $self->root_dir . "/$p";
die "Cowardly refusing to overwrite $f"
if (-f $f && !$opts->{overwrite});
$vars = $self->_normalize_options($opts->{vars}, $vars)
if $opts->{vars};
my $t = Template->new({ OUTPUT_PATH => $self->root_dir,
%{ $opts->{tmpl_options} || {} } })
or die "No template";
$t->process(\$opts->{contents}, $vars, $p)
or die "No result for $n: " . $t->error;
view release on metacpan or search on metacpan
Scoreboard.xs view on Meta::CPAN
Move(sb->servers[i], dptr, msize, char);
dptr += msize;
}
Move(&sb->global, dptr, sizeof(global_score), char);
OUTPUT:
RETVAL
Apache::Scoreboard
thaw(CLASS, pool, packet)
SV *CLASS
Scoreboard.xs view on Meta::CPAN
/* debug_dump_sb(image); */
RETVAL = image;
OUTPUT:
RETVAL
SV *
image(CLASS, pool_sv)
Scoreboard.xs view on Meta::CPAN
/* make sure the pool sticks around as long as this object is alive */
mpxs_add_pool_magic(RETVAL, pool_sv);
CLASS = CLASS; /* avoid warnings */
OUTPUT:
RETVAL
int
server_limit(image)
Scoreboard.xs view on Meta::CPAN
}
else {
XSRETURN_UNDEF;
}
OUTPUT:
RETVAL
Apache::ScoreboardWorkerScore
worker_score(image, parent_idx, worker_idx)
Apache::Scoreboard image
Scoreboard.xs view on Meta::CPAN
(sizeof(*RETVAL)));
RETVAL->parent_idx = parent_idx;
RETVAL->worker_idx = worker_idx;
RETVAL->record = ws;
OUTPUT:
RETVAL
SV *
pids(image)
Apache::Scoreboard image
Scoreboard.xs view on Meta::CPAN
av_push(av, newSViv(sb->parent[i].pid));
}
RETVAL = newRV_noinc((SV*)av);
OUTPUT:
RETVAL
# XXX: need to move pid_t => apr_proc_t and work with pid->pid as in
# find_child_by_pid from scoreboard.c
Scoreboard.xs view on Meta::CPAN
RETVAL = i;
break;
}
}
OUTPUT:
RETVAL
SV *
thread_numbers(image, parent_idx)
Apache::Scoreboard image
Scoreboard.xs view on Meta::CPAN
av_push(av, newSViv(sb->servers[parent_idx][i].thread_num));
}
RETVAL = newRV_noinc((SV*)av);
OUTPUT:
RETVAL
apr_uint32_t
scoreboard_up_time(image)
Apache::Scoreboard image
Scoreboard.xs view on Meta::CPAN
}
else {
XSRETURN_UNDEF;
}
OUTPUT:
RETVAL
Apache::ScoreboardWorkerScore
worker_score(self)
Apache::ScoreboardParentScore self
Scoreboard.xs view on Meta::CPAN
RETVAL->parent_idx = self->idx;
RETVAL->worker_idx = 0;
RETVAL->record = my_get_scoreboard_worker(aTHX_ self->image,
self->idx, 0);
OUTPUT:
RETVAL
Apache::ScoreboardWorkerScore
next_worker_score(self, mws)
Apache::ScoreboardParentScore self
Scoreboard.xs view on Meta::CPAN
}
else {
XSRETURN_UNDEF;
}
OUTPUT:
RETVAL
Apache::ScoreboardWorkerScore
next_live_worker_score(self, mws)
Scoreboard.xs view on Meta::CPAN
if (!found) {
XSRETURN_UNDEF;
}
OUTPUT:
RETVAL
Apache::ScoreboardWorkerScore
Scoreboard.xs view on Meta::CPAN
if (!found) {
XSRETURN_UNDEF;
}
OUTPUT:
RETVAL
pid_t
parent_score_pid(self)
Apache::ScoreboardParentScore self
Scoreboard.xs view on Meta::CPAN
}
if (RETVAL < 0L || !self->record->access_count) {
RETVAL = 0L;
}
OUTPUT:
RETVAL
SV *
worker_score_status(self)
Apache::ScoreboardWorkerScore self
Scoreboard.xs view on Meta::CPAN
RETVAL = newSV(0);
sv_setnv(RETVAL, (double)self->record->status);
Perl_sv_setpvf(aTHX_ RETVAL, "%c", status_flags[self->record->status]);
SvNOK_on(RETVAL); /* dual-var */
OUTPUT:
RETVAL
# at the moment always gives 0 (blame httpd)
U32
worker_score_tid(self)
Apache::ScoreboardWorkerScore self
CODE:
RETVAL = worker_score_tid(self);
OUTPUT:
RETVAL
int
worker_score_thread_num(self)
Apache::ScoreboardWorkerScore self
view release on metacpan or search on metacpan
lib/Apache/SdnFw/lib/Core.pm view on Meta::CPAN
COMPILE_EXT => '.cache',
# remove leading and trailing whitespace and newlines
#PRE_CHOMP => 2,
#POST_CHOMP => 2,
#STAT_TTL => 1,
OUTPUT => \$s->{content},
);
#$s->{content} .= "<pre>".Data::Dumper->Dump([$s])."</pre>"; return;
#$s->{content} .= "<pre>".Data::Dumper->Dump([\@INC])."</pre>"; return;
view release on metacpan or search on metacpan
t/lib/PrintEnvOO.pm view on Meta::CPAN
<CENTER><H1>mod_perl Apache::SessionManager test module</H1></CENTER>
<TABLE>
<TR>
<TD>
<FORM METHOD="GET">
<INPUT TYPE="text" NAME="delete_session_param">
<INPUT TYPE="submit" VALUE="Reload">
</FORM>
</TD>
<TD>
<FORM METHOD="GET">
<INPUT TYPE="hidden" NAME="delete_session" VALUE="1">
<INPUT TYPE="submit" VALUE="Delete session next time">
</FORM>
</TR>
</TD>
</TABLE>
EOM
view release on metacpan or search on metacpan
lib/Apache/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} %>
% }
view release on metacpan or search on metacpan
lib/Apache/Sling/Request.pm view on Meta::CPAN
use 5.008001;
use strict;
use warnings;
use Carp;
use HTTP::Request::Common qw(DELETE GET POST PUT);
use MIME::Base64;
use Apache::Sling::Print;
require Exporter;
lib/Apache/Sling/Request.pm view on Meta::CPAN
push @{$post_variables}, $filename => ["$file"];
$request =
POST( "$target", $post_variables, 'Content_Type' => 'form-data' );
}
if ( $action eq 'put' ) {
$request = PUT "$target";
}
if ( $action eq 'delete' ) {
$request = DELETE "$target";
}
if ( !defined $request ) {