Skip to content

Instantly share code, notes, and snippets.

View beppu's full-sized avatar

John Beppu beppu

163 followers · 252 following
View GitHub Profile
@beppu
beppu / foo
Created July 21, 2009 10:18
http://sharebee.com/aaf1ed16
http://sharebee.com/902e5ea9
http://sharebee.com/595d5a6a
http://sharebee.com/f3734fdd
http://sharebee.com/511b24d6
http://sharebee.com/bb77c09d
http://sharebee.com/11f22ad4
http://sharebee.com/6be3a9ec
http://sharebee.com/4154d61a
@beppu
beppu / channel-get-timeout
Created July 13, 2009 11:36
#!/usr/bin/perl
use strict;
use warnings;
use Coro;
use Coro::AnyEvent;
use Coro::Channel;
use Coro::Signal;
use Coro::Timer;
use AnyEvent;
@beppu
beppu / wait-semaphore
Created July 13, 2009 10:57
#!/usr/bin/perl
use strict;
use warnings;
use Coro;
use Coro::AnyEvent;
use Coro::Semaphore;
use AnyEvent;
my @coros;
my $s = Coro::Semaphore->new;
@beppu
beppu / search_by_tags.pl
Created May 19, 2009 06:59
# 3 tables:
#
# pictures
# id
# tags_and_pictures
# tag_id \__ unique
# picture_id /
# tags
# id
# name
@beppu
beppu / countdown
Created April 19, 2009 21:24
#!/usr/bin/perl
# countdown = sleep + verbosity
# countdown 300 && wget http://wu.sauceruney.com/digitrash/freemanradio/RadioFreeman01.mp3
use strict;
use warnings;
use AnyEvent;
$| = 1;
my $duration = shift;
my $count = $duration;
@beppu
beppu / request-with-memcached.txt
Created March 23, 2009 11:26
090204 0:32:51 13 Connect kohaadmin@localhost on koha
13 Query set autocommit=1
13 Query set NAMES 'utf8'
13 Query select * from auth_types order by authtypetext
13 Query SELECT description FROM language_descriptions WHERE subtag='en' AND lang='en' AND type='language'
13 Query SELECT description FROM language_descriptions WHERE subtag=NULL AND lang='en' AND type='script'
13 Query SELECT description FROM language_descriptions WHERE subtag=NULL AND lang='en' AND type='script'
13 Query SELECT description FROM language_descriptions WHERE subtag=NULL AND lang='en' AND type='region'
13 Query SELECT description FROM language_descriptions WHERE subtag=NULL AND lang='en' AND type='region'
13 Query SELECT description FROM language_descriptions WHERE subtag=NULL AND lang='en' AND type='variant'
@beppu
beppu / request-without-memcached.txt
Created March 23, 2009 11:25
090204 0:32:28 11 Connect kohaadmin@localhost on koha
11 Query set autocommit=1
11 Query set NAMES 'utf8'
11 Query SELECT value
FROM systempreferences
WHERE variable='LibraryName'
LIMIT 1
090204 0:32:29 11 Query select * from auth_types order by authtypetext
11 Query SELECT value
FROM systempreferences
@beppu
beppu / weehours-to-delicious
Created March 21, 2009 04:49
#!/usr/bin/perl
use strict;
use warnings;
use Net::Delicious;
use XML::Feed;
use Storable;
use URI::Escape;
my %args = (
@beppu
beppu / 00-request-without-memcached.txt
Created February 4, 2009 08:36
what a difference memcached makes...
090204 0:32:28 11 Connect kohaadmin@localhost on koha
11 Query set autocommit=1
11 Query set NAMES 'utf8'
11 Query SELECT value
FROM systempreferences
WHERE variable='LibraryName'
LIMIT 1
090204 0:32:29 11 Query select * from auth_types order by authtypetext
11 Query SELECT value
FROM systempreferences
@beppu
beppu / add-debug-callback.patch
Created December 10, 2008 23:22
diff -rN -u old-Continuity/lib/Continuity/Adapt/HttpDaemon.pm new-Continuity/lib/Continuity/Adapt/HttpDaemon.pm
--- old-Continuity/lib/Continuity/Adapt/HttpDaemon.pm 2008-12-10 15:20:22.000000000 -0800
+++ new-Continuity/lib/Continuity/Adapt/HttpDaemon.pm 2008-12-10 15:20:22.000000000 -0800
@@ -215,6 +215,8 @@
sub debug_level { exists $_[1] ? $_[0]->{debug_level} = $_[1] : $_[0]->{debug_level} }
+sub debug_callback { exists $_[1] ? $_[0]->{debug_callback} = $_[1] : $_[0]->{debug_callback} }
+
=for comment