afresh1

#!/bin/sh
# replaces the c_rehash perl script from openssl.
# by afresh1

rm -f *.[0-9]* *.r[0-9]*
for c in *.pem; do
   [ "$c" = "*.pem" ] && continue
   hash=$(openssl x509 -noout -hash -in "$c")
   if egrep -q -- '-BEGIN( X509 | TRUSTED | )CERTIFICATE-' "$c"; then
     suf=0

afresh1

labels = [
  { "name": "Priority: Low", "color": "#009800" },
  { "name": "Priority: Medium", "color": "#fbca04" },
  { "name": "Priority: High", "color": "#eb6420" },
  { "name": "Priority: Critical", "color": "#e11d21" },
  { "name": "Status: Abandoned", "color": "#000000" },
  { "name": "Status: Accepted", "color": "#009800" },
  { "name": "Status: Available", "color": "#bfe5bf" },
  { "name": "Status: Blocked", "color": "#e11d21" },
  { "name": "Status: Completed", "color": "#006b75" },

afresh1

#!/bin/sh

if ! pgrep xlock >/dev/null 2>&1; then
    xlock -lockdelay 0 &
    sleep 1
fi

sudo -k
ssh-add -D

afresh1

#!/usr/bin/perl
use strict;
use warnings;

$| = 1;

print "foo: bar\r\n" for 1 .. 15;
print "\r\n";
print "quux\r\n";

afresh1

#!/bin/sh
exec perl -Mojo -E '$m=a("/");$m->static->paths(["."]);$m->start' daemon

afresh1

#!/usr/bin/env plackup -s FCGIDropPrivs
use strict;
use warnings;

my ($user, $group) = qw( nobody nogroup );
my $uid = getpwnam($user);
my $gid = getgrnam($group);
my $root = '/var/empty';

package Plack::Handler::FCGIDropPrivs;

afresh1

if [ ! "$TMUX" ]; then
  echo "Starting tmux . . ."
  sleep 3
  [ "$TERM" = "xterm" ] && TERM=xterm-256color
  tmux -2 attach || tmux -2
  exit
fi

afresh1

#!/usr/bin/perl
# Copyright (c) 2015 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

afresh1

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use feature 'signatures';
no warnings 'experimental::signatures';

use Sys::Hostname;
use HTTP::Tiny;

afresh1

#!/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;