wilsonpage

// module dependencies
var http = require('http'),
    url = require('url');


 /**
  * UrlReq - Wraps the http.request function making it nice for unit testing APIs.
  * 
  * @param  {string}   reqUrl   The required url in any form
  * @param  {object}   options  An options object (this is optional)

melo

# the fpic is needed for mod_perl
# so is usesshrplib
# use 64bitall just makes sense as uselargefiles
# the ldflags mimic the settings of the system perl


  perlbrew install -j 8 5.14.2  \
       -Dcccdlflags=-fPIC       \
       -Duseshrplib             \
       -Duse64bitall            \

olegwtf

use strict;
use Tie::IxHash;
use JSON::PP;

# magic start

my $obj_parser_sub = \&JSON::PP::object;
*JSON::PP::object = sub {
	tie my %obj, 'Tie::IxHash';
	$obj_parser_sub->(\%obj);

rodchyn

#!/bin/sh
opkg update
PACKAGES=`opkg --force-space --noaction install $1 | grep http | cut -f 2 -d ' ' | sed 's/.$//'`
for i in $PACKAGES
do
        LIST=`wget -qO- $i | tar -Oxz ./data.tar.gz | tar -tz | sort -r | sed 's/^./\/overlay/'`
        for f in $LIST
        do
                if [ -f $f ]
                then

joemiller

#!/bin/bash


if [ -z "$1" ]; then
        echo
        echo usage: $0 network-interface
        echo
        echo e.g. $0 eth0
        echo
        echo shows packets-per-second

waylan

#!/bin/sh

ProgName=$(basename $0)
  
sub_help(){
    echo "Usage: $ProgName <subcommand> [options]\n"
    echo "Subcommands:"
    echo "    bar   Do bar"
    echo "    baz   Run baz"
    echo ""

kazeburo

use Plack::App::CGIBin;
use Plack::App::PHPCGI;
use Plack::Builder;
use File::Zglob;

my $cgibin = Plack::App::CGIBin->new(
    root => "/usr/local/nagios/sbin",
    exec_cb => sub { my $file = shift; $file =~ m!\.cgi$! and -x $file },
)->to_app;
my $static = Plack::App::File->new(root => "/usr/local/nagios/share")->to_app;

tsee

#define NW 0
#define NE 1
#define SW 2
#define SE 3

#include <math.h>
#include <limits.h>
#include <stdlib.h>

#include <EXTERN.h>

krimdomu

# Rexfile

use Expect;

set connection => "OpenSSH";

my $expect_timeout = 5;
my $git_password = 'f00b4r';
my $sudo_password = 'test';

dwarring

use v6;

grammar Brainfuck::Grammar {
    rule TOP {^ [<cmd> || .+? ]* $}
    proto token cmd { <...> }
    token cmd:sym<ptr-inc>  {\>}
    token cmd:sym<ptr-dec>  {\<}
    token cmd:sym<inc>      {\+}
    token cmd:sym<dec>      {\-}
    token cmd:sym<input>    {\,}