view release on metacpan or  search on metacpan

SubProcess.xs  view on Meta::CPAN

    info->r->request_config = (void*)pinfo;
    ENTER;SAVETMPS;
    PUSHMARK(sp); 
    XPUSHs(perl_bless_request_rec(info->r));
    PUTBACK; 
    count = perl_call_sv(info->cv, G_EVAL | G_SCALAR); 
    if(perl_eval_ok(info->r->server) != OK) {
	fprintf(stderr, "FAIL: %s\n", SvPV(ERRSV,na));
    }
    /*
    SPAGAIN; 

    PUTBACK; 
    */
    FREETMPS;LEAVE; 

}

SubProcess.xs  view on Meta::CPAN

    ap_log_error(APLOG_MARK, APLOG_ERR, NULL,
    "Apache::SubProcess exec of %s failed", pgm);
    exit(0);  

    OUTPUT:
    RETVAL

void
pfclose(r, sv)
    Apache r

 view release on metacpan or  search on metacpan

lib/Apache/TestClient.pm  view on Meta::CPAN

    $res->{headers_as_string} =~ s/\015//g; #for as_string

    bless $res, 'Apache::TestClientResponse';
}

for my $method (qw(GET HEAD POST PUT)) {
    no strict 'refs';
    *$method = sub {
        my $url = shift;
        request($method, $url, @_);
    };

 view release on metacpan or  search on metacpan

lib/Apache/Tika/Server.pm  view on Meta::CPAN

    my( $self, $type )= @_;
    $type||= 'text';

    my $url= {
        text => 'rmeta',
        test => 'tika', # but GET instead of PUT
        meta => 'rmeta',
        #all => 'all',
        language => 'language/string',
        all => 'rmeta',
        # unpack

 view release on metacpan or  search on metacpan

lib/Apache/UploadMeter.pm  view on Meta::CPAN

      MeterType     XML
  </UploadMeter>

  (in /form.html)
  <!--#uploadform-->
  <INPUT TYPE="FILE" NAME="theFile"/>
  <INPUT TYPE="SUBMIT"/>
  </FORM>

Web 2.0 JS-based graphical meter
  (in httpd.conf)
  

lib/Apache/UploadMeter.pm  view on Meta::CPAN

      MeterType     JSON
  </UploadMeter>

  (in /form.html)
  <FORM ACTION="/perl/upload" ENCTYPE="multipart/form-data" METHOD="POST" class="uploadform">
  <INPUT TYPE="FILE" NAME="theFile"/>
  <INPUT TYPE="SUBMIT"/>
  </FORM>
  
  <DIV class="uploadmeter"></DIV>

 view release on metacpan or  search on metacpan

lib/Apache/UploadSvr.pm  view on Meta::CPAN

  $self->{STAGEURI} = $stageuri;
  $self->{STAGEDIR} = $stagedir;

  $userref->{permitted} ||= [];

  if ($r->method eq "PUT") {
    my $uri = $r->uri;
    #  $uri =~ s|/STAGE||;
    # I have never tried if PUT works this way or not. Code is just a
    # placeholder
    $r->read($content, $r->header_in("Content-length"));
    $filename = $stagedir . $uri;
  } elsif ($r->method eq "POST" or $r->method eq "GET") {
    if ( $cgi->param('SUBMITup')) {

 view release on metacpan or  search on metacpan

lib/Apache/Voodoo/Test.pm  view on Meta::CPAN

sub make_request {
	my $self   = shift;

	$self->set_request();

	if ($_[0] =~ /^(GET|POST|PUT|DELETE)$/) {
		$self->method(shift);
		$self->uri(shift);
	}
	else {
		$self->method('GET');

 view release on metacpan or  search on metacpan

lib/Apache/WebDAV.pm  view on Meta::CPAN

# {
#     my ($self, $r, $handler) = @_;
# 
#     $r->status(200);
#     $r->header_out("Allow",
#                    "OPTIONS, HEAD, GET, PUT, " .
#                    "DELETE, MKCOL, PROPPATCH, PROPFIND, COPY, MOVE");
#     $r->header_out("DAV", "1,<http://apache.org/dav/propset/fs/1>");
#     $r->send_http_header();
# 
#     return OK;

lib/Apache/WebDAV.pm  view on Meta::CPAN

 Goliath   (osx)
 Cadaver   (linux)
 Konqueror (linux)
 HTTP::DAV (perl)

The MacOSX Finder is also supported, assuming your Filesys::Virtual subclass is fully and correctly implemented.  Specifically, you can't expect the Finder to "PUT" a file in one nice step, rather, it takes multiple requests and it's difficult to pro...

In addition, depending on your Filesys::Virtual subclass, of course, this module passes most of the WebDAV Litmus tests (http://www.webdav.org/neon/litmus/) without errors or warnings.  Specifically:

 OPTIONS for DAV: header 
 PUT, GET with byte comparison 
 MKCOL 
 DELETE (collections, non-collections) 
 COPY, MOVE using combinations of: 
  overwrite t/f 
  destination exists/doesn't exist 

 view release on metacpan or  search on metacpan

Wyrd/Site/GDButton.pm  view on Meta::CPAN

		binmode FILE;
		print FILE ($self->{'outfile'}=~/gif$/) ? $final->gif : $final->png;
		close FILE;
	}

	#attempt to preserve any normal IMG or INPUT attributes
	my @attrs =  qw(name id action method alt src align onmouseover onmouseout onclick border height width ismap longdesc usemap class style);
	my %attrs =  map {$_ => $self->{$_}} @attrs;
	$attrs{'src'} = Apache::Util::escape_uri($attrs{'src'});
	if ($self->{'type'} eq 'input') {
		$self->_data(q(<input type="image") . $self->_attribute_template(@attrs) . q(>));

 view release on metacpan or  search on metacpan

lib/Apache/iNcom.pm  view on Meta::CPAN

=head2 PROFILES DIRECTIVES

=over

=item INCOM_INPUT_PROFILE

Sets the input profile that will be used to initialize the $Validator
object. Defaults to F<conf/input_profiles.pl> relative to server's
root.

 view release on metacpan or  search on metacpan

lib/Apache2/API/Query.pm  view on Meta::CPAN

revert() resets the has_changed flag to false.

=back

=head2 OUTPUT METHODS

=over 4

=item "$qq", stringify(), stringify($separator)

 view release on metacpan or  search on metacpan

examples/CGI/htdocs/login.cgi  view on Meta::CPAN

 </HEAD>
 <BODY>
  <A HREF="login?logout=1&go=/test/apache2-aus-cgi/login.cgi">Log Out</A>
  <HR/>
  <FORM METHOD="POST" ACTION="login">
   <INPUT TYPE="HIDDEN" NAME="go" VALUE="/test/apache2-aus-cgi/env.cgi">
   <INPUT TYPE="HIDDEN" NAME="go_error" VALUE="/test/apache2-aus-cgi/login.cgi">
   User: <INPUT TYPE="TEXT" NAME="user" /><BR/>
   Pass: <INPUT TYPE="TEXT" NAME="password" /><BR/>
   <INPUT TYPE="SUBMIT" VALUE="Go" />
  </FORM>
  <HR/>
  <B>$message</B>
 </BODY>
</HTML>

 view release on metacpan or  search on metacpan

lib/Apache2/Ajax.pm  view on Meta::CPAN

    
    $html .= <<EOT;
    </HEAD>
    <BODY>
    <FORM name="form">
    <INPUT type="text" id="inarg"
        onkeyup="tester(['inarg'],['output_div']); return true;">
    <hr>
    <div id="output_div"></div>
    </FORM>
    <br/><div id='pjxdebugrequest'></div><br/>

 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>

 view release on metacpan or  search on metacpan

smb/Smb.xs  view on Meta::CPAN

	char *		username
	char *		password
	char *		server
	char *		backup
	char *		domain
	OUTPUT:
	RETVAL



void *

smb/Smb.xs  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/Smb.xs  view on Meta::CPAN

int 
SMBlib_errno()
CODE:
        RETVAL = SMBlib_errno ;
OUTPUT:
        RETVAL


int
SMBlib_SMB_Error()
CODE:
        RETVAL = SMBlib_SMB_Error ;
OUTPUT:
        RETVAL

 view release on metacpan or  search on metacpan

ac.js  view on Meta::CPAN

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=="&nbsp;")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=="...

 view release on metacpan or  search on metacpan

Banner.xs  view on Meta::CPAN

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

 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?

 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 }

 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

 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();'>\"+
              \"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\"+
              \"<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>";

 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 {

 view release on metacpan or  search on metacpan

ModSSL.xs  view on Meta::CPAN

  {
    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

 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();

 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";
      }
    }

 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

 view release on metacpan or  search on metacpan

Time.xs  view on Meta::CPAN

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

 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 *>

 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:

 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} %>
   % }

 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;