Skip to content

Instantly share code, notes, and snippets.

use lib '/data/WebGUI/lib';
use warnings;
use strict;
use Time::HiRes qw(usleep);
use WebGUI::Session;
use WebGUI::Asset;
use Devel::Gladiator qw(walk_arena);
use Devel::Size qw(size total_size);
Starting WebGUI 7.9.6
Loading core.conf
Cycle (1):
$WebGUI::Asset::Snippet::A->{'_session'} => \%WebGUI::Session::B
$WebGUI::Session::B->{'_asset'} => \%WebGUI::Asset::Snippet::A
Cycle (2):
$WebGUI::Asset::Snippet::A->{'_session'} => \%WebGUI::Session::B
$WebGUI::Session::B->{'_db'} => \%WebGUI::SQL::C
#!/usr/bin/env perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com [email protected]
package MyAwesomeCookies;
my %cookies = ();
sub read_cookies {
# .. pass in $query
$cookies{name} = $query->cookie('name');
}
sub set_cookie {
./t/POD.t (Wstat: 2048 Tests: 497 Failed: 8)
Failed tests: 234, 237, 323-327, 392
Non-zero exit status: 8
./t/Spectre/Workflow.t (Wstat: 0 Tests: 19 Failed: 0)
TODO passed: 8-19
./t/VersionTag.t (Wstat: 512 Tests: 47 Failed: 0)
Non-zero exit status: 2
Parse errors: Bad plan. You planned 85 tests but ran 47.
./t/i18n/template.t (Wstat: 256 Tests: 1105 Failed: 1)
Failed test: 491
mimi:WebGUI(8-merge) doug$ git push upstream WebGUI8
error: src refspec WebGUI8 does not match any.
error: failed to push some refs to '[email protected]:plainblack/webgui.git'
Jul 15 19:30:44 hostname73571 sshd[15492]: pam_unix(sshd:session): session opened for user frank by frank(uid=502)
Jul 15 19:30:44 hostname73571 sshd[15492]: pam_loginuid(sshd:session): set_loginuid failed opening loginuid
Jul 15 19:30:44 hostname73571 sshd[15492]: pam_loginuid(sshd:session): set_loginuid failed
# As rotations get later, distance gets longer:
# 7 rotations are latest, 6 daily
# 10 rotations are latest, 6 daily and 3 weekly (a full month of coverage)
# 15 rotations are latest, 6 daily, 3 weekly, and 5 monthly (6 full months)
use DateTime;
my $MAX_DAYS = 7;
my $MAX_WEEKS = 4;
sub get_rotation_dates {
my ($dt_today, $num) = @_;
var makeScopedFormatter = function ( scope, func ) {
return function() { func.apply( scope, arguments ) }
};
var formatter = makeScopedFormatter( this, this.formatSomething );
use strict;
use warnings;
use Config::JSON;
for my $file ( @ARGV ) {
my $conf = Config::JSON->new( $file );
$conf->set('cacheType' => 'WebGUI::Cache::CHI');
$conf->set('cache' => {