waffle2k

#!/usr/bin/perl
#
# Get a list of second level domains, by screen scraping wikipedia
#
# pete (at) killallhumans (dot) ca


# First, get a list of all TLDs from:
#       http://data.iana.org/TLD/tlds-alpha-by-domain.txt

waffle2k

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

my @in = qw/foo bar Foo chum blatz grim nuuts/;

my %h = map{ lc( $_ ), 1 } @in;

print "$_\n"
        for sort keys %h;

waffle2k

--- Hotmail.pm.orig     2010-03-25 13:35:15.000000000 +0000
+++ /home/fbl/lib/Email/ARF/Hotmail.pm  2010-04-06 17:28:24.000000000 +0000
@@ -30,13 +30,17 @@
 our $VERSION = '0.04';
 $VERSION = eval $VERSION;
 
+sub extract_hotmail_inline_attachment {
+
+}
+

waffle2k

#!/bin/bash
# color-echo.sh: Echoing text messages in color.

# Modify this script for your own purposes.
# It's easier than hand-coding color.

black='\E[30;40m'
red='\E[31;40m'
green='\E[32;40m'
yellow='\E[33;40m'

waffle2k

#!/usr/bin/perl
#
# A simple little script to send back a vaction message.  Requires procmail to wrap around it.
#
use strict;
use Email::Simple;
use MIME::Lite;

sub check_for_sender( $ ){
	my ($sender) = @_;

waffle2k

#!/usr/bin/perl
#
# Parse some file or text, looking for what would appear to be a valid
# RFC-821 style email header.  Attempt to pull out the DKIM-Signature
# portion of that file and print it.
#
# Author:	pete (at) killallhumans (dot) ca

use strict;

waffle2k

#!/usr/bin/perl
use strict;
use Data::Dumper;
use Email::Simple;
use Term::ANSIColor qw(:constants);
use MIME::Base64;
use Digest::SHA1  qw(sha1 sha1_hex sha1_base64);
use Digest::SHA qw(sha256_hex sha256);
use Socket qw(:crlf);
use Getopt::Long;

waffle2k

#!/usr/bin/python

import getpass, imaplib, time
import create_sub
import sys

lt = time.localtime()
sztime = time.strftime('%Y.%m.%d')

class IMAPReporting:

waffle2k

#!/usr/bin/perl
#
# This is my "fuck you fb.com" script.  It will generate a bounce
# message to the FB user if they try to email me.

use strict;
use lib('/home/popcorn/lib');
use Email::Simple;
use MIME::Lite;
use Data::Dumper;

waffle2k

TIME=`date +%Y-%m-%d-%H`

# Yahoo!'s FBL
:0
* ^To: redacted\.yahoo\.address@domain
{
        :0
        /home/fbl/yahoo/$TIME/.
}