thsutton

1145 test
 904 admin
 637 a
 570 oracle
 540 net
 516 cr
 516 54
 516 45ru
 516 27
 516 179

thsutton

 1228.8G   201206150327
    1.3G   201206180153
   59.0G   201206290123
   68.0G   201207090326
   17.0G   201207160118
   30.0G   201207200747
   14.0G   201207310133
    6.6G   201208030035
   88.0G   201208100549
   55.0G   201208240537

thsutton

#!/bin/sh
#
# Generate an $N word passphrase from the words in $D.
#
N=6
D=/usr/share/dict/words
R=/dev/random
L=$(cat $D | wc -l)
od -An -tu4 -N $(expr $N \* 4) $R | \
  xargs -n 1 -I @ sh -c "head -n \$(expr @ % $L) $D | tail -1" | \

thsutton

<?php
require_once __DIR__.'/vendor/autoload.php';

use Symfony\Component\HttpFoundation\Request;
use Symfony\Component\Routing\Route;
use Symfony\Component\Routing\RouteCollection;
use Symfony\Component\Routing\Matcher\UrlMatcher;
use Symfony\Component\Routing\RequestContext;
use Symfony\Component\HttpFoundation\Response;
use Symfony\Component\HttpKernel\HttpKernel;

thsutton

diff --git a/htdocs/modules/user/user.js b/htdocs/modules/user/user.js
index d182066..e5e5abc 100644
--- a/htdocs/modules/user/user.js
+++ b/htdocs/modules/user/user.js
@@ -52,6 +52,11 @@ Drupal.behaviors.password = {
         // Update the strength indication text.
         $(innerWrapper).find('.password-strength-text').html(result.indicatorText);
 
+        $(innerWrapper).find('div.password-strength')
+          .removeClass('password-strength-error')

thsutton

splitInto :: Int -> [a] -> [[a]]
splitInto n l
  | n <= 0 = error "splitInto: n < 1"
splitInto n [] = []
splitInto n l = case splitAt n l of
  (c, []) -> [c]
  (c, r ) -> c:(splitInto n r)

thsutton

#!/bin/sh
#
# fixpacktepubs.sh 
#
# Process the EPUB files in the current directory and recreate them with the
# ISBN as the unique value. This script was written because Packt Publishing
# sell EPUBs with non-unique unique identifiers and it assumes that the EPUBs
# being process are structured like Packt's.
#

thsutton

#!/bin/sh
#
# This script will hold your hand during the process of converting an existing Drupal 7 file field from public to private.
# 
# http://twitter.com/thsutton
# http://www.linkedin.com/pub/thomas-sutton/55/391/350
# http://thomas-sutton.id.au/

set -eu

thsutton

This is a Literate Haskell file: lines begining with `>` are Haskell
code and other lines are just plain old text (Markdown, actually). If
you save this file with a `.lhs` extension, the Haskell tools will all
run it just like a normal `.hs` file.

We're going to generate lists of random numbers and will need a few
helpful functions from the standard library:

> import Data.List (unfoldr)
> import System.Random

thsutton

{-# LANGUAGE GeneralizedNewtypeDeriving #-}

module Main where

import Control.Applicative
import Control.Monad.Except
import Control.Monad.IO.Class ()
import Control.Monad.Reader
import Control.Monad.Writer