zachwalton

use strict;

use vars qw($VERSION %IRSSI);
$VERSION = '0.0.1';
%IRSSI = (
    authors     => '',
    contact     => '',
    name        => 'fix_dropbox',
    description => 'unfuck dropbox urls',
    license     => '',

zachwalton

import pprint
import string
import sys

HAS_LEFT_CHILD = 1 << 7
HAS_RIGHT_CHILD = 3 << 6
HAS_BOTH_CHILDREN = 1 << 6
HAS_NO_CHILDREN = ~(3 << 6)

zachwalton

use vars qw($VERSION %IRSSI);
use Irssi qw(command_bind);
 
my $VERSION = '1.00';
my %IRSSI =
(
    authors => 'Zach Walton',
    contact => 'zacwalt@gmail.com',
    name        => 'birdsummoner',
    description => 'Summon jonEbird back to #linux',

zachwalton

There's no "right" way to do this, so...

When you lazily umount a filesystem in Linux, procfs changes /proc/pid/fd/* from absolute to relative paths. E.g. if you have a tail open on the FS:

[uid] 31624 0.0  0.0 100924  616 pts/86   Ss+  10:12   0:00 tail -f /mnt/test
$ readlink /proc/31624/fd/3
/mnt/test

Then lazily umount the FS:

zachwalton

dd if=/dev/sda \
   of=/dev/stdout \
   bs=512 \
   skip=$( \
      dc -e " 16i $( \
         dd if=/dev/sda \
            of=/dev/stdout \
            bs=512 \
            count=1 2> /dev/null \
            | hexdump -C \

zachwalton

//
// asm_release.c
//
// Releases disks from ASM after removing them from a disk group by utilizing the
// oracleasm ABI.
//
// Usage: ./asm_release ASMXXXXXX 
// - where ASMXXXXXX is the ASM disk name.
//
// Constructed with help from the following article:

zachwalton

class Listener(object):
    """
    This accepts a list of `commands` and associated `responses` and opens a
    socket on `port`.  It then listens for any of the commands and dumps
    the associated response.

    Example:

    Listener.listen(port=57359, 
                    commands = [  "give_me_your_name",

zachwalton

Modified from http://lemonnier.se/erwan/blog/item/45/
 
#
# connTest is our decorator subroutine.
#
sub connTest {
    my $f = @_;
    return sub {
        &$f();
    }