I hereby claim:
- I am afresh1 on github.
- I am afresh1 (https://keybase.io/afresh1) on keybase.
- I have a public key whose fingerprint is 5B9A 7176 B30A 8D42 37D6 B9B3 4811 F661 BF7B CEAD
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
#!/bin/sh | |
if ! pgrep xlock >/dev/null 2>&1; then | |
xlock -lockdelay 0 -endCmd ssh-add & | |
sleep 1 | |
fi | |
sudo -k | |
ssh-add -D |
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use 5.010; | |
use File::Find; | |
my %options_that_take_arguments = map { $_ => 1 } | |
qw( I P M e exec harness formatter source a archive j jobs state rc ); |
--indent-columns=8 | |
--entab-leading-whitespace=8 | |
--continuation-indentation=4 | |
--cuddled-else | |
--opening-sub-brace-on-new-line |
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
# On OpenBSD, I have a port for p5-Bot-ICB and p5-Net-ICB | |
# pkg_add p5-Bot-ICB p5-LWP-Protocol-https p5-HTML-Tree p5-Text-Unidecode | |
use Bot::ICB; | |
use LWP::Simple; | |
use HTML::Tree; |
if [ ! "$TMUX" ]; then | |
echo "Starting tmux . . ." | |
sleep 3 | |
[ "$TERM" = "xterm" ] && TERM=xterm-256color | |
tmux -2 attach || tmux -2 | |
exit | |
fi |
#!/usr/bin/perl | |
# Copyright (c) 2012 Andrew Fresh <andrew@afresh1.com> | |
# | |
# Permission to use, copy, modify, and distribute this software for any | |
# purpose with or without fee is hereby granted, provided that the above | |
# copyright notice and this permission notice appear in all copies. | |
# | |
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR |
#!/bin/sh | |
# https://gist.github.com/gists/2641363 | |
# https://github.com/jasperla/openbsd-wip | |
# $ cd ~/openbsd-wip && CVSROOT=:local:/cvsroot import-cvs-to-git misc/anyport | |
#GITROOT=~/openbsd-wip | |
#GITROOT=/usr/ports/mystuff | |
GITROOT=`pwd` | |
CVSROOT=${CVSROOT:-/cvs} | |
# SUBDIR can be any valid dirname without trailing / |
#!/usr/bin/perl | |
# Start this on a server someplace with tcpbench | |
# Start tcpbench -s on a machine that is the remote IP you are connecting the the web from | |
# Browse to the page. | |
use Mojolicious::Lite; | |
use Mojo::IOLoop; | |
use Mojo::IOLoop::Stream; | |
# Template with browser-side code | |
get '/' => sub { |
# Converted from http://alastaira.wordpress.com/2011/01/23/the-google-maps-bing-maps-spherical-mercator-projection/ | |
# http://trac.osgeo.org/proj/wiki/man_cs2cs | |
# similar to | |
# cs2cs -f "%.10f" +init=epsg:3857 +to +init=epsg:4326 | |
# and | |
# cs2cs -f ".10f" +init=epsg:4326 +to +init=epsg:3857 | |
# http://trac.osgeo.org/proj/wiki/man_cs2cs | |
use Math::Trig; |