Evan Sultanik's Page of Personal Deification

i.e. · the use of mice is less efficient, in most general cases, than a finite (read: keyboard) alternative/equivalent

$ mkdir -p ~/projects/iphone/
$ cd ~/projects/iphone/toolchain
$ svn checkout http://iphonedevonlinux.googlecode.com/svn/trunk/ ./

http://www.theiphonewiki.com/wiki/index.php?title=VFDecrypt_Keys:_2.x
$ chmod u+x toolchain.sh
$ mkdir -p files/firmware
$ mkdir -p sdks

$ java -jar hfsx.jar

$ cd ~/projects/iphone/toolchain/sdks
$ xar -xf iphone.pkg Payload
$ cat Payload | zcat | cpio -id
$ mv -f mv -f Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS*.sdk .
$ xar -xf macosx.pkg Payload
$ cat Payload | zcat | cpio -id
$ mv -f SDKs/MacOSX10.*.sdk .

$ cd ~/projects/iphone/toolchain/files/firmware

$ cd ~/projects/iphone/toolchain/
$ ./toolchain.sh headers
$ ./toolchain.sh firmware
$ ./toolchain.sh darwin_sources
$ ./toolchain.sh build

$ ./toolchain.sh clean

$ filedrop
Version: filedrop 0.1 2009-07-01 http://www.sultanik.com/
Copyright (C) 2009 Evan A. Sultanik

Usage: filedrop [OPTIONS] FILE_PATH

Options:
  -s           send a file by hosting it on a local web server (default)
  -r           receive a file by accepting it from a local web server.
               FILE_PATH should be a directory to which the files should be
               saved.  FILE_PATH will default to '.' in this mode.
  -n, --num=N  quit after sending/receiving N files.  If N is less than zero
               the program will send/receive files until manually
               terminated.  If N is zero then the program will immediately
               quit.  Default is -1.

$ filedrop -s -n1 ./hugefile.tar.gz
Server running at: http://my_ip:47489/

#!/usr/bin/perl -w

use HTTP::Daemon;
use HTTP::Status;

my $version = "0.1";
my $date = "2009-07-01";
my $copyright = "2009";

my $port = 80;

sub print_usage {
    print "Version: filedrop $version $date http://www.sultanik.com/\n";
    print "Copyright (C) $copyright Evan A. Sultanik\n\n";
    print "Usage: filedrop [OPTIONS] FILE_PATH\n\n";
    print "Options:\n";
    print "  -s           send a file by hosting it on a local web server (default)\n";
    print "  -r           receive a file by accepting it from a local web server.\n";
    print "               FILE_PATH should be a directory to which the files should be\n";
    print "               saved.  FILE_PATH will default to '.' in this mode.\n";
    print "  -n, --num=N  quit after sending/receiving N files.  If N is less than zero\n";
    print "               the program will send/receive files until manually\n";
    print "               terminated.  If N is zero then the program will immediately\n";
    print "               quit.  Default is -1.\n";
    print "\n";
}

my $mode = "s";
my $num = -1;

my $last = "";
my $nextIsN = 0;
foreach my $arg (@ARGV) {
    if($arg eq "-s") {
        $mode = "s";
    } elsif($arg eq "-r") {
        $mode = "r";
    } elsif($arg eq "-n") {
        $nextIsN = 1;
        next;
    } elsif($arg =~ /-n(\d+)/) {
        $num = $1;
    } elsif($arg =~ m/--num=(\d+)/) {
        $num = $1;
    } elsif($nextIsN) {
        $num = $arg;
    } else {
        if(!($last eq "")) {
            print_usage() && die("Invalid option: " . $last . "\n");
        }
        $last = $arg;
    }
    $nextIsN = 0;
}
if($last eq "" && $mode eq "s") {
    print_usage() && die("Path to a file to host expected!\n");
} elsif($last eq "" && $mode eq "r") {
    $last = ".";
}

my $file = $last;

exit(0) if($num == 0);

my $d = HTTP::Daemon->new(LocalPort => $port) || HTTP::Daemon->new() || die;
print "Server running at: ", $d->url, "\n";
my $servings = 0;
while(my $c = $d->accept) {
    while(my $r = $c->get_request) {
        if($mode eq "s") {
            if($r->method eq 'GET') {
                print "Someone's downloading!\n";
                $c->send_file_response($file);
                print "Download finished!\n";
                $servings++;
            } else {
                $c->send_error(RC_FORBIDDEN)
            }
        } elsif($mode eq "r") {
            if($r->method eq 'POST') {
                print "Someone is uploading!\n";
                $servings++;
                my $url = $r->content;
                while($url =~ m/.*?-+(\d+)\r\nContent-Disposition:.*? filename="([^"]+)".*?\r\n\r\n(.*?)\r\n-+\1-+(.*)$/ism){
                    my $id = $1;
                    my $filename = $2;
                    my $content = $3;
                    $url = $4;
                    my $newName = $filename;
                    my $i = 0;
                    $newName = $filename . "." . ++$i while(-e $file . "/" . $newName);
                    if($i > 0) {
                        print "A file of named $filename already exists in $file!\n";
                        print "Saving to " . $file . "/" . $newName . " instead.\n";
                        $filename = $newName;
                    }
                    open(OUTFILE,">" . $file . "/" . $filename) or die("Error opening $file/$filename for writing!\n");
                    binmode OUTFILE;
                    print OUTFILE $content;
                    close(OUTFILE);
                    print "Received $filename (ID: $id)\n";                    
                }
                $h = HTTP::Headers->new;
                $h->header('Content-Type' => 'text/html');
                my $msg = "<html><head><title>Uploaded</title></head><body><h1>Uploaded!</h1>";
                $msg .= "<p><a href=\"/\">Click here</a> to upload another file.</p>" if($num < 0 || $servings < $num);
                $msg .= "</body></html>";
                $r = HTTP::Response->new( HTTP_OK, "", $h, $msg);
                $c->send_response($r);                
            } elsif($r->method eq 'GET') {
                print "Someone connected!  Sending the upload form...\n";
                $h = HTTP::Headers->new;
                $h->header('Content-Type' => 'text/html');
                $r = HTTP::Response->new( HTTP_OK, "", $h, "<html><head><title>Upload</title></head><body><form name=\"upload\" action=\"/\" enctype=\"multipart/form-data\" method=\"POST\">
<p>
Please specify a file, or a set of files:<br>
<input type=\"file\" name=\"datafile\" size=\"40\">
</p>
<div>
<input type=\"submit\" value=\"Upload\">
</div>
</form></body></html>");
                $c->send_response($r);
                print "Sent!\n";
            } else {
                $c->send_error(RC_FORBIDDEN);
            }
            last if($num > 0 && $servings >= $num);            
        }
        last if($num > 0 && $servings >= $num);
    }
    $c->close;
    undef($c);
    last if($num > 0 && $servings >= $num);
}

close($d);
#!/usr/bin/perl -w

use Term::ReadKey;	END { ReadMode ('restore'); }	# just in case
use Mail::IMAPClient;
use IO::Socket::SSL;
use File::HomeDir;

my $username = 'youremail@domain.com';
my $sleeptime = 180; # Time between checks, in seconds.
my $conffile = File::HomeDir->my_home . "/.checkmail";

######################################################

$canceled = 0;
$inwhile = 0;

sub get_passwd {
    # legal clear passwd chrs (26+26+10+24=86): "a-zA-Z0-9!#$%&()*+,-./:;<=> ?@[\]^";
    my @legal_clear = ('a'..'z', 'A'..'Z', '0'..'9', split //,
                       '!#$%&()*+,-./:;<=> ?@[\]^');
    my %legal_clear; foreach (@legal_clear) { $legal_clear{$_} = 1; }
    $| = 1;	# unbuffer stdout to force unterminated line out
    ReadMode ('cbreak');
    my $ch = '';
    while (defined ($ch = ReadKey ())) {
	last if $ch eq "\x0D" or $ch eq "\x0A";
	if ($ch eq "\x08") {	# backspace
            print "\b \b" if $passwd;	# back up 1
            chop $passwd;
            next;
	}
	if ($ch eq "\x15") {	# ^U
            print "\b \b" x length $passwd;	# back 1 for each char
            $passwd = '';
            next;
	}
	if (not exists $legal_clear{$ch}) {
            print "\n'$ch' not a legal password character\n";
            print 'Password: ';
            next;
	}
	$passwd .= $ch;
    }
    print "\n";
    ReadMode ('restore');
    return $passwd;
}

$SIG{'INT'} = 'INT_handler';

sub INT_handler {
    exit(0) if(!$inwhile);
    $canceled = 1;
    print "\nCaught Signal; exiting gracefully!\n";
}

print "Password: ";
my $password = &get_passwd();

while(!$canceled) {
    $inwhile = 1;

    my $socket = IO::Socket::SSL->new(
        PeerAddr => 'imap.gmail.com',
        PeerPort => 993,
        )
        or (print STDERR "Warning: lost internet connection!\n" && next); # Perhaps we lost the internet connection?
    my $greeting = <$socket>;
    my ($id, $answer) = split /\s+/, $greeting;
    die "problems logging in: $greeting" if $answer ne 'OK';

    my $client = Mail::IMAPClient->new(
        Socket   => $socket,
        User     => $username,
        Password => $password,
        Uid => 1,
        )
        or die "new(): $@";
    $client->State(Mail::IMAPClient::Connected());
    $client->login() or die 'login(): ' . $client->LastError();

    die("Failed authentication!\n") unless $client->IsAuthenticated();

    $client->examine('INBOX') or die "Could not examine: $@\n";
    my @msgs = $client->unseen or die "Could not search the inbox! $@\n";

    my $last_max = -2;
    if(-e $conffile) {
        # Load the old largest
        open(CONFFILE, "<" . $conffile) or die("Error opening " . $conffile . "\n");
        while(<CONFFILE>) {
            my $line = $_;
            $last_max = $1 if($line =~ /^\s*last_max_uid\s*=\s*(\d+)\s*$/i);
        }
        close(CONFFILE);
    }

    my $max = -1;
    my @over;
    for my $msg (@msgs) {
        $max = $msg if $msg > $max;
        push(@over, $msg) if $msg > $last_max;
    }

    if($max >= 0) {
        open(CONFFILE, ">" . $conffile) or die("Error opening $conffile for writing!\n");
        print CONFFILE "last_max_uid = " . $max . "\n";
        close(CONFFILE);
    }

    if($last_max >= 0) {
        open(OSDC, "| osd_cat -c green -p middle -A center -s 2 -l 5 -f \"-bitstream-bitstream vera serif-*-*-*-*-17-*-*-*-*-*-*-*\"");
        for my $m (@over) {
            my $hashref = $client->parse_headers($m, "From")
                or die "Could not parse_headers: $@\n";
            print OSDC "New mail from " . $hashref->{"From"}->[0] . "!\n";
        }
        close(OSDC);
    }

    $client->logout();
    sleep $sleeptime;
}
$ ./run_experiments&
[1] 1337
$ emailwhendone 1337
Awaiting process 1337's death...

$ ./run_experiments&
[1] 1337
$ emailwhendone 1337
Password for youremail@domain.com: *******************
Waiting for process 1337 (run_experiments) to finish...
The process finished!
Sending an email to youremail@domain.com...
$

#!/usr/bin/perl -w

use Net::SMTP::SSL;
use Term::ReadKey;	END { ReadMode ('restore'); }	# just in case

my $destination = 'youremail@domain.com';
my $server = 'smtp.domain.com';
my $port = 465;

#####################################

sub usage {
    print " Usage: emailwhendone [PID|PROCESS_NAME]\n";
}

my $pid = $ARGV[0] or die &usage();
my $hostname = `hostname`;
my $pidmatch = -1;
my $processmatch = "";
my @pidmatches;

open PRO, "/bin/ps axo pid,comm |" or die 'Failed to open pipe to `ps`';

while(<PRO>) {
    if($_ =~ m/^\s*(\d+)\s+(.+)$/) {
        my $matchpid = $1;
        my $matchprocess = $2;
        if($matchpid eq $pid) {
            $pidmatch = $matchpid;
            $processmatch = $matchprocess;
            @pidmatches = [$matchpid];
            last;
        } elsif($pid =~ m/^\s*$matchprocess\s*$/) {
            $pidmatch = $matchpid;
            push(@pidmatches, $matchpid);
            $processmatch = $matchprocess;
        }
    }
}

close PRO;

if(scalar(@pidmatches) <= 0) {
    if($pid =~ m/^\s*\d+\s*$/) {
        print "Error: no process with ID " . $pid . "!\n";
    } else {
        print "Error: no process named \"" . $pid . "\"!\n";
    }
    exit(1);
} elsif(scalar(@pidmatches) > 1) {
    print "There are multiple PIDs that match this process name!\n";
    for my $match (@pidmatches) {
        print $match . "\t" . $pid . "\n";
    }
    exit(2);
}

sub get_passwd {
    # legal clear passwd chrs (26+26+10+24=86): "a-zA-Z0-9!#$%&()*+,-./:;<=> ?@[\]^";
    my @legal_clear = ('a'..'z', 'A'..'Z', '0'..'9', split //,
                       '!#$%&()*+,-./:;<=> ?@[\]^');
    my %legal_clear; foreach (@legal_clear) { $legal_clear{$_} = 1; }
    $| = 1;	# unbuffer stdout to force unterminated line out
    ReadMode ('cbreak');
    my $ch = '';
    while (defined ($ch = ReadKey ())) {
	last if $ch eq "\x0D" or $ch eq "\x0A";
	if ($ch eq "\x08") {	# backspace
            print "\b \b" if $passwd;	# back up 1
            chop $passwd;
            next;
	}
	if ($ch eq "\x15") {	# ^U
            print "\b \b" x length $passwd;	# back 1 for each char
            $passwd = '';
            next;
	}
	if (not exists $legal_clear{$ch}) {
            print "\n'$ch' not a legal password character\n";
            print 'Password: ', "*" x length $passwd; # retype *'s
            next;
	}
	$passwd .= $ch;
	print '*';
    }
    print "\n";
    ReadMode ('restore');
    return $passwd;
}

print "Password for " . $destination . ": ";
my $password = get_passwd();

sub send_mail {
    my $subject = $_[0];
    my $body = $_[1];

    my $smtp;

    if (not $smtp = Net::SMTP::SSL->new($server,
                                        Port => $port,
                                        Debug => 0)) {
        die "Could not connect to server.\n";
    }

    $smtp->auth($destination, $password)
        || die "Authentication failed!\n";

    $smtp->mail($destination . "\n");
    $smtp->to($destination . "\n");
    $smtp->data();
    $smtp->datasend("From: " . $destination . "\n");
    $smtp->datasend("To: " . $destination . "\n");
    $smtp->datasend("Subject: " . $subject . "\n");
    $smtp->datasend("\n");
    $smtp->datasend($body . "\n");
    $smtp->dataend();
    $smtp->quit;
}

print "Waiting for process " . $pidmatch . " (" . $processmatch . ") to finish...";

my $done = 0;
do {
    $done = 1;
    open PRO, "/bin/ps axo pid |" or die 'Failed to open pipe to `ps`';
    while(<PRO>) {
        if($_ =~ m/^\s*$pidmatch\s*$/) {
            $done = 0;
            last;
        }
    }
    close PRO;
    sleep(1);
} while(!$done);

print "The process finished!\nSending an email to " . $destination . "...";

&send_mail('Process ' . $pidmatch . ' (' . $processmatch . ') on ' . $hostname . ' finished!', 'It\'s done!');

print "\n";
$ chmod 755 ./TwitterGraph.py
$ ./TwitterGraph.py
You have 100 API calls remaining this hour; how many would you like to use now? 80
What is the twitter username for which you'd like to build a graph? ESultanik
Building the graph for ESultanik (output will be ESultanik.dot)...
.
.
.
$ dot -Tps ESultanik.dot -o ESultanik.ps && epstopdf ESultanik.ps && acroread ESultanik.pdf
$ dot -Tsvgz ESultanik.dot -o ESultanik.svgz

#!/usr/bin/python

import simplejson
import urllib2
import urllib
import getopt, sys
import re
import os

class TwitterError(Exception):
  @property
  def message(self):
    return self.args[0]

def CheckForTwitterError(data):
    if 'error' in data:
      raise TwitterError(data['error'])

def fetch_url(url):
    opener = urllib2.build_opener()
    url_data = opener.open(url).read()
    opener.close()
    return url_data

def remaining_api_hits():
    json = fetch_url("http://twitter.com/account/rate_limit_status.json")
    data = simplejson.loads(json)
    CheckForTwitterError(data)
    return data['remaining_hits']

def get_user_info(id):
    global is_username
    global calls
    json = None
    calls += 1
    if is_username:
        json = fetch_url("http://twitter.com/users/show.json?screen_name=" + str(id))
    else:
        json = fetch_url("http://twitter.com/users/show.json?user_id=" + str(id))
    data = simplejson.loads(json)
    CheckForTwitterError(data)
    return data

def get_friends(id):
    global calls
    calls += 1
    json = fetch_url("http://twitter.com/friends/ids.json?user_id=" + str(id))
    data = simplejson.loads(json)
    CheckForTwitterError(data)
    return data

def get_followers(id):
    global calls
    calls += 1
    json = fetch_url("http://twitter.com/followers/ids.json?user_id=" + str(id))
    data = simplejson.loads(json)
    CheckForTwitterError(data)
    return data

last_status_msg = ""
def update_status(message):
    global last_status_msg
    # clear the last message
    sys.stdout.write("\r")
    p = re.compile(r"[^\s]")
    sys.stdout.write(p.sub(' ', last_status_msg))
    sys.stdout.write("\r")
    sys.stdout.write(message)
    last_status_msg = message
    sys.stdout.flush()

def clear_status():
    last_status_msg = ""

def save_state():
    global history
    global user_info
    global friends
    global followers
    global queue
    global username
    data = simplejson.dumps([history, user_info, friends, followers, queue])
    bakfile = open(username + ".json", "w")
    bakfile.write(data)
    bakfile.close()

def build_adjacency():
    global friends
    idxes = {}
    adj = []
    idx = 0
    for user in friends.keys():
        idxes[user] = idx
        idx += 1
        adj.append([0]*len(friends.keys()))
    for user in friends.keys():
        if len(friends[user]) <= 0:
            continue
        amount_to_give = 1.0 / len(friends[user])
        for f in friends[user]:
            if idxes.has_key(str(f)):
                adj[idxes[user]][idxes[str(f)]] = amount_to_give
    return [idxes, adj]

try:
    opts, args = getopt.getopt(sys.argv[1:], "hu:c:r", ["help", "user=", "calls=", "resume"])
except getopt.GetoptError, err:
    print str(err)
    #usage()
    sys.exit(2)

max_calls = -1
username = ""
load_prev = None

for o, a in opts:
    if o in ("-h", "--help"):
        #usage()
        sys.exit()
    elif o in ("-u", "--user"):
        username = a
    elif o in ("-c", "--calls"):
        max_calls = int(a)
    elif o in ("-r", "--resume"):
        load_prev = True
    else:
        assert False, "unhandled option"

if max_calls != 0:
    # First, let's find out how many API calls we have left before we are rate limited:
    update_status("Contacting Twitter to see how many API calls are left on your account...")
    max_hits = remaining_api_hits()
    if max_calls < 0 or max_hits < max_calls:
        update_status("You have " + str(max_hits) + " API calls remaining this hour; how many would you like to use now? ")
        max_calls = int(sys.stdin.readline())
        clear_status()
        if max_calls > max_hits:
            max_calls = max_hits
if username == "":
    print "What is the twitter username for which you'd like to build a graph? ",
    username = re.compile(r"\n").sub("", sys.stdin.readline())

update_status("Trying to open " + username + ".dot for output...")
dotfile = open(username + ".dot", "w")
update_status("")
clear_status()
print "Building the graph for " + username + " (output will be " + username + ".dot)..."

is_username = True
history = {}
queue = [username]
calls = 0
user_info = {}
friends = {}
followers = {}

# Let's see if there's any partial data...
if os.path.isfile(username + ".json"):
    print "It appears as if you have some partial data for this user."
    resume = ""
    if load_prev != True:
        print "Do you want to start off from where you last finished? (y/n) ",
        resume = re.compile(r"\n").sub("", sys.stdin.readline())
    if load_prev == True or resume == "y" or resume == "Y" or resume == "yes" or resume == "Yes" or resume == "YES":
        is_username = False
        bakfile = open(username + ".json", "r")
        [history, user_info, friends, followers, queue] = simplejson.loads(bakfile.read())
        print str(len(friends.keys())) + " friends!"
        bakfile.close()
        print "Loaded " + str(len(history.keys())) + " previous Twitterers!"
        print "The current queue size is " + str(len(queue)) + "."
    else:
        print "You are about to overwrite the partial data; are you sure? (y/n) ",
        resume = re.compile(r"\n").sub("", sys.stdin.readline())
        if not (resume == "y" or resume == "Y" or resume == "yes" or resume == "Yes" or resume == "YES"):
            exit

while len(queue) > 0 and calls + 3 <= max_calls:
    next_user = queue.pop(0)
    # Let's just double-check that we haven't already processed this user!
    if history.has_key(str(next_user)):
        continue
    update_status(str(next_user) + "\t(? Followers,\t? Following)\tQueue Size: " + str(len(queue)))
    if next_user in user_info:
        info = user_info[next_user]
    else:
        try:
            info = get_user_info(next_user)
        except urllib2.HTTPError:
            update_status("It appears as if user " + str(next_user) + "'s account has been suspended!")
            print ""
            clear_status()
            continue
    uid = next_user
    if is_username:
        uid = info['id']
        history[uid] = True
        is_username = False
    user_info[uid] = info
    update_status(info['screen_name'] + "\t(? Followers,\t? Following)\tQueue Size: " + str(len(queue)))
    followers[uid] = get_followers(uid)
    for i in followers[uid]:
        if not history.has_key(str(i)):
            history[i] = True
            queue.append(i)
    update_status(info['screen_name'] + "\t(" + str(len(followers[uid])) + " Followers,\t? Following)\tQueue Size: " + str(len(queue)))
    friends[uid] = get_friends(uid)
    for i in friends[uid]:
        if not history.has_key(str(i)):
            history[i] = True
            queue.append(i)
    update_status(info['screen_name'] + "\t(" + str(len(followers[uid])) + " Followers,\t" + str(len(friends[uid])) + " Following)")
    clear_status()
    sys.stdout.write("\n")
    sys.stdout.flush()
    save_state()

# Get some extra user info if we have any API calls remaining
# Find someone in the history for whom we haven't downloaded user info
for user in history.keys():
    if calls >= max_calls:
        break
    if not user in user_info:
        try:
            user_info[user] = get_user_info(user)
        except urllib2.HTTPError:
            # This almost always means the user's account has been disabled!
            continue

if calls > 0:
    save_state()

# Now download any user profile pictures that we might be missing...
update_status("Downloading missing user profile pictures...")
if not os.path.isdir(username + ".images"):
    os.mkdir(username + ".images")
user_image_raw = {}
for u in friends.keys():
    _, _, filetype = user_info[u]['profile_image_url'].rpartition(".")
    filename = username + ".images/" + str(u) + "." + filetype
    user_image_raw[u] = filename
    if not os.path.isfile(filename):
        # we need to download the file!
        update_status("Downloading missing user profile picture for " + user_info[u]['screen_name'] + "...")
        urllib.urlretrieve(user_info[u]['profile_image_url'], filename)
update_status("Profile pictures are up to date!")
print ""
clear_status()

# Now scale the profile pictures
update_status("Scaling profile pictures...")
user_image = {}
for u in friends.keys():
    _, _, filetype = user_info[u]['profile_image_url'].rpartition(".")
    filename = username + ".images/" + str(u) + ".scaled." + filetype
    user_image[u] = filename
    if not os.path.isfile(filename):
        # we need to scale the image!
        update_status("Scaling profile picture for " + user_info[u]['screen_name'] + "...")
        os.system("convert -resize 48x48 " + user_image_raw[u] + " " + user_image[u])
update_status("Profile pictures are all scaled!")
print ""
clear_status()

update_status("Building the adjacency matrix...")
[idxes, adj] = build_adjacency()
print ""
clear_status()
update_status("Calculating the stationary distribution...")
iterations = 500
damping_factor = 0.25
st = [1.0]*len(friends.keys())
last_percent = -1
for i in range(iterations):
    users = 0
    for u in friends.keys():
        users += 1
        percent = round(float(i * len(friends.keys()) + users) / float(iterations * len(friends.keys())) * 100.0, 1)
        if percent > last_percent:
            last_percent = percent
            update_status("Calculating the stationary distribution... " + str(percent) + "%")
        idx = idxes[str(u)]
        given_away = 0.0
        give_away = st[idx] * (1.0 - damping_factor)
        if give_away <= 0.0:
            continue
        for f in friends[u]:
            if not friends.has_key(str(f)):
                continue
            fidx = idxes[str(f)]
            ga = adj[idx][fidx] * give_away
            given_away += ga
            st[fidx] += ga
        st[idx] -= given_away
print ""
clear_status()
# Now calculate the ranks of the users
deco = [ (st[idxes[u]], i, u) for i, u in enumerate(friends.keys()) ]
deco.sort()
deco.reverse()
rank = {}
last_st = None
last_rank = 1
for st, _, u in deco:
    if last_st == None:
        rank[u] = 1
    elif st == last_st:
        rank[u] = last_rank
    else:
        rank[u] = last_rank + 1
    last_rank = rank[u]
    last_st = st
    print user_info[u]['screen_name'] + "\t" + str(rank[u])

update_status("Generating the .dot file...")

# Now generate the .dot file
dotfile.write("digraph twitter {\n")
dotfile.write("  /* A TwitterGraph automatically generated by Evan Sultanik's Python script! */\n")
dotfile.write("  /* http://www.sultanik.com/                                                 */\n")
for user in friends.keys():
    dotfile.write("  n" + str(user) + " [label=< <table border=\"0\"><tr><td>" + user_info[user]['name'])
    if not (user_info[user]['name'] == user_info[user]['screen_name']):
        dotfile.write("<br/>(" + user_info[user]['screen_name'] + ")")
    dotfile.write("</td></tr><tr><td>Rank: " + str(rank[user]) + "</td></tr>")
    dotfile.write("<tr><td><img src=\"" + user_image[user] + "\" scale=\"true\"/></td></tr>")
    dotfile.write("</table> >");
    if user_info[user]['screen_name'] == username:
        dotfile.write(" color=\"green\" shape=\"doubleoctagon\"")
    dotfile.write("];\n")
dotfile.write("\n")
for user in friends.keys():
    for f in friends[user]:
        if friends.has_key(str(f)):
            dotfile.write("  n" + str(user) + " -> " + " n" + str(f) + ";\n")
dotfile.write("}\n")

dotfile.close()

print ""
clear_status()
                        .J&&&+.
                      .+X0CwHM0+.
                     .dSrI?zWKI``
                    .WSzz+jXSv`
                  .JUz?++Jw0!`                                              ..&aex+.
                 J0C+`..+XC:                                 .jgggaa&J....JdHMNNMHkwz+.....++..
               .+UI++^.dXC!                             ...JdXMHHNN#MNmmXWHMN##NMMMNNNNNNNHNNmc`
            ..uXV1+!.JzZk&++                          dwXWNMMMNMH#MMNNMNMMMMM##NNMMMMMMNN##NNMk?+.
         .JJvCwv!``.?zUUWM8:                          jWMMMMMNMNNHMMMMNN###MMNNNMMMMMH#MMNNNMNNQQmo..
      .&XYC+JzI!..+zwwzzwwI                           dMMMMNN#NMMMMMMMMMMHMMMNMMMMNMNNNMMN#NM#H#NMNme+.
     jXC:+1wZ!`.?+OOz++1dHc                         .JdMMMMMN#NNMMNNMMN##NMMMMMNNMMN##NN#NNMMNNNMNNMMNc
   `JXI+jwZC!..+1z+!^^?+dMk.                     ..uQgMMMNHMNNNNMNNMNNNNMMNMMMMMMMHNNNNM##NNNNHMMNMHMMK.`
    JXyzXC++?+=?+.^^?+zlOWMZ.                ..JgHNMNMMMNMMM###N##MMNNNN###MM#NNMNNNNNMMMMHMMNMNN##NMMHI.
    `dHkwz+ztl=?++++zz1?+jW0.               .zXMNMMNNNMMMNNNMN#NNMN#NMNNNN#MN#HHNM#NMMNMMMMMH#NNNNNNMM0!+.
     `XHWkwwO+:;;?==zz;+zzyI`               `jMN#MNNNNNNNN#NN#HHHHHHMNNNNNMMMMmMMNMMMM#N#NMN##H#NNN#MNk+1z.
       ?WkHkOz+++++++;+zwdWC                .JM######NNMMMNNNNM#HH#NNN##NM@MMHqHM#HMM@HMNNHNMM@HNMNHHNMNHmx?+
        dHbWZZXOOz+:;?+zwwC!                .dMNMMNMMMNMMNNMMMMNN#H#NNMMHMHHWXWHHMMMMMMH#MNMNMMNNNN##NNN##NI!`
         dpyXwXXOwzz+++1w$!                .?dMMNMNNNMNNNNNNNNMNN#####MMgMWVOOOVUWKXWHMMNNMM#MMMMMMNMHMMNNN$`
         zHWuuZwzlttz?;+zZ+                 +WMMMNMMMMNMN##NNNMNNMNMMMMMHHIl=?+;+zWWwXWWMMMHMMHHWHMMMHHH#NN$.
          ZWXZZZXOttI+:;1O:                 jXMMMMN#HH#NMHMMNMMMM#H@@mHHWXZl????;+!!????UUVOz=zlrXHHN####NMR.
           ?Xyuuuzrl=;;+=z!                 ?jWNNNMM#MNMMMMMMNMMM#MHH@gmHXvO=?=?;;+:`^^`+++;??=ltXWM#######HI
          ..dyyXuvrlzz?=lv                  .?WNMMMMMNNMM##NNM##NNNNNMMHHWXO=?????+:^^^:.;;;??=OvXWMNNNNN#MK:
          `XbWXuXv1zOOOwOl                  `?dMMMNNNNNNMMNMMMHM##MMNMMHXXVv???=??++::;:?;;???ztrXWMNN####NC`
          .dpSztOz+!++zOI!                   .dMMMMNMN##MMHMWHMMMMMMNMMHHSl====?++;;::^.:;;;??=lrXHMN###N##:`
         .dWHWXOz;;+++zwI                     jHMMNNN#NNMMNHM96!?OWMMHMkXZz=lzzzzzz&+?+;++???=zwqHMMNNHHNMD+
         .dHHbWZz;;+1OwI!                     `1XMNNMMMMNMNNNx++J+.vHMHH0z==ztrrvZwXWHHHkOzzzwWUWMNMM#MMNMk.
         ?WH@HH0z?;??zZl                      `jWNNHMNMMNNNMMNm+?+?zXgH0I???+1OXwOzzwkvzVI++dWHWHH#MMNNMMM0`
        .dMHMHWXOzzlzzI!                       jHNNMMNMM##NMMMMNs,.jXHH0l=?+;^`?OWWUUC11??+`zUVwWMMNMMMNNNl
        JXMMHSuuzrttrw0!                       `WMNMN#MMHHNMMMHMMkZ1XfWkll=+;+.^:.:!``+;;;+^+wuXMNMMNMMNMH:
       .dMMHWXvzvtrrwXk+.                       ?WMNN#MMMHH###HMMMS1dWWWw==????;;;::^.+?;?;:?zXHMNMMNNMMM6!
      .dH@HHWuzzzvrvzXHkOtOz+...                 `vMMNNNNN#M@HHHMSIzzWkWOl=??;;?;;;;;??=??+!?1XMNMMMMMMBC`
     .dMH@HHWXvrtttrvXkHZl==????+..                ?TMMMMN#NMMMMHZzz?OWkwOz??;;;??;;;++=z+++?;!?7????!`^`
     .dMMHHWXztlllltwXqRI1+?;;??;1=z+.               +??7WH9!jXWWZ???+wWkwzz?????++zz+1zwwwAdI.
    .dMMHqkfWXvrtllrwWHk=?;;???;???lOw&.                  `.z0rwzO=?;;+vWHkwwzz?=zZ0VOOwwwwXU:
   .dMMMqHWXuzvOlttwXWHS??;?;????+zOtwXI`                  `1=zOrI??;;??zWHkXuOzzlz??zOOwzXS!
   JdMMHkpfZuuzwtttwXpH0?;;?;???zlllwZl`                    `+1ll=??;;;??zZWWkkXwOl==lzzOXuI
 ..dHHHHpVyZuzzrrrruyWW0???????==ztOZl`                      `+????;;;;;??==ZWHHkkAz++++lOWI
 .jWMMHpVyyZuzrrrrrzZWfk?????=lllwzwv`                        `++?;;?;;;??;?zOwXWHHHkmAwXU=
 .dMMMqWZZZZuuvrtttwZWHkl=====ztwuZv`.                         `+:;;;;??;????===trwU=!
`.dMMHHWZuuuzrrrrttzZWbkOOl=ltrzXZC!`                           ``::;;??????=lttrwZ!
`?WHMHfyyZuvrtttrtrzuXbHXXOltrwXW0:``                            ``?;;;;???zztttOv
`JWHHHyyyZXrrvrtlttvvwWHWXrrrwXWC!`                                 `++;++1zOIz?!
 dMMHWVyyuuzvrttlltrvXWkHkuXwdHD!`                                   `
.dMMHpfVyuuzzrrttrrvuZVkkfWZXW6!`
 zMMHpfVyuuzzvrrrrzuuXWkHppWK0:`
 jMMHppyZuuuzzzvvvzuZyWmgHWHS+`
 JMMHbfyZzuuuuzuuuZZZWHgmHH9z`
 dMMHqWyZuuuzzzzuZyVWWmg@H0v`
`jMM@mkfVyZZuuZZyyVpbkH@H0!`
 JW@HkbpfVyyyyVyyVVpqH@M$`
 +WgmqpVyZZZZVfpfpbbHHMD`
 `dMMHbWyVyZZyVfpWWWHM$``
  +UHHWWWZZyyyVffWWH9!
  `jWHHWyXXyXWWWHM9!`
    ?vHNNNNNMMM9=!`
      ?VHMBY7?!`

Профессиональные E-mail рассылки!
Тел: (095) 968-76-23
Более 4-x лет на рыенке рекламы!
From fxcxp0yo@unlimited.net Mon Jan 26 19:07:15 2004
.
.
.
Received: from 198.87.103.153.netdial.caribe.net
+(198.87.103.153.netdial.caribe.net [198.87.103.153])
by XXXX.XXXX.XXXX (8.12.10+Sun/8.12.9) with SMTP id i0R06uAL014379
for <XXXX@XXXX.XXXX>; Mon, 26 Jan 2004 19:07:02 -0500 (EST)
Received: from 116.101.152.116 by 198.87.103.153; Tue, 27 Jan 2004 03:05:40 ++0300
From: “Andrea Theresia” <fxcxp0yo@unlimited.net>
Reply-To: “Andrea Theresia” <fxcxp0yo@unlimited.net>
To: XXXX@XXXX.XXXX
Subject: miracle discovering, plaster that grow small di-ck misnomer abysmally
Date: Tue, 27 Jan 2004 03:59:40 +0400
MIME-Version: 1.0
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.2014.7
Content-Type: multipart/alternative; boundary=”23413837280769382267”
Message-ID: <ygb2lna3veh-ircal7swr-b7kbefxcxp0yo@unlimited.net>
X-Scanned-By: MIMEDefang 2.39

Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 8bit
Content-Disposition: inline

asperges vellum
december detente drugless catabolic cruciate minimally
fastbreak slanderous admiring occurrere nonechoic expect populated disservice predicator

(11:32:09) Tom:	I am an explosive bolt going off in ur skull plate forcing ur grey matter to eject into the sea. Was I a mistake or was it deliberate? No man will ever know except the man on the inside.
(11:35:48) Me:	I am the bag man of bangladesh pushing your rickshaw spice merchant mousepads through the time rift. Do you sell indemnity?
(11:38:50) Tom:	I will attempt to derail your parcel carrier and co-opt your canker sore for intangible benefits.
(11:40:56) Tom:	Work Together... Deliver the Best... Worldwide...
(11:41:33) Tom:	My spock unit is clogged
(11:42:12) Me:	Corporate vignettes and photo spreads caress my nimble palette as i taste the coiled fruits of cologne
(11:43:56) Tom:	Slick black rubber crafts wicker dummies for dupont's thrift store vatican. God is in the vacuole.
(11:46:10) Tom:	Slick disk popup ads bowdlerize my chieftain
(11:46:54) Tom:	wallace and grommet can sentence diagram that
(11:46:54) Me:	Even absolute zero isn't cold enough to thaw my plastic slide rule. the numbers add and multiply, but they have yet to spawn intelligent mannerisms. etiquette isn't a replacement for nature.
(11:47:53) Tom:	Fury blows to my head create space for rent, but no man can paint that which is red.
(11:50:29) Tom:	peter jackson is not that good
(11:50:29) Me:	taught leather lines the mast of intolerance, forcing huddled masses to gnaw on their paper shackles. headphones will lead them to enlightenment.
(11:51:47) Tom:	Looking for a page count its bulk knowledge but you can't storm the castle without a key. I guard the branches from aphids. I am the egg men.
(11:53:09) Tom:	I am pretty sure that if you write cryptic like people think ur smart
(11:53:17) Tom:	and try to read into it

Random Guy:	What are you studying?
Me:	Mathematics and Computer Science.
Random Guy:	Oh! How many programming languages have you learned?
Me:	That’s like asking an artist, “How many brushes do you own?” That, without even inquiring if he/she is a painter!

“	I only drink to excess when it is socially acceptable.	”
—The flexiholic.

“	I only cheat on my spouse pragmatically.	”
—The flexadulterer.

“	The terrorist attacks on the United States on September 11, 2001 left their mark on the sex lives of the nation…	”
—first sentence of chapter 1, Sexuality Today: The Human Perspective

“	Yaw yaw! That eternally too late, which does not leave itself gladly to stresses, I do not read much, only Mopo and SMS And wrong, I does to me has it eilich, Beats, raps, label, I drive mehrgleisig The donkey ears full with the sail and the Rhymebooks, its texts you to warn are like ’ EN nebula horn Are the answer Wisser, also the small Schisser, Faeulen people with large joy to the leg the Pisser	”
—Beginner's Wer Bist'n Du??? , translated using Babelfish

“	When did you get this?	”
—British Airways attendant

“	I just had it printed today.	”
—Me

Evan Sultanik's Page of Personal Deification

iPhone Vulnerability via SMS

iPhone Toolchain on Linux

File drop

Mail notifier

Awaiting death

Visualizing Twitter

LaTeX

On the Economics of Higher Education

Computer Science: an Introduction

Contents

What is Computer Science?

Languages and problems

Example: Sudoku

Polynomial time

Why polynomial time matters

Why Computer Science isn't just a science

References

Wireless remote control

RSS Feed

Celebrating 200 Poetic Years

Walking to the horizon

Only π more hours to go…

Flexitarded

Gentrification of Camden

Mr. Mint

Lottery Tickets on Second Street

Number one suggested activity for travel in Europe

You've got to see the fingers!

Cycling from Philadelphia, PA to Reston, VA

Nathan Fabian

The Great Cat Massacre

Painting and assembling a bike

'Tis the end of the season!

Starbucks vs. the World

Modern

Koans in CVS

AAMAS 2005

AAAI 2005

Bill tabulation, 70s style

You know it's bad when...

The Macro Agent Transport Event-based Simulator

Esperanto

I should have been a painter...

Eugen Weber's accent

Finally finished my Schwinn!

European shoes

Don't Block the Box!

BasicPlay

Women need fast roadsters and small computers!

AAAI 2004

Spammers are getting smart!

Kids Show

Efficient window management with WindowMaker

Bikes and bums

Canine Atkins

National television debut

KOMPRESSOR KRUSH EXECUTIVE GOVERNMENT BRANCH

What a Commute!

I never thought one could sleep with a movie...

Pet peeve

Best $14 Yuengling Ever!

Why not to use PowerPoint

PDAs and the Decline of PalmOS

Diet Cherry Coke

I can bite my quarter in two!

What is spam nowadays?

My time (or lack thereof)

Sex and terrorism

Mark Osborne's ''More''

Number one in Germany

Newfangled keyboards

Gayety

God (or lack thereof)

Vivaldi

Cops and shoes

Restaurant reviews updated

Mice==Evil

The Chancellery

Website is up!