mxey

#!/usr/bin/env perl
use Modern::Perl;
use AnyEvent;
use AnyEvent::XMPP::IM;

my $im = AnyEvent::XMPP::IM->new();
my $connected_jid;

$im->reg_cb(
    connected => sub {

mxey

#!/bin/sh -e
exec curl -F "sprunge=<-" http://sprunge.us

mxey

traceroute to blog.fefe.de (80.244.246.150), 30 hops max, 60 byte packets
 1  nexus.mxey.lan (10.108.0.1)  0.194 ms  0.183 ms  0.199 ms
 2  10.91.192.1 (10.91.192.1)  5.696 ms  9.020 ms  9.016 ms
 3  1416A-MX960-02-xe-9-1-0.moenchengladbach.unity-media.net (81.210.130.209)  9.006 ms  9.000 ms  8.982 ms
 4  1412A-MX960-02-ae1.krefeld.unity-media.net (80.69.106.185)  9.751 ms  9.749 ms  9.738 ms
 5  1412A-MX960-01-ae0.krefeld.unity-media.net (80.69.106.181)  9.726 ms  9.699 ms  9.687 ms
 6  1411G-MX960-02-ae4.neuss.unity-media.net (80.69.106.177)  10.584 ms  10.003 ms  9.982 ms
 7  1211F-MX960-02-ae8.dortmund.unity-media.net (80.69.107.14)  11.617 ms  8.909 ms  57.371 ms
 8  7111A-MX960-02-ae9.frankfurt.unity-media.net (80.69.107.22)  34.112 ms  34.103 ms  34.093 ms
 9  te3-3-rt1-ffm2.core.noris.net (80.81.192.88)  17.814 ms  17.835 ms  17.942 ms

mxey

reaver:def 15410 git|master ~/dn % ./dnsmop wildcard homelinux.org
homelinux.org is NOT using a wildcard record
reaver:def 15411 git|master ~/dn % ./dnsmop wildcard github.com   
github.com is using a wildcard record
reaver:def 15412 git|master ~/dn % ./dnsmop wildcard blogspot.com
blogspot.com is using a wildcard record
reaver:def 15413 git|master ~/dn % ./dnsmop wildcard chaosdorf.de
chaosdorf.de is NOT using a wildcard record

mxey

#!/usr/bin/env perl
use Modern::Perl;
use autodie;
use IO::Handle;
use IMDB::Film;
use Text::Autoformat;

my $series = IMDB::Film->new(crit => shift @ARGV);

my %fh;

mxey

package Quest;
use Moose;
use Moose::Util::TypeConstraints;

subtype 'SubnetIndex'
    => as 'Int'
    => where { $_ >= 1 && $_ <= 99 }
    => message { "The provided index, $_, is not between 1 and 99" };

has index => (

mxey

# feh key configuration.
# Comments start with a # sign, do not use them mid-line.
# Each line must be blank, a comment, or a key definition.
#
# key definition: <action name> <key1> [<key2> [<key3>]]
#
# Each <key> is an X11 keysym (as output by xev) with optional modifier.
# For instance, C-x would be Ctrl+X, or 4-space Mod4+Space
#

mxey

# feh key configuration.
# Comments start with a # sign, do not use them mid-line.
# Each line must be blank, a comment, or a key definition.
#
# key definition: <action name> <key1> [<key2> [<key3>]]
#
# Each <key> is an X11 keysym (as output by xev) with optional modifier.
# For instance, C-x would be Ctrl+X, or 4-space Mod4+Space
#

mxey

#!/bin/sh -e

is_enabled () {
    local device="$1"
    s=$(xinput --list-props "$device" | fgrep 'Device Enabled' | egrep -o '[01]$')
    if [ "${s}" = "1" ]; then
        return 0 # enabled
    elif [ "${s}" = "0" ]; then
        return 1 # disabled
    else

mxey

#!/usr/bin/env perl

use Modern::Perl;
#use lib '/home/mxey/code/AnyEvent-MPD/lib';
use autodie qw(:all);
use AnyEvent;
use AnyEvent::Handle;
use AnyEvent::Socket;
#use AnyEvent::MPD;
use IO::Handle;