view release on metacpan or  search on metacpan

root/js/jquery-1.3.2.min.js  view on Meta::CPAN

 * Sizzle CSS Selector Engine - v0.9.3
 *  Copyright 2009, The Dojo Foundation
 *  Released under the MIT, BSD, and GPL Licenses.
 *  More information: http://sizzlejs.com/
 */
(function(){var R=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^[\]]*\]|['"][^'"]*['"]|[^[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?/g,L=0,H=Object.prototype.toString;var F=function(Y,U,ab,ac){ab=ab||[];U=U||document;if(U.nodeType!==1&&U.nodeType!==...

 view release on metacpan or  search on metacpan

lib/Brocade/BSC.pm  view on Meta::CPAN

    my $urlpath = "/restconf/operations/opendaylight-inventory:nodes"
        . "/node/$node/yang-ext:mount/ietf-netconf-monitoring:get-schema";
    my $payload = qq({"input":{"identifier":"$schemaId","version":)
        . qq("$schemaVersion","format":"yang"}});
    my %headers = ('content-type'=>'application/yang.data+json',
                   'accept'=>'text/json, text/html, application/xml, */*');

    my $resp = $self->_http_req('POST', $urlpath, $payload, \%headers);
    if ($resp->code == HTTP_OK) {
        my $xmltree_ref = new XML::Parser(Style => 'Tree')->parse($resp->content);

lib/Brocade/BSC.pm  view on Meta::CPAN

    my $self = shift;
    my $node = shift;
    my $status = new Brocade::BSC::Status($BSC_OK);

    my $urlpath = "/restconf/config/opendaylight-inventory:nodes/node/controller-config/yang-ext:mount/config:modules";
    my %headers = ('content-type' => 'application/xml',
                   'accept' => 'application/xml');
    my $xmlPayload = <<END_XML;
        <module xmlns="urn:opendaylight:params:xml:ns:yang:controller:config">
          <type xmlns:prefix="urn:opendaylight:params:xml:ns:yang:controller:md:sal:connector:netconf">prefix:sal-netconf-connector</type>
          <name>$node->{name}</name>

 view release on metacpan or  search on metacpan

bryar-newblog  view on Meta::CPAN

   <input name="search" type="text" class="bryarSingleLineBox">
   <input name="submit" type="submit" value="Search" class="bryarButton" />
</form>
<hr />
Subscribe to full text feeds via:
<a href="?format=atom" content-type="application/atom+xml">ATOM</a>
 | 
<a href="?format=rss2" content-type="application/rdf+xml">RSS2</a>
 |
<a href="?format=rss" content-type="application/rdf+xml">RSS</a>
<br />
Subscribe to preview feeds via: 
<a href="?format=atom_excerpt" content-type="application/atom+xml">ATOM</a>
 |
<a href="?format=rss2_excerpt" content-type="application/rdf+xml">RSS2</a>
 |
<a href="?format=rss_excerpt" content-type="application/rdf+xml">RSS</a>
<br />

<a href="http://www.feedvalidator.org/check.cgi?url=http://bryar.multiply.org/notebook/bryar.cgi?format=atom"><img src="/notebook/images/valid-atom.png" alt="[Valid Atom]" title="Validate my Atom feed" width="88" height="31" border="0" /></a>

</body>

 view release on metacpan or  search on metacpan

bin/opnpost  view on Meta::CPAN

    X            => 'POST',
    'ca-path'    => '/etc/ssl/certs',
);

my @required = qw(content endpoint);
my @options = qw(help endpoint=s content=s content-type=s timeout=i k d v cc=s ca=s ca-path=s X=s man redir=s@ agent=s r);

if ($script_name eq 'opnpost') {
    push(@required, 'content-type');
    push(@options, 'wrap-soap');
    push(@options, 'soap-version=s');
    push(@options, 'soap-action=s');
}
elsif ($script_name eq 'opnsoap') {
    $options{'content-type'} = 'application/xml';
    $options{'soap-version'} = 1.1;
    push(@options, 'wrap-soap');
    push(@options, 'soap-version=s');
    push(@options, 'soap-action=s');
}
elsif ($script_name eq 'opnjson') {
    $options{'content-type'} = 'application/json';
}

{
    local $SIG{__WARN__} = sub { die shift };
    my $ok = eval { GetOptions(\%options, @options) };

bin/opnpost  view on Meta::CPAN

);

my $req = HTTP::Request->new(
    $options{X} => $options{endpoint},
    HTTP::Headers->new(
        Content_Type => $options{'content-type'},
        exists $options{'soap-action'} ?
        ( SOAPAction   => sprintf('"%s"', $options{'soap-action'}) ) : (),
    ),
    $content,
);

 view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

subtest 'POST request' => sub {
    my $request = $bitpay->prepare_request('invoice', $data);
    is $request->method, 'POST', 'method';
    is $request->uri, "https://$api_key:\@bitpay.com/api/invoice", 'uri';
    is $request->header('content-type'), 'application/json', 'content type';
    is $request->header('X-BitPay-Plugin-Info'),
      'perl' . $Business::Bitpay::VERSION, 'plugin info header';
    is_deeply decode_json($request->content), $data, 'data';
};

 view release on metacpan or  search on metacpan

t/03notifications.t  view on Meta::CPAN

        $POSTED++;
        HTTP::Response->new(
            200,
            'OK',
            [
                'content-type' => 'application/x-www-form-urlencoded',
                'host'         => 'localhost'
            ],
            $IS_SUCCESS ? 'VERIFIED' : 'INVALID'
        )
    }

 view release on metacpan or  search on metacpan

lib/Business/Fixflo/Client.pm  view on Meta::CPAN

    };

    if ( $res->is_success ) {
        my $data = $res->content;

        if ( $res->headers->header( 'content-type' ) =~ m!application/json! ) {
            $data = JSON->new->decode( $data );
        }

        return $data;
    }

 view release on metacpan or  search on metacpan

t/business/gocardless/pro.t  view on Meta::CPAN

      "response_headers": {
        "date": "Tue, 30 Jan 2024 00:07:35 GMT",
        "pragma": "no-cache",
        "server": "Mojolicious (Perl)",
        "connection": "close",
        "content-type": "application/json;charset=UTF-8",
        "cache-control": "no-store",
        "x-frame-options": "SAMEORIGIN",
        "strict-transport-security": "max-age=31536000; includeSubdomains; preload"
      },
      "response_headers_content_truncated": false,

 view release on metacpan or  search on metacpan

lib/Business/OnlinePayment/BitPay/Client.pm  view on Meta::CPAN

    my $public = $opts{"public"};
    my $uri = $self->{apiUri} or croak "no api_uri exists for object";
    $uri = $uri . "/" . $path;
    my $request = HTTP::Request->new(GET => $uri);
    $request->content($jsonc);
    $request->header('content-type' => 'application/json');
    $request->header('X-BitPay-Plugin-Info' => 'PerlLib');
    $request->header('User-Agent' => 'perl-bitpay-client');
    unless($public){
        my $signature = Business::OnlinePayment::BitPay::KeyUtils::bpSignMessageWithPem($self->{pem}, $uri); 
        my $pubkey = Business::OnlinePayment::BitPay::KeyUtils::bpGetPublicKeyFromPem($self->{pem});

lib/Business/OnlinePayment/BitPay/Client.pm  view on Meta::CPAN

    my $request = HTTP::Request->new(POST => $uri);
    my $ua = LWP::UserAgent->new;
    $ua->ssl_opts( verify_hostname=> 0, SSL_ca_file => Mozilla::CA::SSL_ca_file(), SSL_Version => 'TLSv2', SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE);
    my $jsonc = encode_json \%content;
    $request->content($jsonc);
    $request->header('content-type' => 'application/json');
    $request->header('X-BitPay-Plugin-Info' => 'PerlLib');
    $request->header('User-Agent' => 'perl-bitpay-client');
    if ($content{"token"}){
        my $signature = Business::OnlinePayment::BitPay::KeyUtils::bpSignMessageWithPem($self->{pem}, $uri . $jsonc);
        my $pubkey = Business::OnlinePayment::BitPay::KeyUtils::bpGetPublicKeyFromPem($self->{pem});

 view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

sub test_can_connect_to_bitpay_api {
  my $uri = "https://bitpay.com/tokens";
  my $pem = Business::OnlinePayment::BitPay::KeyUtils::bpGeneratePem();
  my $sin = Business::OnlinePayment::BitPay::KeyUtils::bpGenerateSinFromPem($pem);
  my $request = HTTP::Request->new(POST => $uri);
  $request->header('content-type' => 'application/json');
  my %content = ('id'=>$sin);
  my $jsonc = encode_json \%content;
  $request->content($jsonc);
  my $ua = LWP::UserAgent->new;
  my $response = $ua->request($request);

 view release on metacpan or  search on metacpan

lib/Business/Shipping/UPS_XML.pm  view on Meta::CPAN

   my ($page, $response, %reply_headers) = post_https('www.ups.com', '443', '/ups.app/xml/Rate', 

			           make_headers(
						   
					                'content-type' => 'application/x-www-form-urlencoded',
									),
						   
                       $xml
                       );

 view release on metacpan or  search on metacpan

lib/Business/Shipping/RateRequest/Online.pm  view on Meta::CPAN

    my $request_xml = $self->_gen_request_xml();

    #trace( $request_xml );
    info("gen_url = " . $self->_gen_url());
    my $request = HTTP::Request->new('POST', $self->_gen_url());
    $request->header('content-type'   => 'application/x-www-form-urlencoded');
    $request->header('content-length' => length($request_xml));
    $request->content($request_xml);

    return ($request);
}

 view release on metacpan or  search on metacpan

t/04-reply.t  view on Meta::CPAN

$webhook->process();

ok( $handled, 'callback ran' );

my $output = capture_reply($webhook);
ok( $output =~ /\AContent-type: application\/json\n\n/s, 'reply includes content-type header' );

my (undef, $body) = split(/\n\n/, $output, 2);
my $data = decode_json($body);

is( $data->{'status'}, 'noaction', 'default status is noaction' );

t/04-reply.t  view on Meta::CPAN

);

$webhook_nohandler->process();

my $output_nohandler = capture_reply($webhook_nohandler);
ok( $output_nohandler =~ /\AContent-type: application\/json\n\n/s, 'reply includes content-type header without args' );

my (undef, $body_nohandler) = split(/\n\n/, $output_nohandler, 2);
my $data_nohandler = decode_json($body_nohandler);

is( $data_nohandler->{'status'}, 'noaction', 'default status is noaction' );

 view release on metacpan or  search on metacpan

examples/web/Scripts/jquery-1.4.4.min.js  view on Meta::CPAN

b.contentType);if(b.ifModified){c.lastModified[b.url]&&w.setRequestHeader("If-Modified-Since",c.lastModified[b.url]);c.etag[b.url]&&w.setRequestHeader("If-None-Match",c.etag[b.url])}o||w.setRequestHeader("X-Requested-With","XMLHttpRequest");w.setRequ...
c.triggerGlobal(b,"ajaxSend",[w,b]);var L=w.onreadystatechange=function(m){if(!w||w.readyState===0||m==="abort"){J||c.handleComplete(b,w,e,f);J=true;if(w)w.onreadystatechange=c.noop}else if(!J&&w&&(w.readyState===4||m==="timeout")){J=true;w.onreadyst...
c.handleSuccess(b,w,e,f);else c.handleError(b,w,e,p);d||c.handleComplete(b,w,e,f);m==="timeout"&&w.abort();if(b.async)w=null}};try{var g=w.abort;w.abort=function(){w&&Function.prototype.call.call(g,w);L("abort")}}catch(i){}b.async&&b.timeout>0&&setTi...
encodeURIComponent(h)+"="+encodeURIComponent(l)};if(b===B)b=c.ajaxSettings.traditional;if(c.isArray(a)||a.jquery)c.each(a,function(){e(this.name,this.value)});else for(var f in a)da(f,a[f],b,e);return d.join("&").replace(tb,"+")}});c.extend({active:0...
[b,a])},handleComplete:function(a,b,d){a.complete&&a.complete.call(a.context,b,d);a.global&&c.triggerGlobal(a,"ajaxComplete",[b,a]);a.global&&c.active--===1&&c.event.trigger("ajaxStop")},triggerGlobal:function(a,b,d){(a.context&&a.context.url==null?c...
e=a.getResponseHeader("Etag");if(d)c.lastModified[b]=d;if(e)c.etag[b]=e;return a.status===304},httpData:function(a,b,d){var e=a.getResponseHeader("content-type")||"",f=b==="xml"||!b&&e.indexOf("xml")>=0;a=f?a.responseXML:a.responseText;f&&a.documentE...
if(E.ActiveXObject)c.ajaxSettings.xhr=function(){if(E.location.protocol!=="file:")try{return new E.XMLHttpRequest}catch(a){}try{return new E.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}};c.support.ajax=!!c.ajaxSettings.xhr();var ea={},vb=/^(?:toggle...
3),a,b,d);else{d=0;for(var e=this.length;d<e;d++){a=this[d];b=a.style.display;if(!c.data(a,"olddisplay")&&b==="none")b=a.style.display="";b===""&&c.css(a,"display")==="none"&&c.data(a,"olddisplay",qa(a.nodeName))}for(d=0;d<e;d++){a=this[d];b=a.style....
d)}for(a=0;a<b;a++)this[a].style.display="none";return this}},_toggle:c.fn.toggle,toggle:function(a,b,d){var e=typeof a==="boolean";if(c.isFunction(a)&&c.isFunction(b))this._toggle.apply(this,arguments);else a==null||e?this.each(function(){var f=e?a:...
d,e);if(c.isEmptyObject(a))return this.each(f.complete);return this[f.queue===false?"each":"queue"](function(){var h=c.extend({},f),l,k=this.nodeType===1,o=k&&c(this).is(":hidden"),x=this;for(l in a){var r=c.camelCase(l);if(l!==r){a[r]=a[l];delete a[...
"inline")this.style.display="inline-block";else{this.style.display="inline";this.style.zoom=1}else this.style.display="inline-block"}if(c.isArray(a[l])){(h.specialEasing=h.specialEasing||{})[l]=a[l][1];a[l]=a[l][0]}}if(h.overflow!=null)this.style.ove...

 view release on metacpan or  search on metacpan

share/www/static/jquery.js  view on Meta::CPAN

						requestHeaders[ name ] = value;
					}
					return this;
				},

				// Overrides response content-type header
				overrideMimeType: function( type ) {
					if ( !state ) {
						s.mimeType = type;
					}
					return this;

share/www/static/jquery.js  view on Meta::CPAN

	}
});

/* Handles responses to an ajax request:
 * - sets all responseXXX fields accordingly
 * - finds the right dataType (mediates between content-type and expected dataType)
 * - returns the corresponding response
 */
function ajaxHandleResponses( s, jqXHR, responses ) {
	var firstDataType, ct, finalDataType, type,
		contents = s.contents,

share/www/static/jquery.js  view on Meta::CPAN

		if ( type in responses ) {
			jqXHR[ responseFields[type] ] = responses[ type ];
		}
	}

	// Remove auto dataType and get content-type in the process
	while( dataTypes[ 0 ] === "*" ) {
		dataTypes.shift();
		if ( ct === undefined ) {
			ct = s.mimeType || jqXHR.getResponseHeader("Content-Type");
		}
	}

	// Check if we're dealing with a known content-type
	if ( ct ) {
		for ( type in contents ) {
			if ( contents[ type ] && contents[ type ].test( ct ) ) {
				dataTypes.unshift( type );
				break;

 view release on metacpan or  search on metacpan

CAM-PDFTaxforms.htm  view on Meta::CPAN

<?xml version="1.0" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>CAM::PDFTaxforms - CAM::PDF wrapper to also allow editing of checkboxes (ie. for IRS Tax forms).</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:root@localhost" />
</head>

<body>

 view release on metacpan or  search on metacpan

lib/CAM/SOAPApp.pm  view on Meta::CPAN

         #        "  It has not been tested with other SOAP::Lite versions.\n".
         #        "  To silence this warning set\n".
         #        "     $CAM::SOAPApp::NO_SOAP_LITE_WARNING = 1;\n");
         #}

         ## Hack to repair content-type for clients who send the wrong
         ## value or no value (notably the Apple Sherlock 3 interface
         ## and Flash)

         # This doesn't actually work for servers, but we'll include
         #it in case SOAP::Lite ever gets fixed.

 view release on metacpan or  search on metacpan

Apps.pm  view on Meta::CPAN

This version is to extract out the app methods from CGI::Getopt class.
It was too much for CGI::Getopt to include the start_app, end_app,
build_html_header, and disp_form methods. 

  0.11 Rewrote start_app method so that content-type can be changed.
  0.12 Moved disp_form to CGI::AppBuilder::Form,
       moved build_html_header to CGI::AppBuilder::Header, and 
       imported all the methods in sub-classes into this class.

=item * Version 1.0001

 view release on metacpan or  search on metacpan

AppBuilder.pm  view on Meta::CPAN

This version is to extract out the app methods from CGI::Getopt class.
It was too much for CGI::Getopt to include the start_app, end_app,
build_html_header, and disp_form methods. 

  0.11 Rewrote start_app method so that content-type can be changed.
  0.12 Moved disp_form to CGI::AppBuilder::Form,
       moved build_html_header to CGI::AppBuilder::Header, and 
       imported all the methods in sub-classes into this class.

=item * Version 1.0001

 view release on metacpan or  search on metacpan

t/00base.t  view on Meta::CPAN

    client => sub {
        my $cb = shift;
        my $req = HTTP::Request->new(GET => 'http://localhost/');
        my $res = $cb->($req);
        is $res->code, 200, 'status code is 200';
        is $res->content_type, 'application/x-hello-world', 'content-type';
        is $res->content, 'hello world', 'body';
    };

done_testing;

 view release on metacpan or  search on metacpan

caf_htdoc/index.html  view on Meta::CPAN

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
        "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
	<title>CGI::Application::Framework</title>
	<link rel="stylesheet" href="!!- url_example_css -!!" type="text/css" />
</head>

<body>

 view release on metacpan or  search on metacpan

examples/PodViewer.pm  view on Meta::CPAN

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
        "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
  <title>CGI::Application::Plugin::HTMLPrototype - PodViewer Example</title>
  <meta http-equiv="content-type" content="text/html; charset=utf-8" />
  [% c.prototype.define_javascript_functions %]

  <link rel="stylesheet" href="http://search.cpan.org/s/style.css" type="text/css">

  <style>

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/Header.pm  view on Meta::CPAN

Behaves like L<CGI::Application>'s C<header_props> method,
but the return format is modified. C<keys> of C<%header_props>
are lowercased and start with a dash. The following aliases are used:

  '-content-type' -> '-type'
  '-cookie'       -> '-cookies'

It's guaranteed that the keys are unique.

=item $cgiapp->header_add( $k1 => $v1, $k2 => $v2, ... )

lib/CGI/Application/Plugin/Header.pm  view on Meta::CPAN

  use parent 'CGI::Header';

  sub _build_alias {
      +{
          'cookies'      => 'cookie',
          'content-type' => 'type',
      };
  }

  sub cookies {
      my $self = shift;

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/JSON.pm  view on Meta::CPAN

    $self->json_callback('alert', { foo => 'Lorem ipsum', bar => [ 0, 2, 3 ] } );

=head1 DESCRIPTION

When communicating with client-side JavaScript, it is common to send
data in C<X-JSON> HTTP headers or through the document body as content-type
C<application/json>.

This plugin adds a couple of convenience methods to make that just a 
little bit easier.

lib/CGI/Application/Plugin/JSON.pm  view on Meta::CPAN

=head1 BODY METHODS

=head2 json_body

This method will take the given Perl structure, turn it
into JSON, set the appropriate content-type, and then
return the JSON.

    return $self->json_body({ foo => 'stuff', bar => [0,1,2,3]} );

=cut

lib/CGI/Application/Plugin/JSON.pm  view on Meta::CPAN

}

=head2 json_callback

This method will take the given Perl structure, turn it
into JSON, set the appropriate content-type, and then
return a Javascript snippet where the given callback
is called with the resulting JSON.

    return $self->json_callback('alert', { foo => 'stuff', bar => [0,1,2,3]} );

 view release on metacpan or  search on metacpan

share/examples/compare/Nes/index.nhtml  view on Meta::CPAN

{: NES 1.0 ('index.cgi') :}
<html>
<html>
  <head>
    <title>Test Nes CGI::Application</title>
    <meta http-equiv="content-type" content="text/html;charset=utf-8" />
    <style type="text/css">
    #caja { 
        padding: 15px 15px 15px 15px; 
        border: 1px solid #dedede; 
        background: #eee; 

 view release on metacpan or  search on metacpan

XSV.pm  view on Meta::CPAN

    filename   => 'members.csv',
    stream     => 1,
  });

This method generates a csv file that is sent directly to the user's
web browser. It sets the content-type header to 'application/x-csv' and sets
the content-disposition header to 'attachment'.

It should be invoked through a
L<CGI::Application|CGI::Application(3)> subclass object.

 view release on metacpan or  search on metacpan

lib/CGI/Application/Magic.pm  view on Meta::CPAN

An auto-magically used template (it contains the 'ENV_table block', and the 'app_name' and 'Time' labels)

    <html>
    
    <head>
    <meta http-equiv=content-type content="text/html;charset=iso-8859-1">
    <title>ENVIRONMENT</title>
    <style media=screen type=text/css><!--
    td   { font-size: 9pt; font-family: Arial }
    --></style>
    </head>

 view release on metacpan or  search on metacpan

lib/CGI/Buffer.pm  view on Meta::CPAN

	my $headers = shift;

	foreach my $header (split(/\r?\n/, $headers)) {
		my ($header_name, $header_value) = split /\:\s*/, $header, 2;
		next unless(defined($header_name) && defined($header_value));
		if(lc($header_name) eq 'content-type') {
			@content_type = split /\//, $header_value, 2;
		} elsif((lc($header_name) eq 'content-encoding') && (lc($header_value) !~ /^\s*identity\s*$/)) {
			$script_encoded = 1;
		}
	}

 view release on metacpan or  search on metacpan

CBF_examples/02_SimpleApp/SimpleApp.pm  view on Meta::CPAN

   ; my $Time = $s->Time()
   ; $s->page_content = << "EOS"
<html>

	<head>
		<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
		<title>Index Page</title>
	</head>

	<body bgcolor="#ffffff">
		<p>This page is the index (default) page of the application. </p>

CBF_examples/02_SimpleApp/SimpleApp.pm  view on Meta::CPAN

   ; $err = $s->page_error
   ; $s->page_content = << "EOS"
<html>

	<head>
		<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
		<title>Password Page</title>
	</head>

	<body bgcolor="#ffffff">
		<p>This page is a sort of simplified login page. By filling the 'password' field with the correct password you can go to the 'env_page', while you will have this page displayed again if the password is wrong.</p>

CBF_examples/02_SimpleApp/SimpleApp.pm  view on Meta::CPAN

   ; my $Time = $s->Time()
   ; $s->page_content = << 'EOSTART'
<html>

<head>
<meta http-equiv=content-type content="text/html;charset=iso-8859-1">
<title>ENVIRONMENT</title>
<style media=screen type=text/css><!--
td  { font-size: 9pt; font-family: Arial }
tr   { vertical-align: top }
--></style>

CBF_examples/02_SimpleApp/SimpleApp.pm  view on Meta::CPAN

   { my $s = shift
   ; $s->page_content = << "EOS"
<html>

	<head>
		<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
		<title>Unknown page!</title>
	</head>

	<body bgcolor="#ffffff">
		<h1>Unknown page!</h1>

 view release on metacpan or  search on metacpan

lib/CGI.pm  view on Meta::CPAN

	  last METHOD;
      } 

      # Process XForms postings. We know that we have XForms in the
      # following cases:
      # method eq 'POST' && content-type eq 'application/xml'
      # method eq 'POST' && content-type =~ /multipart\/related.+start=/
      # There are more cases, actually, but for now, we don't support other
      # methods for XForm posts.
      # In a XForm POST, the QUERY_STRING is parsed normally.
      # If the content-type is 'application/xml', we just set the param
      # XForms:Model (referring to the xml syntax) param containing the
      # unparsed XML data.
      # In the case of multipart/related we set XForms:Model as above, but
      # the other parts are available as uploads with the Content-ID as the
      # the key.