Skip to content

Instantly share code, notes, and snippets.

Andrew Fresh afresh1

View GitHub Profile
@afresh1
afresh1 / fill-chroot.sh
Last active Jun 7, 2020
fill-chroot - Add files and their needed libs to a chroot directory
View fill-chroot.sh
#!/bin/sh
chroot=/var/www # ${PWD}
copy_recurse() {
file=$1
[ -e "${chroot}${file}" ] && return
mkdir -p $( dirname "${chroot}${file}" )
cp -p "$file" "${chroot}${file}"
@afresh1
afresh1 / teetime
Last active Apr 16, 2020
A perl implementation of "tee" that prefixes each line to the teed file with a timestamp relative to the start of ths script.
View teetime
#!/usr/bin/perl
use strict;
use warnings;
use v5.10;
use Time::HiRes qw< gettimeofday tv_interval >;
# Copyright (c) 2020 Andrew Hewus Fresh <andrew@afresh1.com>
#
# Permission to use, copy, modify, and distribute this software for any
@afresh1
afresh1 / 6rd_config.sh
Last active Dec 7, 2019
Calculates a 6rd IP and default gateway and outputs them in an OpenBSD hostname.gif0 format from an IPv4 address, with optional mask, the v4 destination, a 6rd prefix with length. See also this gist: https://gist.github.com/afresh1/791343380b4410687d51fdd94f20bd42
View 6rd_config.sh
#!/bin/ksh
set -e
set -f -u -C
# Copyright (c) 2019 Andrew Hewus 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.
#
@afresh1
afresh1 / HTTP-Tiny-nc.pm
Last active Jun 6, 2019
An monkey patch to let perl's HTTP::Tiny to use the OpenBSD netcat with TLS support to access https sites without installing IO::Socket::SSL and Net::SSLeay.
View HTTP-Tiny-nc.pm
package HTTP::Tiny::nc;
use strict;
use warnings;
use parent 'HTTP::Tiny';
# Copyright (c) 2019 Andrew Hewus Fresh <afresh1@openbsd.org>
#
# 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.
@afresh1
afresh1 / Installing_an_OpenBSD_VM_under_FreeNAS.md
Last active Dec 11, 2018
Installing OpenBSD in a bhyve VM under FreeNAS
View Installing_an_OpenBSD_VM_under_FreeNAS.md
@afresh1
afresh1 / force_hires_move.pl
Created Nov 3, 2017
Forces File::Copy to use HiRes times in move.
View force_hires_move.pl
#!/usr/bin/perl
use v5.20;;
use warnings;
BEGIN {
require Time::HiRes;
# Has to come before importing File::Copy
Time::HiRes->export( 'File::Copy', qw( stat utime ) );
}
use File::Copy;
View !blogsum-app.psgi
#!/usr/bin/env plackup
use strict;
use warnings;
use Plack::Builder;
use Plack::App::File;
use Plack::App::WrapCGI;
BEGIN {
chdir "/var/www/blogsum" or die "Unable to chdir: $!";
@afresh1
afresh1 / admin.cgi.patch
Created Oct 12, 2017
blogsum as a Plack app
View admin.cgi.patch
--- admin.cgi.orig Wed Oct 11 18:32:23 2017
+++ admin.cgi Wed Oct 11 18:32:52 2017
@@ -8,19 +8,19 @@
###########################
use strict;
use Blogsum::Config;
-my $database = $Blogsum::Config::database;
-my $blog_theme = $Blogsum::Config::blog_theme;
-my $blog_title = $Blogsum::Config::blog_title;
+our $database = $Blogsum::Config::database;
@afresh1
afresh1 / plenv-install-latest.sh
Last active Sep 19, 2019
Installs or upgrades to the latest perl5 version for each major release, as well as the latest development version.
View plenv-install-latest.sh
https://github.com/afresh1/dotfiles/blob/master/plenv/libexec/plenv-install-latest
@afresh1
afresh1 / queue-status.pl
Last active Jul 22, 2017 — forked from dlangille/queue-status.pl
Would someone convert this to use File::Find for me please? I wrote this a loooong time ago. Thank you.
View queue-status.pl
#!/usr/bin/perl
#
# $Id: queue-status.pl,v 1.3 2012/10/17 18:10:22 dan Exp $
#
# Copyright (c) 2001-2006 DVL Software
#
use strict;
use warnings;
You can’t perform that action at this time.