goerz

#!/usr/bin/perl
use strict;
# Author: Michael Goerz <goerz@physik.fu-berlin.de>
# Make sure that $kextfile is owned by root!

my $app      = '/Applications/InsomniaX.app';
my $kextfile = "$app/Contents/Resources/Insomnia_r6.kext/";

sub close_insomnia_x{
    my $ps_line = `ps -A | grep $app | grep -v grep`;

goerz

#!/usr/bin/perl -w
use strict;
use utf8;
############################################################################
#    Copyright (C) 2008 by Michael Goerz                                   #
#    http://www.physik.fu-berlin.de/~mgoerz                                #
#                                                                          #
#    This program is free software; you can redistribute it and/or modify  #
#    it under the terms of the GNU General Public License as published by  #
#    the Free Software Foundation; either version 3 of the License, or     #

goerz

#!/usr/bin/perl -w
use strict;
# This program adds a function 'printself' to the end of an existing
# perl program, which prints out the entire program's listing. This
# will make the existing program to be a Quine

# (c)2006 Michael Goerz
# michaelgoerz.net

#     This program is free software; you can redistribute it and/or modify

goerz

#!/usr/bin/perl -w
use strict;

my $historyfile = glob '~/.filter.pl.last';

my $command = "";

system("touch $historyfile");
open(HIST,  "$historyfile")   or die "Can't open file: $!";
$command  = <HIST>;

goerz

#!/usr/bin/perl -w
use strict;

my $recursive = 'true';
md5sum(\@ARGV);

sub md5sum{
    my $filelist = shift;
    foreach my $file (@{$filelist}){
        if ( -f $file ){

goerz

#!/usr/bin/perl -w
use strict;

my $recursive = 'false';
if ($ARGV[0] eq '-r') {
    $recursive = shift @ARGV;
    $recursive = 'true';
}
decrypt(\@ARGV);

goerz

#!/usr/bin/perl -w
use strict;
use threads;
# (c) 2007 Michael Goerz <goerz@physik.fu-berlin.de>

# usage:
# scan [pdffile]

# Prerequisites:
#     iText   (http://www.lowagie.com/iText/)

goerz

#!/usr/bin/perl -w
use strict;

my %files;

my @ignorepatterns = ();

my $defaultselection = 0;

goerz

#!/usr/bin/perl -w
use strict;

my @devicelist = </dev/sdb?>;                   # order is important: first found device ist default
my %mountpaths = ( qr"/dev/sd??" => '/mnt' );   # default paths
my $UID        = 'goerz';                       # the user id the device is mounted as
my $GID        = 'users';                       # the group id the device is mounted as
my $FMASK      = '000';                         # the permissions of the mounted device (masked)
my $UMOUNT     = '/home/goerz/bin/umountstick'; # the name of the script that should be written for umounting
my $TRFILE     = '/home/goerz/.usbmounts';      # file used for tracking which devices are mounted

goerz

#!/bin/sh
#
# An example hook script to verify what is about to be committed.
# Called by git-commit with no arguments.  The hook should
# exit with non-zero status after issuing an appropriate message if
# it wants to stop the commit.
#
# To enable this hook, make this file executable.

# This is slightly modified from Andrew Morton's Perfect Patch.