beppu

#!/usr/bin/perl

use strict;
use warnings;
use Net::Delicious;
use XML::Feed;
use Storable;
use URI::Escape;

my %args = (

beppu

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

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

#!/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

# 3 tables:
#
#   pictures
#     id
#   tags_and_pictures
#     tag_id       \__ unique
#     picture_id   /
#   tags
#     id
#     name

beppu

#!/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

#!/usr/bin/perl
use strict;
use warnings;
use Coro;
use Coro::AnyEvent;
use Coro::Channel;
use Coro::Signal;
use Coro::Timer;
use AnyEvent;
 

beppu

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

package JSONP;
use strict;
use warnings;
use base 'Squatting';

# How to send JSONP responses with Squatting
# ==========================================
#
# save this as JSONP.pm
# run it by typing:  squatting JSONP

beppu

#!/usr/bin/env perl

use strict;
use warnings;
use Continuity;
use Coro::Timer;

my $server = Continuity->new(
    port           => 4488,
    cookie_session => 1,