Result:
found more than 625 distributions - search limited to the first 2001 files matching your query
( run in 1.238 )
Apache-AppSamurai
view release on metacpan or search on metacpan
examples/conf/confconfer.pl view on Meta::CPAN
use vars qw($VERSION);
$VERSION = substr(q$Revision: 1.3 $, 10, -1);
my $usage =<<"EOU";
>>> confconfer.pl - Fill out a sample config template to make a real config <<<
Usage: confconfer.pl INPUTFILE > OUTPUTFILE
1) Takes single argument which must be a plain text file containing one or
more replacement variables as input.
2) Prompts for the value of each unique replacement variable.
3) Spits out the input with the replacement variables replaced.
Apache-AuthCookie
view release on metacpan or search on metacpan
t/htdocs/docs/login.pl view on Meta::CPAN
</TD></TR>
<TR><TD ALIGN=LEFT>
<P>Failure reason: '$reason'. Please enter your login and password to authenticate.</P>
</TD>
<TR><TD>
<INPUT TYPE=hidden NAME=destination VALUE="$uri">
</TD></TR>
<TR><TD>
<TABLE ALIGN=CENTER>
<TR>
<TD ALIGN=RIGHT><B>Login:</B></TD>
<TD><INPUT TYPE="text" NAME="credential_0" SIZE=10 MAXLENGTH=10></TD>
</TR>
<TR>
<TD ALIGN=RIGHT><B>Password:</B></TD>
<TD><INPUT TYPE="password" NAME="credential_1" SIZE=8 MAXLENGTH=8></TD>
</TR>
<TR>
<TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE="submit" VALUE="Continue"></TD>
</TR></TABLE>
</TD></TR></TABLE>
</FORM>
</BODY>
</HTML>
Apache-AuthCookieDBI
view release on metacpan or search on metacpan
eg/html/login-failed.html view on Meta::CPAN
<!-- $Id: login-failed.html,v 1.2 2003/10/10 20:53:25 jacob Exp $ -->
FAILED
<FORM ACTION="/LOGIN" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="destination" VALUE="<#DESTINATION HTMLESC>">
Username: <INPUT TYPE="TEXT" NAME="credential_0" VALUE="<#CREDENTIAL_0>"><BR>
Password: <INPUT TYPE="PASSWORD" NAME="credential_1"><BR>
<INPUT TYPE="SUBMIT" VALUE="Log in">
</FORM>
Apache-AuthCookieDBIRadius
view release on metacpan or search on metacpan
<FORM METHOD="POST" ACTION="/LOGIN">
<TABLE ALIGN=CENTER VALIGN=CENTER>
<TR><TD colspan=2 align=center>
<font color=red>$reason</font>
</TD></TR>
<INPUT TYPE=hidden NAME=destination VALUE="$uri">
<TR><TD colspan=2 align=center>
<!--login-->
<table>
<TR><TD align=right>
<B>Login:</B></TD>
<TD><INPUT TYPE="text" NAME="credential_0" SIZE=20 MAXLENGTH=50></TD>
</TR>
<TR>
<TD ALIGN=RIGHT><B>Password:</B></TD>
<TD><INPUT TYPE="password" NAME="credential_1" SIZE=20 MAXLENGTH=20></TD>
</TR>
</table>
<!--end login-->
</TD></TR>
<TR>
<TD COLSPAN=2 ALIGN=CENTER><INPUT TYPE="submit" VALUE="Continue"></TD>
</TR>
</TABLE>
</FORM>
<P>
<a href=>I need to request a new login</a>
Apache-AuthCookieLDAP
view release on metacpan or search on metacpan
eg/html/login-failed.html view on Meta::CPAN
<!-- $Id: login-failed.html,v 1.1 2000/07/11 17:03:05 jacob Exp $ -->
FAILED
<FORM ACTION="/LOGIN" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="destination" VALUE="<#DESTINATION HTMLESC>">
Username: <INPUT TYPE="TEXT" NAME="credential_0"><BR>
Password: <INPUT TYPE="PASSWORD" NAME="credential_1"><BR>
<INPUT TYPE="SUBMIT" VALUE="Log in">
</FORM>
Apache-AuthCookiePAM
view release on metacpan or search on metacpan
eg/html/changepwd.html view on Meta::CPAN
<!-- $Id: login.html,v 1.1 2000/07/11 17:03:05 jacob Exp $ -->
<FORM ACTION="/ChangePwd" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="destination" VALUE="<#DESTINATION HTMLESC>">
Username: <INPUT TYPE="TEXT" NAME="credential_0"><BR>
Password: <INPUT TYPE="PASSWORD" NAME="credential_1"><BR>
New Password: <INPUT TYPE="PASSWORD" NAME="credential_2"><BR>
Confirm Password: <INPUT TYPE="PASSWORD" NAME="credential_3"><BR>
<INPUT TYPE="SUBMIT" VALUE="Update&Logout">
</FORM>
Apache-AuthDigest
view release on metacpan or search on metacpan
API/typemap view on Meta::CPAN
TYPEMAP
Apache T_APACHEOBJ
OUTPUT
T_APACHEOBJ
sv_setref_pv($arg, \"${ntype}\", (void*)$var);
INPUT
T_APACHEOBJ
r = sv2request_rec($arg, \"$ntype\", cv)
Apache-AuthenNTLM
view release on metacpan or search on metacpan
smb/.svn/text-base/Smb.xs.svn-base view on Meta::CPAN
char * username
char * password
char * server
char * backup
char * domain
OUTPUT:
RETVAL
void *
smb/.svn/text-base/Smb.xs.svn-base view on Meta::CPAN
CODE:
if (!SvPOK (ST(3)) || SvCUR(ST(3)) < 8)
croak ("nonce muist be preallocated with an 8 character string") ;
RETVAL = Valid_User_Connect(server, backup, domain, nonce);
OUTPUT:
RETVAL
int
smb/.svn/text-base/Smb.xs.svn-base view on Meta::CPAN
int
SMBlib_errno()
CODE:
RETVAL = SMBlib_errno ;
OUTPUT:
RETVAL
int
SMBlib_SMB_Error()
CODE:
RETVAL = SMBlib_SMB_Error ;
OUTPUT:
RETVAL
Apache-AuthzUnix
view release on metacpan or search on metacpan
lib/Apache/AuthzUnix.pm view on Meta::CPAN
my $user = $r->user or return DECLINED();
my $fn = $r->filename;
if (!-e $r->filename) { $fn = dirname($fn) }
# Why did we just do that? Because:
# If we're PUTting a file, we want to check if we can write to the directory.
# Otherwise, we're GETting a non-existent or autogenerated file (ie autoindex)
# If it's a directory index, then we use the permissions of the directory.
# If it's non-existent, permissions are an irrelevance!
my $stat = File::stat::stat($fn);
lib/Apache/AuthzUnix.pm view on Meta::CPAN
sub _access {
my ($username, $perms, $uid, $gid, $method) = @_;
my ($u, $g, $o) = ($perms & 0700, $perms & 0070, $perms & 0007);
my $user = getpwnam($username);
my %in_group = map { $_ => 1 } @{ getgrgid($gid)->members };
my $bit = $method =~ /(PUT|DELETE)/ ? 2 : 4;
return 1 if $o & $bit
|| ($uid == $user->uid and $u & ($bit << 6))
|| (($gid == $user->gid or $in_group{$username})
and $g & ($bit << 3));
lib/Apache/AuthzUnix.pm view on Meta::CPAN
directories, but probably has other uses in the C<UserDir> space.
Assuming that Apache has authenticated a user, this module helps to
determine whether or not that user can read (or write) a file on the
filesystem. It applies standard Unix user and group tests on the file's
permissions to determine read access and, in the case of C<PUT> and
C<DELETE> methods, write access. If the file does not exist, then the
containing directory is tested, as one would expect.
This module is designed work on both mod_perl versions 1 and 2.
Apache-AxKit-Plugin-Param-Expr
view release on metacpan or search on metacpan
lib/Apache/AxKit/Plugin/Param/Expr.pm view on Meta::CPAN
use Apache::Request;
sub handler {
my $r = shift;
my @param = $r->dir_config->get('AxParamExpr');
$r->pnotes('INPUT',{}) unless $r->pnotes('INPUT');
my $apr = Apache::Request->instance($r);
while (@param > 1) {
my $val = eval($param[-1]);
AxKit::Debug(5,"param '$param[-2]': ($param[-1]) = $val");
throw Apache::AxKit::Exception::Error(-text => "AxParamExpr '$param[-2]': $@") if $@;
$val = '' if !defined $val;
$r->pnotes('INPUT')->{$param[-2]} = $val;
$apr->param($param[-2],$val);
pop @param;
pop @param;
}
my $key = '';
lib/Apache/AxKit/Plugin/Param/Expr.pm view on Meta::CPAN
while (@param > 1) {
my $val = eval($param[-1]);
AxKit::Debug(5,"param '$param[-2]': ($param[-1]) = $val");
throw Apache::AxKit::Exception::Error(-text => "AxCacheParamExpr '$param[-2]': $@") if $@;
$val = '' if !defined $val;
$r->pnotes('INPUT')->{$param[-2]} = $val;
$apr->param($param[-2],$val);
$key .= '|'.$val;
pop @param;
pop @param;
}
@param = $r->dir_config->get('AxCacheExpr');
while (@param) {
my $val = $r->pnotes('INPUT')->{$param[0]};
AxKit::Debug(5,"param '$param[0]': () = $val");
throw Apache::AxKit::Exception::Error(-text => "AxCacheExpr '$param[0]': $@") if $@;
$val = '' if !defined $val;
$key .= '|'.$val;
shift @param;
Apache-AxKit-Plugin-Session
view release on metacpan or search on metacpan
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
$self->debug(3,"======= save_params(".join(',',@_).")");
my $r = Apache->request();
parse_input(1);
$uri = new URI($uri);
$uri->query_form(%{$r->pnotes('INPUT')||{}});
return $uri->as_string;
}
# ____ End of save_params ____
# restore args of original request in $r->pnotes('INPUT')
#=======================
sub orig_restore_params ($) {
#-----------------------
my ($self) = @_;
$self->debug(3,"======= restore_params(".join(',',@_).")");
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
while ($r->prev) {
$r = $r->prev;
$r = $r->main || $r;
}
if ($r->pnotes('INPUT') && $r ne $or) {
$or->pnotes('INPUT',$r->pnotes('INPUT'));
$or->pnotes('UPLOADS',$r->pnotes('UPLOADS'));
$or->pnotes('COOKIES',$r->pnotes('COOKIES'));
$or->pnotes('COOKIES',{}) unless $or->pnotes('COOKIES');
return;
}
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
$or->pnotes('COOKIES',\%cookies);
$r->pnotes('COOKIES',$or->pnotes('COOKIES')) if ($r ne $or);
# avoid parsing the input so later modules can modify it
return if (!$full);
return if $r->pnotes('INPUT');
# from Apache::RequestNotes
my $maxsize = $r->dir_config('MaxPostSize') || 1024;
my $uploads = $r->dir_config('DisableUploads') =~ m/Off/i ? 0 : 1;
my $apr = Apache::Request->instance($r,
POST_MAX => $maxsize,
DISABLE_UPLOADS => $uploads,
);
$r->pnotes('INPUT',$apr->parms);
$r->pnotes('UPLOADS',[ $apr->upload ]);
if ($r ne $or) {
$or->pnotes('INPUT',$r->pnotes('INPUT'));
$or->pnotes('UPLOADS',$r->pnotes('UPLOADS'));
}
}
# ____ End of parse_input ____
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
$mr = $mr->prev;
$mr = $mr->main || $mr;
}
$mr = $mr->main || $mr;
$r->pnotes('INPUT')->{'url'} = $1 if ($r->uri =~ m{^/[a-z]+(/.*)$});
$r->pnotes('INPUT')->{'url'} =~ s{^/([a-z0-9]+://)}{$1};
if (!$r->header_out('Location') && (!$r->prev || !$r->prev->header_out('Location')) && !$r->pnotes('INPUT')->{'url'}) {
$self->debug(1,'called without location header or url paramater');
return SERVER_ERROR;
}
my $session = $r->notes('SESSION_URLPREFIX') || $mr->notes('SESSION_URLPREFIX') || '';
my $uri;
$uri = Apache::URI->parse($r, $r->header_out('Location') || ($r->prev?$r->prev->header_out('Location'):undef) || $r->pnotes('INPUT')->{'url'});
if (!$uri->hostname) {
$uri->hostname($r->hostname);
$uri->port($r->get_server_port);
}
$self->debug(6,"Session: $session, uri: ".$uri->unparse);
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
$self->debug(3,"======= login(".join(',',@_).")");
my $auth_name = $r->auth_name || 'AxKitSession';
my $auth_type = $r->auth_type || __PACKAGE__;
parse_input(1);
my $args = $r->pnotes('INPUT');
$destination = $$args{'destination'} if @_ < 3;
if ($destination) {
$destination = URI->new_abs($destination, $r->uri);
} else {
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
$self->debug(3,"--------- save_params(".join(',',@_).")");
my $r = Apache->request();
my $session = $r->pnotes('SESSION') || return $self->orig_save_params($uri);
parse_input(1);
my $in = $r->pnotes('INPUT');
my @out = ();
while(my($key,$val) = each %$in) {
push @out, $key, $val;
}
lib/Apache/AxKit/Plugin/Session.pm view on Meta::CPAN
my $out = new Apache::Table($r);
while (@in) {
$out->add($in[0],$in[1]);
shift @in; shift @in;
}
$r->pnotes('INPUT',$out);
delete $$session{'auth_params'};
}
sub _cleanup_session ($$) {
Apache-Backhand
view release on metacpan or search on metacpan
Backhand.xs view on Meta::CPAN
int
backhand_MAXSERVERS()
CODE:
RETVAL = MAXSERVERS;
OUTPUT:
RETVAL
int
backhand_MAXSESSIONSPERSERVER()
CODE:
RETVAL = MAXSESSIONSPERSERVER;
OUTPUT:
RETVAL
int
backhand_SERVER_TIMEOUT()
CODE:
RETVAL = SERVER_TIMEOUT;
OUTPUT:
RETVAL
SV *
backhand_load_serverstats()
PREINIT:
Backhand.xs view on Meta::CPAN
newSV_magic_c_int(&(serverstats[i].tatime)), 0);
av_push(statsa, newRV((SV *)statsh));
}
RETVAL = newRV_noinc((SV *)statsa);
OUTPUT:
RETVAL
SV *
backhand_load_personal_arriba()
CODE:
RETVAL = newRV(newSV_magic_c_int(&mod_backhand_personal_arriba));
OUTPUT:
RETVAL
Apache-CIPP
view release on metacpan or search on metacpan
done implicitely. The configuration is taken from the Apache
configuration file(s).
# print table of users who match the given parameter
<?INTERFACE INPUT="$search_name">
<HTML>
<HEAD><TITLE>tiny litte CIPP example</TITLE></HEAD>
<BODY>
<H1>Users matching '$search_name'</H1>
Apache-ConfigParser
view release on metacpan or search on metacpan
t/httpd02.answer view on Meta::CPAN
reference 1-1-2-50 Apache::ConfigParser::Directive=HASH key 'mother'
SEEN reference 1-0 Apache::ConfigParser::Directive=HASH
reference 1-1-2-50 Apache::ConfigParser::Directive=HASH key 'name'
'ifdefine'
reference 1-1-2-50 Apache::ConfigParser::Directive=HASH key 'orig_value'
'HAVE_PUT'
reference 1-1-2-50 Apache::ConfigParser::Directive=HASH key 'orig_value_array'
reference 1-1-2-51-2 ARRAY with 1 elements
reference 1-1-2-51-2 ARRAY index 0
'HAVE_PUT'
reference 1-1-2-50 Apache::ConfigParser::Directive=HASH key 'value'
'HAVE_PUT'
reference 1-1-2-50 Apache::ConfigParser::Directive=HASH key 'value_array'
reference 1-1-2-51-3 ARRAY with 1 elements
reference 1-1-2-51-3 ARRAY index 0
'HAVE_PUT'
reference 1-1-1 ARRAY index 51
reference 1-1-2-51 Apache::ConfigParser::Directive=HASH with 10 keys
reference 1-1-2-51 Apache::ConfigParser::Directive=HASH key 'attributes'
reference 1-1-2-52-0 HASH with 0 keys
reference 1-1-2-51 Apache::ConfigParser::Directive=HASH key 'daughters'
t/httpd02.answer view on Meta::CPAN
reference 1-1-2-89 Apache::ConfigParser::Directive=HASH key 'mother'
SEEN reference 1-0 Apache::ConfigParser::Directive=HASH
reference 1-1-2-89 Apache::ConfigParser::Directive=HASH key 'name'
'ifdefine'
reference 1-1-2-89 Apache::ConfigParser::Directive=HASH key 'orig_value'
'HAVE_PUT'
reference 1-1-2-89 Apache::ConfigParser::Directive=HASH key 'orig_value_array'
reference 1-1-2-90-2 ARRAY with 1 elements
reference 1-1-2-90-2 ARRAY index 0
'HAVE_PUT'
reference 1-1-2-89 Apache::ConfigParser::Directive=HASH key 'value'
'HAVE_PUT'
reference 1-1-2-89 Apache::ConfigParser::Directive=HASH key 'value_array'
reference 1-1-2-90-3 ARRAY with 1 elements
reference 1-1-2-90-3 ARRAY index 0
'HAVE_PUT'
reference 1-1-1 ARRAY index 90
reference 1-1-2-90 Apache::ConfigParser::Directive=HASH with 10 keys
reference 1-1-2-90 Apache::ConfigParser::Directive=HASH key 'attributes'
reference 1-1-2-91-0 HASH with 0 keys
reference 1-1-2-90 Apache::ConfigParser::Directive=HASH key 'daughters'
t/httpd02.answer view on Meta::CPAN
reference 1-1-2-130-2-5-2-3 Apache::ConfigParser::Directive=HASH key 'mother'
SEEN reference 1-1-2-130-2-4 Apache::ConfigParser::Directive=HASH
reference 1-1-2-130-2-5-2-3 Apache::ConfigParser::Directive=HASH key 'name'
'limit'
reference 1-1-2-130-2-5-2-3 Apache::ConfigParser::Directive=HASH key 'orig_value'
'GET PUT MOVE DELETE'
reference 1-1-2-130-2-5-2-3 Apache::ConfigParser::Directive=HASH key 'orig_value_array'
reference 1-1-2-130-2-5-2-4-2 ARRAY with 4 elements
reference 1-1-2-130-2-5-2-4-2 ARRAY index 0
'GET'
reference 1-1-2-130-2-5-2-4-2 ARRAY index 1
'PUT'
reference 1-1-2-130-2-5-2-4-2 ARRAY index 2
'MOVE'
reference 1-1-2-130-2-5-2-4-2 ARRAY index 3
'DELETE'
reference 1-1-2-130-2-5-2-3 Apache::ConfigParser::Directive=HASH key 'value'
'GET PUT MOVE DELETE'
reference 1-1-2-130-2-5-2-3 Apache::ConfigParser::Directive=HASH key 'value_array'
reference 1-1-2-130-2-5-2-4-3 ARRAY with 4 elements
reference 1-1-2-130-2-5-2-4-3 ARRAY index 0
'GET'
reference 1-1-2-130-2-5-2-4-3 ARRAY index 1
'PUT'
reference 1-1-2-130-2-5-2-4-3 ARRAY index 2
'MOVE'
reference 1-1-2-130-2-5-2-4-3 ARRAY index 3
'DELETE'
reference 1-1-2-130-2-5-1 ARRAY index 4
Apache-DAV
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:
Apache-DB
view release on metacpan or search on metacpan
RETVAL = TRUE;
}
else
RETVAL = FALSE;
OUTPUT:
RETVAL
MODULE = Apache::DB PACKAGE = DB
void
Apache-DefaultCharset
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;
Apache-Dynagzip
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});
Apache-Emulator
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
Apache-FileManager
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>";
Apache-Gateway
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.
Apache-Hadoop-WebHDFS
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") ;}
Apache-Hendrix
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
Apache-Icon
view release on metacpan or search on metacpan
Apache r
CODE:
RETVAL = class;
OUTPUT:
RETVAL
CLEANUP:
icon_add_magic(ST(0), r);
Apache-Imager-Resize
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;
Apache-Log-Parser
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
Apache-LogFile
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
Apache-Logmonster
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"
Apache-MP3
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.
Apache-Mmap
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
( run in 1.238 second using v1.01-cache-2.11-cpan-39bf76dae61 )