xy4n

#!/usr/bin/env perl

use warnings;
use strict;

use Audio::Wav;
use Getopt::Long;

our %morsetable = (
    "a" => ".-",

xy4n

#!/usr/bin/env perl
use warnings;
use strict;
use feature qw/switch/;
open my $stream, $ARGV[0] or die "Can't open file: $!";
my $size = 3000;
my @cells = (1..$size);
my $mptr = 0;
my $cptr = 0;
my @loops;

xy4n

#!/bin/sh

if [ $# -lt 1 ]; then
    echo "Usage: `basename $0` FILE [FILE...]"
    exit 1
fi

for f in "$@"; do
    d=$(curl -sS --progress-bar -F files[]=@"$f" http://pomf.se/upload.php | jq -c -r '.files[0].url')

xy4n

#!/usr/bin/env perl

# NO FITNESS FOR A PARTICULAR PURPOSE.  NO MERCHANTABILITY.

unless ($ARGV[0]) {
    die "Usage: gen_hosts.pl <hosts_file>\n";
}

my $hosts_file = $ARGV[0];
my $hostmap;

xy4n

#!/usr/bin/env perl

use IO::Socket::INET6;

# some configuration
my $nodeinfo_ip = "fc5d:baa5:61fc:6ffd:9554:67f0:e290:7535";
my $nodeinfo_port = "8000";

my $get_loc = "/_hypehost/get";
my $set_loc = "/_hypehost/set";

xy4n

	location ~ ^/~(.+?)(/.*)?$ {
		alias /home/$1/www$2;
		index  index.html index.htm;
		autoindex on;
	}

xy4n

ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAACAQDb35BbPE7FMF7SWxUzrFnWhUR8hsAQY23wLhobJdcnDhd4BG1joZhKpahxaZnNUR6h8GIDvnIfLrRs2MWz3+9QeKtnD74bVmjYG8YhAcNGrTDEdAupZkTrBeQxWoLh02xt969b+i+wDoGQhKe0OcpKCsjGtdnXBNxJTqXSZfCdy4ZHjGk/0rKBkoPpq/kdOoCWaQ2cmDiinXW2DTfOiZ8N9AlvZShMe4StPQO0He+zKhA34nBHhsK6M74GIHo1FMYDtC6HTDqqlrIAytB/MNO67+AqOj8qtaXLeoQlXFMYG/xnTBbifY/WY+G/4kMlXNSa/HqFm53ImOgTeSFSSvTVrFjDaFgBcnaPfkrpelH9HqUbrWKwegmhN4fKrY7eXg8z6W7o0sYldwqQaRUX9+vd8lMhtH/qJWOhGYTfBbRxQMSPw3rA9HxA7sjGEAERptdK6kLY2SFfFTCUjiuceMuJNSPPEkbV27q0h1DucfVPV1JWSHljMvPIcYPIL6EZ3eMm5dRNVU1gPb3AyxjdzIgwRg5kJX2a29DP8bNEMIZ6BwUDE/ZvYcmo/k+OVZ7nlb406bFkUKeJ/A8EUXigvKArSv4EcpRi61FhNsBmCxTmUlW3Q4wUZDTC+UsJzwOk77L+ifObihvSUGTegweyVL5mymnnaIFtrZW3k4uF3UnrvQ== cat