jzawodn

#!/usr/bin/perl -w
$|++;

use strict;
use Redis;

my $r = Redis->new(server => 'localhost:63790') or die "$!";

for my $key (1..100_000_000) {
	my $val = int(rand($key));

jzawodn

<? echo $_SERVER['REMOTE_ADDR'] ?>

jzawodn

#!/bin/bash

T_USER=twitter_username
T_PASS=twitter_password
T_URL=http://twitter.com/statuses/update.xml

cd $HOME

LAST_IP=`cat .last_ip`
IP=`curl -s -o - http://jeremy.zawodny.com/ip.php`

jzawodn

#!/usr/bin/perl -w

use strict;

my $time = $ARGV[0] || 1;
my $exit = $ARGV[1] || 0;

sleep $time;
exit  $exit;

jzawodn

#!/bin/bash

FAIL=0

echo "starting"

./sleeper 2 0 &
./sleeper 2 1 &
./sleeper 3 0 &
./sleeper 2 0 &

jzawodn

#!/bin/bash

FAIL=0

echo "starting"

./sleeper 2 0 &
./sleeper 2 1 &
./sleeper 3 0 &
./sleeper 2 0 &

jzawodn

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

use Event::Lib;
use Data::Dumper;

use MysqlAsync;
use AsyncCaller qw/schedule/;

$Data::Dumper::Terse = 1;