Skip to content

Instantly share code, notes, and snippets.

<?xml version="1.0" encoding="utf-8"?>
<!-- HelloWorld.mxml -->
<s:Application
xmlns:fx="http://ns.adobe.com/mxml/2009"
xmlns:s="library://ns.adobe.com/flex/spark"
xmlns:mx="library://ns.adobe.com/flex/mx"
width="200" height="160">
<s:Panel title="My Application" width="100%">
<s:layout>
<s:VerticalLayout paddingTop="10" horizontalAlign="center"/>
"cache" : {
"driver" : "FastMmap",
"expires_variance" : "0.10"
},
Host alumni *.alumni brunswickbowling.com cold dark dusk elitedesignsltd.com fog frost frozen medintellibasealerts.com mlri.org thegamecrafter.com server2.elitedesignsltd.com server29 server39 server40 mymhmin.org sge.plainblack.net ewc.edu hmgs-crs.org iccbba.plainblack.net qa.thegamecrafter.com smoke www2.acornnetsec.com zabbix thegamecrafter.com
User doug
ProxyCommand ssh dusk.plainblack.com "nc %h %p" 2>/dev/null
/**
* makeEditAsset( url )
* Create a callback to edit an asset. Use when attaching to event listeners
*/
WebGUI.Admin.prototype.makeEditAsset
= function (url) {
var self = this; // Scope correction
return function() {
self.editAsset( url );
package WhatsMyName;
use Moose;
extends 'WebGUI::Wizard';
# Define our steps
has '+steps' => {
default => [qw( askForName respond )],
};
package WebGUI::Content::Wizard;
sub process {
my ( $session ) = @_;
if ( $session->form->get('op') eq 'wizard' && my $class = $session->form->get('wizard_class') ) {
WebGUI::Pluggable->load($class);
if ( $class->isa( 'WebGUI::Wizard' ) {
my $wizard = $class->new( $session );
return $class->dispatch;
@preaction
preaction / classLoadTest.pl
Created May 20, 2010 16:03
Test all the assets of a given class on a single site
use lib "/data/WebGUI/lib";
use strict;
use Getopt::Long;
use WebGUI::Session;
use Time::HiRes;
foreach my $libDir ( readLines( "/data/WebGUI/sbin/preload.custom" ) ) {
if ( !-d $libDir ) {
warn "WARNING: Not adding lib directory '$libDir' from /data/WebGUI/sbin/preload.custom: Directory does not exist.\n";
Starting WebGUI 7.9.6
Loading core.conf
$VAR1 = {
'REF-MIME::WordDecoder::US_ASCII' => 1,
'CHI::Stats' => 1,
'WebGUI::Config' => 1,
'Config' => 1,
'Log::Log4perl::Appender' => 2,
'Log::Log4perl::Appender::File' => 1,
Starting WebGUI 7.9.6
Loading core.conf
CHI::Stats 1
REF-Class::MOP::Attribute 7
REF-Moose::Meta::TypeConstraint::Role 4
REF-Moose::Meta::Role::Attribute 13
Moose::Meta::Role::Composite 1
REF-DateTime 2
HASH 455
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);