adeolaawoyemi

/* 
html5doctor.com Reset Stylesheet
v1.6.1
Last Updated: 2010-09-17
Author: Richard Clark - http://richclarkdesign.com 
Twitter: @rich_clark
*/

html, body, div, span, object, iframe,
h1, h2, h3, h4, h5, h6, p, blockquote, pre,

adeolaawoyemi

/* For modern browsers */
.cf:before,
.cf:after {
    content:"";
    display:table;
}

.cf:after {
    clear:both;
}

adeolaawoyemi

var bindTimer = setInterval(function() {
    if ("undefined" != typeof jQuery && isMobileDevice) {
        $('.myclass').bind('click', clickHandlerToMobilePage);
        clearTimeout(bindTimer);
    }
}, 50);

adeolaawoyemi

    getPhotoWithTransformations : function(id, forceFetch)
    {
        if(forceFetch || !(photo = pbx.babel.photos[id]))
        {
            photo = pbx.babel.callBabel('Community.Photo.Fetch', {
                    objectid : id,
    	    	    object_property_filter : ['transformation', 'is_edited']
                    //object_property_filter : { ':default' : { ':standard' : 't', 'transformation' : 'r', 'is_edited' : 'r' } }                                                  
                }).response;
            pbx.babel.photos[id] = photo;

adeolaawoyemi

Object.prototype.getName = function() { 
   var funcNameRegex = /function (.{1,})\(/;
   var results = (funcNameRegex).exec((this).constructor.toString());
   return (results && results.length > 1) ? results[1] : "";
};

adeolaawoyemi

#!/opt/local/bin/perl

use strict;
use warnings;
use Test::More;

my $name = 'barney';
my $status = 'in trouble';
ok($name, 'we have $name');
isnt($name, '', "\$name isn't empty");

adeolaawoyemi

sub new {
    my $self = shift;
    my $args = @_ && ref $_[0] eq 'HASH' ? shift : { @_ };
    my $class = ref($self) || $self;
    return bless $args, $class;
}

adeolaawoyemi

# script to ping server for activity
# Author: Adeola Awoyemi ([email protected])

require 'net/http'
require 'uri'

urls = [
	'http://www.photobox.co.uk/',
	'http://www.idontexist.co.uk/'
	]

adeolaawoyemi

;; hilight some useful keywords                                                                                                                                              
(set-face-background 'font-lock-warning-face "yellow")
(set-face-foreground 'font-lock-warning-face "black")
(add-hook 'font-lock-mode-hook
               (lambda ()
                (font-lock-add-keywords nil
                 '(("\\<\\(FIXME\\|TODO\\|BUG\\):" 1 font-lock-warning-face prepend)))))

adeolaawoyemi

#!/usr/bin/perl

use strict;
use warnings;
use lib 'lib';
use Test::WWW::Selenium;
use WWW::Selenium::Util qw(server_is_running);
use Test::More;

my ($host, $port) = server_is_running();