jzawodn

macbook :: ~/code/sphinxsearch-read-only » svn diff
Index: src/searchd.cpp
===================================================================
--- src/searchd.cpp	(revision 4648)
+++ src/searchd.cpp	(working copy)
@@ -17303,6 +17303,7 @@
 	{
 		tOut.DataTuplet ( "ram_chunk", tStatus.m_iRamChunkSize );
 		tOut.DataTuplet ( "disk_chunks", tStatus.m_iNumChunks );
+		tOut.DataTuplet ( "mem_limit", tStatus.m_iMemLimit );

jzawodn

sub xs_encode_json {
    JSON::XS::encode_json $_[1];
}

{
    no warnings;
    *Mojo::JSON::encode      = \&xs_encode_json;
}

jzawodn

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

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

use MysqlAsync;
use AsyncCaller qw/schedule/;

$Data::Dumper::Terse = 1;

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;

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

sleep $time;
exit  $exit;

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

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

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

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

use strict;
use lib 'perl-Redis/lib';
use Redis;

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

## 2.5B values

jzawodn

#!/usr/bin/perl -w
$|=1;
use strict;
use lib '/home/jzawodn/code/AnyEvent-Redis/lib';
use AnyEvent::Redis;

my $host = 'localhost';
my $port = 6379;
my $key  = 'foo';