view release on metacpan or  search on metacpan

lib/App/Cinema.pm  view on Meta::CPAN

  Authentication
  Authorization::Roles
  Session
  Session::Store::FastMmap
  Session::State::Cookie
  /;

BEGIN {
	our $VERSION = '1.171';
}

 view release on metacpan or  search on metacpan

lib/App/Codit.pm  view on Meta::CPAN

=item L<Tk::AppWindow>

=item L<Tk::AppWindow::OverView>

=item L<Tk::AppWindow::CookBook>

=item L<Tk::AppWindow::Ext::MDI>

=item L<Tk::AppWindow::Ext::Plugins>

 view release on metacpan or  search on metacpan

lib/App/Session.pm  view on Meta::CPAN

=item * Class: App::Session

=item * Class: App::Session::HTMLHidden

=item * Class: App::Session::Cookie

=item * Class: App::Session::ApacheSession

=item * Class: App::Session::ApacheSessionX

 view release on metacpan or  search on metacpan

t/files/indent.snapshot  view on Meta::CPAN

    provides:
      Module::Build 0.4224
      Module::Build::Base 0.4224
      Module::Build::Compat 0.4224
      Module::Build::Config 0.4224
      Module::Build::Cookbook 0.4224
      Module::Build::Dumper 0.4224
      Module::Build::Notes 0.4224
      Module::Build::PPMMaker 0.4224
      Module::Build::Platform::Default 0.4224
      Module::Build::Platform::MacOS 0.4224

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::int" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Date::Format::ISO8601" : "0",
            "Exporter" : "5.57",
            "HTTP::CookieJar::LWP" : "0",
            "JSON::Encode::TableData" : "0",
            "LWP::UserAgent::Plugin" : "0.004",
            "Log::ger" : "0.038",
            "Perinci::CmdLine::Any" : "0.154",
            "Perinci::CmdLine::Lite" : "1.924",

 view release on metacpan or  search on metacpan

lib/App/Diskd.pm  view on Meta::CPAN

can be attributed to the combination of Perl and POE. Despite this
being my first time writing any program using POE, the speed of
development was not down to amazing programming skill on my
part. Rather, it boiled down to just one factor: almost all of the POE
code I have here was based, in one way or another, on example code
hosted on the L<POE Cookbook site|http://poe.perl.org/?POE_Cookbook>.

Since I had already read up sufficiently on POE (and the examples in
the cookbook) and knew in general how I wanted my daemon to work,
selecting the relevant recipes and reworking them was a pretty
straightforward process. Based on this experience, I would definitely

 view release on metacpan or  search on metacpan

config/CLI_Config.pm  view on Meta::CPAN

# MREST_CLI_SUPPRESSED_HEADERS
#     list of headers to be suppressed in the output
set ('MREST_CLI_SUPPRESSED_HEADERS', [ qw( 
    accept content-type content-length cache-control pragma expires
    server Client-Response-Num Client-Peer Client-Date Set-Cookie Date
    Vary Client-SSL-Cert-Subject Client-SSL-Cipher
    Client-SSL-Socket-Class Client-SSL-Cert-Issuer Connection
    Strict-Transport-Security
) ] );

 view release on metacpan or  search on metacpan

docs/docs/02-cookbook.md  view on Meta::CPAN

---
title: 'Cookbook'
layout: default
---

# Cookbook

Some quick answers to common needs.

## Define the application structure in JSON

 view release on metacpan or  search on metacpan

examples/etc/cat.json  view on Meta::CPAN

{ "cat": {
    "name": "Cookie",
    "age": "2",
    "size": "3"
  }
}

 view release on metacpan or  search on metacpan

share/status/app/lib/angular/angular-cookies.js  view on Meta::CPAN

 */
(function(window, angular, undefined) {'use strict';

/**
 * @ngdoc overview
 * @name ngCookies
 * @description
 *
 * # ngCookies
 *
 * The `ngCookies` module provides a convenient wrapper for reading and writing browser cookies. 
 *
 * {@installModule cookies}
 *
 * <div doc-module-components="ngCookies"></div>
 *
 * See {@link ngCookies.$cookies `$cookies`} and
 * {@link ngCookies.$cookieStore `$cookieStore`} for usage.
 */


angular.module('ngCookies', ['ng']).
  /**
   * @ngdoc object
   * @name ngCookies.$cookies
   * @requires $browser
   *
   * @description
   * Provides read/write access to browser's cookies.
   *
   * Only a simple Object is exposed and by adding or removing properties to/from
   * this object, new cookies are created/deleted at the end of current $eval.
   *
   * Requires the {@link ngCookies `ngCookies`} module to be installed.
   *
   * @example
   <doc:example>
     <doc:source>
       <script>
         function ExampleController($cookies) {
           // Retrieving a cookie
           var favoriteCookie = $cookies.myFavorite;
           // Setting a cookie
           $cookies.myFavorite = 'oatmeal';
         }
       </script>
     </doc:source>
   </doc:example>
   */
   factory('$cookies', ['$rootScope', '$browser', function ($rootScope, $browser) {
      var cookies = {},
          lastCookies = {},
          lastBrowserCookies,
          runEval = false,
          copy = angular.copy,
          isUndefined = angular.isUndefined;

      //creates a poller fn that copies all cookies from the $browser to service & inits the service
      $browser.addPollFn(function() {
        var currentCookies = $browser.cookies();
        if (lastBrowserCookies != currentCookies) { //relies on browser.cookies() impl
          lastBrowserCookies = currentCookies;
          copy(currentCookies, lastCookies);
          copy(currentCookies, cookies);
          if (runEval) $rootScope.$apply();
        }
      })();

      runEval = true;

share/status/app/lib/angular/angular-cookies.js  view on Meta::CPAN

       * stored.
       */
      function push() {
        var name,
            value,
            browserCookies,
            updated;

        //delete any cookies deleted in $cookies
        for (name in lastCookies) {
          if (isUndefined(cookies[name])) {
            $browser.cookies(name, undefined);
          }
        }

        //update all cookies updated in $cookies
        for(name in cookies) {
          value = cookies[name];
          if (!angular.isString(value)) {
            if (angular.isDefined(lastCookies[name])) {
              cookies[name] = lastCookies[name];
            } else {
              delete cookies[name];
            }
          } else if (value !== lastCookies[name]) {
            $browser.cookies(name, value);
            updated = true;
          }
        }

        //verify what was actually stored
        if (updated){
          updated = false;
          browserCookies = $browser.cookies();

          for (name in cookies) {
            if (cookies[name] !== browserCookies[name]) {
              //delete or reset all cookies that the browser dropped from $cookies
              if (isUndefined(browserCookies[name])) {
                delete cookies[name];
              } else {
                cookies[name] = browserCookies[name];
              }
              updated = true;
            }
          }
        }

share/status/app/lib/angular/angular-cookies.js  view on Meta::CPAN

    }]).


  /**
   * @ngdoc object
   * @name ngCookies.$cookieStore
   * @requires $cookies
   *
   * @description
   * Provides a key-value (string-object) storage, that is backed by session cookies.
   * Objects put or retrieved from this storage are automatically serialized or
   * deserialized by angular's toJson/fromJson.
   *
   * Requires the {@link ngCookies `ngCookies`} module to be installed.
   *
   * @example
   */
   factory('$cookieStore', ['$cookies', function($cookies) {

      return {
        /**
         * @ngdoc method
         * @name ngCookies.$cookieStore#get
         * @methodOf ngCookies.$cookieStore
         *
         * @description
         * Returns the value of given cookie key
         *
         * @param {string} key Id to use for lookup.

share/status/app/lib/angular/angular-cookies.js  view on Meta::CPAN

          return value ? angular.fromJson(value) : value;
        },

        /**
         * @ngdoc method
         * @name ngCookies.$cookieStore#put
         * @methodOf ngCookies.$cookieStore
         *
         * @description
         * Sets a value for given cookie key
         *
         * @param {string} key Id for the `value`.

share/status/app/lib/angular/angular-cookies.js  view on Meta::CPAN

          $cookies[key] = angular.toJson(value);
        },

        /**
         * @ngdoc method
         * @name ngCookies.$cookieStore#remove
         * @methodOf ngCookies.$cookieStore
         *
         * @description
         * Remove given cookie
         *
         * @param {string} key Id of the key-value pair to delete.

 view release on metacpan or  search on metacpan

lib/App/Fetchware/Util.pm  view on Meta::CPAN

C<'E<gt>'> is for writing for example. See C<perldoc -f open> for a list of
possible modes.

In fetchware, this subroutine is used to check if every file fetchware
opens is safe to do so. It is based on is_safe() and is_very_safe() from the
Perl Cookbook by Tom Christiansen and Nathan Torkington.

What this subroutine checks:

=over

 view release on metacpan or  search on metacpan

cpanfile.snapshot  view on Meta::CPAN

    pathname: P/PE/PETDANCE/HTML-Tagset-3.20.tar.gz
    provides:
      HTML::Tagset 3.20
    requirements:
      ExtUtils::MakeMaker 0
  HTTP-Cookies-6.11
    pathname: O/OA/OALDERS/HTTP-Cookies-6.11.tar.gz
    provides:
      HTTP::Cookies 6.11
      HTTP::Cookies::Microsoft 6.11
      HTTP::Cookies::Netscape 6.11
    requirements:
      Carp 0
      ExtUtils::MakeMaker 0
      HTTP::Date 6
      HTTP::Headers::Util 6

cpanfile.snapshot  view on Meta::CPAN

    provides:
      Module::Build 0.4234
      Module::Build::Base 0.4234
      Module::Build::Compat 0.4234
      Module::Build::Config 0.4234
      Module::Build::Cookbook 0.4234
      Module::Build::Dumper 0.4234
      Module::Build::Notes 0.4234
      Module::Build::PPMMaker 0.4234
      Module::Build::Platform::Default 0.4234
      Module::Build::Platform::MacOS 0.4234

cpanfile.snapshot  view on Meta::CPAN

      File::Listing 6
      File::Temp 0
      Getopt::Long 0
      HTML::Entities 0
      HTML::HeadParser 3.71
      HTTP::Cookies 6
      HTTP::Date 6
      HTTP::Negotiate 6
      HTTP::Request 6.18
      HTTP::Request::Common 6.18
      HTTP::Response 6.18

 view release on metacpan or  search on metacpan

t/data/dir1/simpsons.txt  view on Meta::CPAN

Poochie
Cecil Terwilliger
Duffman
Manjula Nahasapeemapetilon
Gil Gunderson
Cookie Kwan
Patches and Poor Violet
Crazy Cat Lady
Mr. Costington
Atkins, State Comptroller
Yes Guy

 view release on metacpan or  search on metacpan

lib/App/HTTP_Proxy_IMP/IMP/CSRFprotect.pm  view on Meta::CPAN

use Net::IMP qw(:DEFAULT :log);
use Net::IMP::Debug;
use Net::IMP::HTTP;

sub RTYPES { return (
    IMP_REPLACE, # remove Cookie/Authorization header
    IMP_LOG,     # log if we removed something
    IMP_DENY,    # bad requests/responses
    IMP_PASS,
)}

lib/App/HTTP_Proxy_IMP/IMP/CSRFprotect.pm  view on Meta::CPAN

    # remove cookies, because there is no cross-domain trust
    # we should remove authorization header too, but then access to the
    # protected site will probably not be available at all (see BUGS section)
    my @del;
    push @del,$1 while ( $hdr =~s{^(Cookie|Cookie2):[ \t]*(.*(?:\n[ \t].*)*)\n}{}im );
    if (@del) {
	$self->run_callback([ 
	    IMP_LOG,0,0,0,IMP_LOG_INFO,
	    "removed cross-origin session credentials (@del) for request @origin -> @target" 
	]);

lib/App/HTTP_Proxy_IMP/IMP/CSRFprotect.pm  view on Meta::CPAN

App::HTTP_Proxy_IMP::IMP::CSRFprotect - IMP plugin against CSRF attacks

=head1 DESCRIPTION

This plugin attempts to block malicious cross-site requests (CSRF), by removing
session credentials (Cookie, Cookie2 and Authorization header) from the request,
if the origin of the request is not known or not trusted.
The origin is determined by checking the Origin or the Referer HTTP-header of
the request.

An origin O is considered trusted to issue a cross-site request to target T, if

 view release on metacpan or  search on metacpan

cpanfile.snapshot  view on Meta::CPAN

    pathname: P/PE/PETDANCE/HTML-Tagset-3.20.tar.gz
    provides:
      HTML::Tagset 3.20
    requirements:
      ExtUtils::MakeMaker 0
  HTTP-Cookies-6.01
    pathname: G/GA/GAAS/HTTP-Cookies-6.01.tar.gz
    provides:
      HTTP::Cookies 6.01
      HTTP::Cookies::Microsoft 6.00
      HTTP::Cookies::Netscape 6.00
    requirements:
      ExtUtils::MakeMaker 0
      HTTP::Date 6
      HTTP::Headers::Util 6
      Time::Local 0

cpanfile.snapshot  view on Meta::CPAN

      Encode::Locale 0
      ExtUtils::MakeMaker 0
      File::Listing 6
      HTML::Entities 0
      HTML::HeadParser 0
      HTTP::Cookies 6
      HTTP::Daemon 6
      HTTP::Date 6
      HTTP::Negotiate 6
      HTTP::Request 6
      HTTP::Request::Common 6

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "HTML::Form" : "6.07",
         "HTML::Parse" : "5.07",
         "HTML::Tree" : "5.07",
         "HTML::TreeBuilder" : "5.07",
         "HTTP::BrowserDetect" : "3.31",
         "HTTP::Cookies" : "6.10",
         "HTTP::Cookies::Microsoft" : "6.10",
         "HTTP::Cookies::Netscape" : "6.10",
         "HTTP::Headers::Patch::DontUseStorable" : "0.062",
         "HTTP::Negotiate" : "6.01",
         "HTTP::Tiny" : "0.076",
         "HTTP::Tiny::UNIX" : "0.051",
         "HTTP::UserAgentStr::Util::ByNickname" : "0.003",

 view release on metacpan or  search on metacpan

cpanfile.snapshot  view on Meta::CPAN

    provides:
      Module::Build 0.4211
      Module::Build::Base 0.4211
      Module::Build::Compat 0.4211
      Module::Build::Config 0.4211
      Module::Build::Cookbook 0.4211
      Module::Build::Dumper 0.4211
      Module::Build::Notes 0.4211
      Module::Build::PPMMaker 0.4211
      Module::Build::Platform::Default 0.4211
      Module::Build::Platform::MacOS 0.4211

 view release on metacpan or  search on metacpan

lib/App/MFILE/WWW.pm  view on Meta::CPAN

starting the application and then pointing the browser to a URL like:

    http://localhost:5001/test

The tests are implemented using QUnit. A good source of practical advise on the
use of QUnit is the QUnit Cookbook, available here:

    https://qunitjs.com/cookbook/

The QUnit API itself is documented here:

 view release on metacpan or  search on metacpan

share/public_html/static/music_inc/drflac.js  view on Meta::CPAN

  
  return (
async function(moduleArg = {}) {
  var moduleRtn;

var Module=moduleArg;var readyPromiseResolve,readyPromiseReject;var readyPromise=new Promise((resolve,reject)=>{readyPromiseResolve=resolve;readyPromiseReject=reject});["_network_drflac_open_mem","_network_drflac_read_pcm_frames_f32_mem","_network_dr...


  return moduleRtn;
}
);

 view release on metacpan or  search on metacpan

lib/App/Mimosa.pm  view on Meta::CPAN

    Static::Simple
    AutoCRUD
    Authentication
    Authorization::Roles
    Session
    Session::State::Cookie
    Session::Store::FastMmap
    /)
);

extends 'Catalyst';

 view release on metacpan or  search on metacpan

cpanfile.snapshot  view on Meta::CPAN

    pathname: P/PE/PETDANCE/HTML-Tagset-3.20.tar.gz
    provides:
      HTML::Tagset 3.20
    requirements:
      ExtUtils::MakeMaker 0
  HTTP-Cookies-6.01
    pathname: G/GA/GAAS/HTTP-Cookies-6.01.tar.gz
    provides:
      HTTP::Cookies 6.01
      HTTP::Cookies::Microsoft 6.00
      HTTP::Cookies::Netscape 6.00
    requirements:
      ExtUtils::MakeMaker 0
      HTTP::Date 6
      HTTP::Headers::Util 6
      Time::Local 0

cpanfile.snapshot  view on Meta::CPAN

    provides:
      Module::Build 0.4214
      Module::Build::Base 0.4214
      Module::Build::Compat 0.4214
      Module::Build::Config 0.4214
      Module::Build::Cookbook 0.4214
      Module::Build::Dumper 0.4214
      Module::Build::Notes 0.4214
      Module::Build::PPMMaker 0.4214
      Module::Build::Platform::Default 0.4214
      Module::Build::Platform::MacOS 0.4214

cpanfile.snapshot  view on Meta::CPAN

      Class::MOP::Module 2.1604
      Class::MOP::Object 2.1604
      Class::MOP::Overload 2.1604
      Class::MOP::Package 2.1604
      Moose 2.1604
      Moose::Cookbook 2.1604
      Moose::Cookbook::Basics::BankAccount_MethodModifiersAndSubclassing 2.1604
      Moose::Cookbook::Basics::BinaryTree_AttributeFeatures 2.1604
      Moose::Cookbook::Basics::BinaryTree_BuilderAndLazyBuild 2.1604
      Moose::Cookbook::Basics::Company_Subtypes 2.1604
      Moose::Cookbook::Basics::DateTime_ExtendingNonMooseParent 2.1604
      Moose::Cookbook::Basics::Document_AugmentAndInner 2.1604
      Moose::Cookbook::Basics::Genome_OverloadingSubtypesAndCoercion 2.1604
      Moose::Cookbook::Basics::HTTP_SubtypesAndCoercion 2.1604
      Moose::Cookbook::Basics::Immutable 2.1604
      Moose::Cookbook::Basics::Person_BUILDARGSAndBUILD 2.1604
      Moose::Cookbook::Basics::Point_AttributesAndSubclassing 2.1604
      Moose::Cookbook::Extending::Debugging_BaseClassRole 2.1604
      Moose::Cookbook::Extending::ExtensionOverview 2.1604
      Moose::Cookbook::Extending::Mooseish_MooseSugar 2.1604
      Moose::Cookbook::Legacy::Debugging_BaseClassReplacement 2.1604
      Moose::Cookbook::Legacy::Labeled_AttributeMetaclass 2.1604
      Moose::Cookbook::Legacy::Table_ClassMetaclass 2.1604
      Moose::Cookbook::Meta::GlobRef_InstanceMetaclass 2.1604
      Moose::Cookbook::Meta::Labeled_AttributeTrait 2.1604
      Moose::Cookbook::Meta::PrivateOrPublic_MethodMetaclass 2.1604
      Moose::Cookbook::Meta::Table_MetaclassTrait 2.1604
      Moose::Cookbook::Meta::WhyMeta 2.1604
      Moose::Cookbook::Roles::ApplicationToInstance 2.1604
      Moose::Cookbook::Roles::Comparable_CodeReuse 2.1604
      Moose::Cookbook::Roles::Restartable_AdvancedComposition 2.1604
      Moose::Cookbook::Snack::Keywords 2.1604
      Moose::Cookbook::Snack::Types 2.1604
      Moose::Cookbook::Style 2.1604
      Moose::Exception 2.1604
      Moose::Exception::AccessorMustReadWrite 2.1604
      Moose::Exception::AddParameterizableTypeTakesParameterizableType 2.1604
      Moose::Exception::AddRoleTakesAMooseMetaRoleInstance 2.1604
      Moose::Exception::AddRoleToARoleTakesAMooseMetaRole 2.1604

cpanfile.snapshot  view on Meta::CPAN

      warnings 0
  String-Formatter-0.102084
    pathname: R/RJ/RJBS/String-Formatter-0.102084.tar.gz
    provides:
      String::Formatter 0.102084
      String::Formatter::Cookbook 0.102084
    requirements:
      ExtUtils::MakeMaker 6.30
      Params::Util 0
      Sub::Exporter 0
      strict 0

cpanfile.snapshot  view on Meta::CPAN

      File::Copy 0
      File::Listing 6
      Getopt::Long 0
      HTML::Entities 0
      HTML::HeadParser 0
      HTTP::Cookies 6
      HTTP::Daemon 6
      HTTP::Date 6
      HTTP::Negotiate 6
      HTTP::Request 6
      HTTP::Request::Common 6

 view release on metacpan or  search on metacpan

lib/App/Mxpress/Client.pm  view on Meta::CPAN

use Moo;
use Compiled::Params::OO qw/cpo/;
use Types::Standard qw/Object Str StrMatch Enum Optional HashRef Bool/;
use Future::HTTP;
use HTTP::CookieJar;
use JSON;

our ($validate, $session);
BEGIN {
	$validate = cpo(

lib/App/Mxpress/Client.pm  view on Meta::CPAN

has ua => (
	is => 'ro',
	default => sub {
		return Future::HTTP->new(
			cookie_jar => HTTP::CookieJar->new
		);
	}
);

sub session {

 view release on metacpan or  search on metacpan

lib/App/Netdisco/Web.pm  view on Meta::CPAN

    }
    return $self->{path};
  };

  # implement same_site
  # from https://github.com/PerlDancer/Dancer-Session-Cookie/issues/20
  *Dancer::Session::Cookie::_cookie_params = sub {
      my $self     = shift;
      my $name     = $self->session_name;
      my $duration = $self->_session_expires_as_duration;
      my %cookie   = (
          name      => $name,

lib/App/Netdisco/Web.pm  view on Meta::CPAN

eval {
  my $sessions = schema('netdisco')->resultset('Session');
  my $skey = $sessions->find({id => 'dancer_session_cookie_key'});
  setting('session_cookie_key' => $skey->get_column('a_session')) if $skey;
};
Dancer::Session::Cookie::init(session);

# workaround for https://github.com/PerlDancer/Dancer/issues/935
hook after_error_render => sub { setting('layout' => 'main') };

# build list of port detail columns

 view release on metacpan or  search on metacpan

bin/nostray  view on Meta::CPAN

 "(line)", "(loopage)", "(name)", "(onevar)", "(params)", "(scope)",
 "(statement)", "(verb)", "*", "+", "++", "-", "--", "\/", "<", "<=", "==",
 "===", ">", ">=", $, $$, $A, $F, $H, $R, $break, $continue, $w, Abstract, Ajax,
 __filename, __dirname, ActiveXObject, Array, ArrayBuffer, ArrayBufferView, Audio,
 Autocompleter, Assets, Boolean, Builder, Buffer, Browser, COM, CScript, Canvas,
 CustomAnimation, Class, Control, Chain, Color, Cookie, Core, DataView, Date,
 Debug, Draggable, Draggables, Droppables, Document, DomReady, DOMReady, DOMParser, Drag,
 E, Enumerator, Enumerable, Element, Elements, Error, Effect, EvalError, Event,
 Events, FadeAnimation, Field, Flash, Float32Array, Float64Array, Form,
 FormField, Frame, FormData, Function, Fx, GetObject, Group, Hash, HotKey,
 HTMLElement, HTMLAnchorElement, HTMLBaseElement, HTMLBlockquoteElement,

bin/nostray  view on Meta::CPAN

            Assets          : false,
            Browser         : false,
            Chain           : false,
            Class           : false,
            Color           : false,
            Cookie          : false,
            Core            : false,
            Document        : false,
            DomReady        : false,
            DOMReady        : false,
            Drag            : false,

 view release on metacpan or  search on metacpan

bin/perldoc-search  view on Meta::CPAN

Results

  perltoc - perl documentation table of contents
  Module::Build::API - API Reference for Module Authors
  Module::Build::Cookbook - Examples of Module::Build Usage

Search only some directories or files:

  perldoc-search add_build_element Some/File.pm A/Directory/

 view release on metacpan or  search on metacpan

t/oddmuse-wiki.pl  view on Meta::CPAN

# Internal variables:
our ($q, $bol, $OpenPageName, %Page, %Translate, %IndexHash, @IndexList,
     @HtmlStack, @HtmlAttrStack, @Blocks, @Flags,
     %Includes, $FootnoteNumber, $CollectingJournal, $HeaderIsPrinted,
     %Locks, $Fragment, $Today, $ModulesDescription, %RssInterwikiTranslate,
     $Message, $Now, %RecentVisitors, %MyInc, $WikiDescription, %InterSite, %OldCookie);

# Can be set outside the script: $DataDir, $UseConfig, $ConfigFile, $ModuleDir,
# $ConfigPage, $AdminPass, $EditPass, $ScriptName, $FullUrl, $RunCGI.

# 1 = load config file in the data directory

t/oddmuse-wiki.pl  view on Meta::CPAN

# -1 = disabled, 0 = 10s; 1 = partial HTML cache; 2 = HTTP/1.1 caching
our $UseCache    = 2;

our $SiteName    = 'Wiki';          # Name of site (used for titles)
our $HomePage    = 'HomePage';      # Home page
our $CookieName  = 'Wiki';          # Name for this wiki (for multi-wiki sites)

our $MaxPost     = 1024 * 210;      # Maximum 210K posts (about 200K for pages)
our $StyleSheet  = '';              # URL for CSS stylesheet (like '/wiki.css')
our $StyleSheetPage = '';           # Page for CSS sheet
our $LogoUrl     = '';              # URL for site logo ('' for no logo)

t/oddmuse-wiki.pl  view on Meta::CPAN

our %Languages = ();
our @KnownLocks = qw(main diff index merge visitors); # locks to remove
our $LockExpiration = 60; # How long before expirable locks are expired
our %LockExpires = (diff=>1, index=>1, merge=>1, visitors=>1); # locks to expire after some time
our %LockCleaners = (); # What to do if a job under a lock gets a signal like SIGINT. e.g. 'diff' => \&CleanDiff
our %CookieParameters = (username=>'', pwd=>'', homepage=>'', theme=>'', css=>'', msg=>'', lang=>'', embed=>$EmbedWiki,
		     toplinkbar=>$TopLinkBar, topsearchform=>$TopSearchForm, matchingpages=>$MatchingPages, );
our %Action = (rc => \&BrowseRc,               rollback => \&DoRollback,
           browse => \&BrowseResolvedPage, maintain => \&DoMaintain,
           random => \&DoRandom,           pagelock => \&DoPageLock,
           history => \&DoHistory,         editlock => \&DoEditLock,

t/oddmuse-wiki.pl  view on Meta::CPAN

  $Message = ''; # Warnings and non-fatal errors.
  InitLinkPatterns(); # Link pattern can be changed in config files
  InitModules(); # Modules come first so that users can change module variables in config
  InitConfig(); # Config comes as early as possible; remember $q is not available here
  InitRequest(); # get $q with $MaxPost; set these in the config file
  InitCookie(); # After InitRequest, because $q is used
  InitVariables(); # After config, to change variables, after InitCookie for GetParam
}

sub InitModules {
  if ($UseConfig and $ModuleDir and IsDir($ModuleDir)) {
    foreach my $lib (Glob("$ModuleDir/*.p[ml]")) {

t/oddmuse-wiki.pl  view on Meta::CPAN

  AllPagesList() unless $id;
  InterInit() if $InterMap and (not $id or $id eq $InterMap);
  %RssInterwikiTranslate = () if not $id or $id eq $RssInterwikiTranslate; # special since rarely used
}

sub InitCookie {
  undef $q->{'.cookies'};   # Clear cache if it exists (for SpeedyCGI)
  my $cookie = $q->cookie($CookieName);
  %OldCookie = split(/$FS/, UrlDecode($cookie));
  my %provided = map { $_ => 1 } $q->param;
  for my $key (keys %OldCookie) {
    SetParam($key, $OldCookie{$key}) unless $provided{$key};
  }
  CookieUsernameFix();
  CookieRollbackFix();
}

sub CookieUsernameFix {
  # Only valid usernames get stored in the new cookie.
  my $name = GetParam('username', '');
  $q->delete('username');
  if (not $name) {
    # do nothing

t/oddmuse-wiki.pl  view on Meta::CPAN

  } else {
    SetParam('username', $name);
  }
}

sub CookieRollbackFix {
  my @rollback = grep(/rollback-(\d+)/, $q->param);
  if (@rollback and $rollback[0] =~ /(\d+)/) {
    SetParam('to', $1);
    $q->delete('action');
    SetParam('action', 'rollback');

t/oddmuse-wiki.pl  view on Meta::CPAN

    return $html;
  }
  $url = $ScriptName . (($UsePathInfo and $action !~ /=/) ? '/' : '?') . $action;
  my $nameLink = $q->a({-href=>$url}, $name);
  my %headers = (-uri=>$url);
  my $cookie = Cookie();
  $headers{-cookie} = $cookie if $cookie;
  return $q->redirect(%headers);
}

sub DoRandom {

t/oddmuse-wiki.pl  view on Meta::CPAN

  return 1 if $q->http('HTTP_IF_NONE_MATCH') and GetParam('cache', $UseCache) >= 2
    and $q->http('HTTP_IF_NONE_MATCH') eq PageEtag();
}

sub PageEtag {
  my ($changed, %params) = CookieData();
  return UrlEncode(join($FS, $LastUpdate||$Now, sort(values %params))); # no CTL in field values
}

sub FileFresh { # old files are never stale, current files are stale when the page was modified
  return 1 if $q->http('HTTP_IF_NONE_MATCH') and GetParam('cache', $UseCache) >= 2

t/oddmuse-wiki.pl  view on Meta::CPAN

    $headers{-etag} = PageEtag();
  }
  $headers{-type} = GetParam('mime-type', $type);
  $headers{-status} = $status if $status;
  $headers{-Content_Encoding} = $encoding if $encoding;
  my $cookie = Cookie();
  $headers{-cookie} = $cookie if $cookie;
  if ($q->request_method() eq 'HEAD') {
    print $q->header(%headers), "\n\n"; # add newlines for FCGI because of exit()
    exit; # total shortcut -- HEAD never expects anything other than the header!
  }
  return $q->header(%headers);
}

sub CookieData {
  my ($changed, %params);
  foreach my $key (keys %CookieParameters) {
    my $default = $CookieParameters{$key};
    my $value = GetParam($key, $default);
    $params{$key} = $value if $value ne $default;
    # The cookie is considered to have changed under the following
    # condition: If the value was already set, and the new value is
    # not the same as the old value, or if there was no old value, and
    # the new value is not the default.
    my $change = (defined $OldCookie{$key} ? ($value ne $OldCookie{$key}) : ($value ne $default));
    $changed = 1 if $change; # note if any parameter changed and needs storing
  }
  return $changed, %params;
}

sub Cookie {
  my ($changed, %params) = CookieData(); # params are URL encoded
  if ($changed) {
    my $cookie = join(UrlEncode($FS), %params); # no CTL in field values
    return $q->cookie(-name=>$CookieName, -value=>$cookie, -expires=>'+2y', secure=>$ENV{'HTTPS'}, httponly=>1);
  }
  return '';
}

sub GetHtmlHeader {   # always HTML!

t/oddmuse-wiki.pl  view on Meta::CPAN

}

sub DoPassword {
  my $id = shift;
  print GetHeader('', T('Password')), $q->start_div({-class=>'content password'});
  print $q->p(T('Your password is saved in a cookie, if you have cookies enabled. Cookies may get lost if you connect from another machine, from another account, or using another software.'));
  if (not $AdminPass and not $EditPass) {
    print $q->p(T('This site does not use admin or editor passwords.'));
  } else {
    if (UserIsAdmin()) {
      print $q->p(T('You are currently an administrator on this site.'));

 view release on metacpan or  search on metacpan

t/files/moby11.txt  view on Meta::CPAN

For to go as a passenger you must needs have a purse, and a purse is but

a rag unless you have something in it.  Besides, passengers get sea-sick--

grow quarrelsome--don't sleep of nights--do not enjoy themselves much,

as a general thing;--no, I never go as a passenger; nor, though I am

something of a salt, do I ever go to sea as a Commodore, or a Captain,

or a Cook.  I abandon the glory and distinction of such offices

to those who like them.  For my part, I abominate all honorable

respectable toils, trials, and tribulations of every kind whatsoever.

It is quite as much as I can do to take care of myself, without taking

care of ships, barques, brigs, schooners, and what not.  And as for

going as cook,--though I confess there is considerable glory in that,

t/files/moby11.txt  view on Meta::CPAN

who bore offspring themselves pregnant from her womb.

It would be a hopeless, endless task to catalogue all these things.

Let a handful suffice.  For many years past the whale-ship has

been the pioneer in ferreting out the remotest and least known

parts of the earth.  She has explored seas and archipelagoes

which had no chart, where no Cooke or Vancouver had ever sailed.

If American and European men-of-war now peacefully ride

in once savage harbors, let them fire salutes to the honor

and glory of the whale-ship, which originally showed them

the way, and first interpreted between them and the savages.

They may celebrate as they will the heroes of Exploring Expeditions,

your Cookes, Your Krusensterns; but I say that scores of anonymous

Captains have sailed out of Nantucket, that were as great,

and greater, than your Cooke and your Krusenstern.  For in

their succorless empty-handedness, they, in the heathenish

sharked waters, and by the beaches of unrecorded, javelin islands,

battled with virgin wonders and terrors that Cooke with all his

marines and muskets would not willingly have willingly dared.

All that is made such a flourish of in the old South Sea Voyages,

those things were but the life-time commonplaces of our

heroic Nantucketers.  Often, adventures which Vancouver

dedicates three chapters to, these men accounted unworthy

t/files/moby11.txt  view on Meta::CPAN

But, as yet, Stubb heeded not the mumblings of the banquet

that was going on so nigh him, no more than the sharks heeded

the smacking of his own epicurean lips.



"Cook, cook!--where's that old Fleece?" he cried at length,

widening his legs still further, as if to form a more secure

base for his supper; and, at the same time darting his fork

into the dish, as if stabbing with his lance; "cook, you cook!--

sail this way, cook!"

t/files/moby11.txt  view on Meta::CPAN

on the opposite side of Stubb's sideboard; when, with both hands

folded before him, and resting on his two-legged cane, he bowed

his arched back still further over, at the same time sideways

inclining his head, so as to bring his best ear into play.



"Cook," said Stubb, rapidly lifting a rather reddish morsel

to his mouth, "don't you think this steak is rather overdone?

You've been beating this steak too much, cook; it's too tender.

Don't I always say that to be good, a whale-steak must be tough?

There are those sharks now over the side, don't you see they

prefer it tough and rare?  What a shindy they are kicking up!

Cook, go and talk to 'em; tell 'em they are welcome to help

themselves civilly, and in moderation, but they must keep quiet.

Blast me, if I can hear my own voice.  Away, cook, and deliver

my message.  Here, take this lantern," snatching one from his sideboard;

"now then, go and preach to them!"

t/files/moby11.txt  view on Meta::CPAN

"Fellow-critters: I'se ordered here to say dat you must stop dat

dam noise dare.  You hear?  Stop dat dam smackin' ob de lips!

Massa Stubb say dat you can fill your dam bellies up to de hatchings,

but by Gor! you must stop dat dam racket!"



"Cook," here interposed Stubb, accompanying the word with a sudden slap

on the shoulder,--Cook! why, damn your eyes, you mustn't swear that way

when you're preaching.  That's no way to convert sinners, Cook!  Who dat?

Den preach to him yourself," sullenly turning to go.



No, Cook; go on, go on."



"Well, den, Belubed fellow-critters:"--



"Right!" exclaimed Stubb, approvingly, "coax 'em to it, try that,"

and Fleece continued.

t/files/moby11.txt  view on Meta::CPAN

"Do you is all sharks, and by natur wery woracious, yet I zay to you,

fellow-critters, dat dat woraciousness--'top dat dam slappin' ob de tail!

How you tink to hear, 'spose you keep up such a dam slapping

and bitin' dare?"



"Cook," cried Stubb, collaring him, "I won't have that swearing.

Talk to 'em gentlemanly."



Once more the sermon proceeded.



"Your woraciousness, fellow-critters. I don't blame ye so much for;

t/files/moby11.txt  view on Meta::CPAN

Take it, I say"--holding the tongs towards him--"take it, and taste it."



Faintly smacking his withered lips over it for a moment, the old

negro muttered, "Best cooked 'teak I eber taste; joosy, berry joosy."



"Cook," said Stubb, squaring himself once more; "do you belong

to the church?"



"Passed one once in Cape-Down," said the old man sullenly.



"And you have once in your life passed a holy church in Cape-Town,

t/files/moby11.txt  view on Meta::CPAN

As for the ends of the flukes, have them soused, cook.  There, now

ye may go."



But Fleece had hardly got three paces off, when he was recalled.



"Cook, give me cutlets for supper to-morrow night in the mid-watch. D'ye

hear? away you sail then.--Halloa! stop! make a bow before you go.--

Avast heaving again!  Whale-balls for breakfast--don't forget."



"Wish, by gor! whale eat him, 'stead of him eat whale.

I'm bressed if he ain't more of shark dan Massa Shark hisself,"

t/files/moby11.txt  view on Meta::CPAN

a silver ring grown over in it; some old darkey's wedding ring.

How did it get there?  And so they'll say in the resurrection,

when they come to fish up this old mast, and find a doubloon lodged in it,

with bedded oysters for the shaggy bark.  Oh, the gold! the precious,

precious gold!--the green miser'll hoard ye soon!  Hish! hish!

God goes 'mong the worlds blackberrying.  Cook! ho, cook! and cook us!

Jenny! hey, hey, hey, hey, hey, Jenny, Jenny! and get your hoe-cake done!"







CHAPTER 100

t/files/moby11.txt  view on Meta::CPAN

Assuredly, we must conclude so, if we are to credit the accounts

of such gentlemen as Pliny, and the ancient naturalists generally.

For Pliny tells us of Whales that embraced acres of living bulk,

and Aldrovandus of others which measured eight hundred feet in length--

Rope Walks and Thames Tunnels of Whales!  And even in the days

of Banks and Solander, Cooke's naturalists, we find a Danish member

of the Academy of Sciences setting down certain Iceland Whales

(reydan-siskur, or Wrinkled Bellies) at one hundred and twenty yards;

that is, three hundred and sixty feet.  And Lacepede,

the French naturalist, in his elaborate history of whales,

in the very beginning of his work (page 3), sets down the Right Whale

 view release on metacpan or  search on metacpan

TODO.otl  view on Meta::CPAN

			http://goessner.net/articles/JsonPath/
		[_] 0% A jcut implementation using JSON:Select.
			[_] 0% Find or write a Perl implementation or bindings for JSON::Select.
				http://jsonselect.org/
			[_] 0% Wrap a jsonselect app around it.
		[_] 0% Cookbook.

 view release on metacpan or  search on metacpan

t/cpan/Mojo2/UserAgent.pm  view on Meta::CPAN

# "Fry: Since when is the Internet about robbing people of their privacy?
#  Bender: August 6, 1991."
use Mojo::IOLoop;
use Mojo::Promise;
use Mojo::Util qw(monkey_patch term_escape);
use Mojo::UserAgent::CookieJar;
use Mojo::UserAgent::Proxy;
use Mojo::UserAgent::Server;
use Mojo::UserAgent::Transactor;
use Scalar::Util qw(weaken);

use constant DEBUG => $ENV{MOJO_CLIENT_DEBUG} || 0;

has ca                 => sub { $ENV{MOJO_CA_FILE} };
has cert               => sub { $ENV{MOJO_CERT_FILE} };
has connect_timeout    => sub { $ENV{MOJO_CONNECT_TIMEOUT} || 10 };
has cookie_jar         => sub { Mojo::UserAgent::CookieJar->new };
has inactivity_timeout => sub { $ENV{MOJO_INACTIVITY_TIMEOUT} // 40 };
has insecure           => sub { $ENV{MOJO_INSECURE} };
has 'max_response_size';
has ioloop          => sub { Mojo::IOLoop->new };
has key             => sub { $ENV{MOJO_KEY_FILE} };

t/cpan/Mojo2/UserAgent.pm  view on Meta::CPAN

For better scalability (epoll, kqueue) and to provide non-blocking name resolution, SOCKS5 as well as TLS support, the
optional modules L<EV> (4.32+), L<Net::DNS::Native> (0.15+), L<IO::Socket::Socks> (0.64+) and L<IO::Socket::SSL>
(2.009+) will be used automatically if possible. Individual features can also be disabled with the C<MOJO_NO_NNR>,
C<MOJO_NO_SOCKS> and C<MOJO_NO_TLS> environment variables.

See L<Mojolicious::Guides::Cookbook/"USER AGENT"> for more.

=head1 EVENTS

L<Mojo::UserAgent> inherits all events from L<Mojo::EventEmitter> and can emit the following new ones.

t/cpan/Mojo2/UserAgent.pm  view on Meta::CPAN

the C<MOJO_CONNECT_TIMEOUT> environment variable or C<10>.

=head2 cookie_jar

  my $cookie_jar = $ua->cookie_jar;
  $ua            = $ua->cookie_jar(Mojo::UserAgent::CookieJar->new);

Cookie jar to use for requests performed by this user agent, defaults to a L<Mojo::UserAgent::CookieJar> object.

  # Ignore all cookies
  $ua->cookie_jar->ignore(sub { 1 });

  # Ignore cookies for public suffixes

t/cpan/Mojo2/UserAgent.pm  view on Meta::CPAN

    return ($ps->public_suffix($domain))[0] eq '';
  });

  # Add custom cookie to the jar
  $ua->cookie_jar->add(
    Mojo::Cookie::Response->new(
      name   => 'foo',
      value  => 'bar',
      domain => 'docs.mojolicious.org',
      path   => '/Mojolicious'
    )

 view release on metacpan or  search on metacpan

t/retropan.t  view on Meta::CPAN

            PETDANCE/HTML-Tagset-3.20
            MIKEM/Net-SSLeay-1.66
            SULLR/IO-Socket-SSL-2.008
            GAAS/WWW-RobotRules-6.02
            GAAS/HTTP-Negotiate-6.01
            GAAS/HTTP-Cookies-6.01
            GAAS/HTTP-Daemon-6.01
            NBEBOUT/NTLM-1.09
            ABH/Mozilla-CA-20141217
            MSCHILLI/LWP-Protocol-https-6.06
            RJBS/CPAN-Uploader-0.103007