waffle2k

#!/usr/bin/python
import json

class AuthenticationException( Exception ):
        pass

def loginrequired( fn ):
        def wrapper( *args, **kwargs ):
                print "args:",args
                print "kwargs:",kwargs

waffle2k

#!/bin/bash
# --- Command line
refname="$1"
oldrev="$2"
newrev="$3"

echo "> $refname"
echo "> $oldrev"
echo "> $newrev"

waffle2k

#!/usr/bin/env ruby

class Milk
        def self.cost
                puts "  with Milk"
                0.2
        end
end

class Sugar

waffle2k

#!/bin/bash

# This will create a new repository, with a sample README, and clone it
# to a default location

PROJNAME=$1

if [ -d /home/git/tmp/$PROJNAME ]; then
        echo "Project by that name already exists"
        exit 1

waffle2k

#!/usr/bin/perl
use POSIX qw(setuid getuid);

my $w = scalar getpwuid( $< );

if( $w eq 'root' ){
        print "Hey, you're root... let's try to become 'abuse'\n";

        # become user abuse
        my ($pwName, $pwCode, $pwUid, $pwGid, $pwQuota, $pwComment,

waffle2k

#!/usr/bin/perl

my $input = do { local $/; <>; };

# Strip out the boiler plate...
$input =~ s/(\nNOTE:\s+Please respect.*?DOESN'T APPEAR TWICE IN YOUR POST\n)//s;

print $input;
exit(0);

waffle2k

#!/usr/bin/python
import sys
from json_decorator import *

a = [ None,1,2,3,4,5,"foobar", { 'ya': 'right' },]

@jsonify
def something(obj):
        return obj

waffle2k

import json

class jsonify( object ):

        def __init__(self,f):
                self.f = f

        def __call__(self, *args, **kwargs ):
                results = self.f(*args, **kwargs)
                j = json.dumps( results )

waffle2k

#!/usr/bin/perl
use strict;
use lib( "/home/pblair/lp.beta/logparse/lib" );
use File::Glob ':glob';
use RBL::ProcessAggregate;
use RBL::Whitelist;

my @libs = bsd_glob('/home/pblair/lp.beta/logparse/lib/RBL/ProcessAggregate/*.pm');
s/.*\/(\S+?)\.pm$/$1/ for @libs;
eval "require RBL::ProcessAggregate::$_" for @libs;

waffle2k

#!/usr/bin/perl
use strict;
use IP::Country::Fast;

my $reg = IP::Country::Fast->new();

my $input = do { local $/; <>; };
my @ips = $input =~ /(.*?)(?:\/\d+)?\s/sg;

my %cc = map { $_ => $reg->inet_atocc($_) } @ips;