Skip to content

Instantly share code, notes, and snippets.

View nakal's full-sized avatar

Martin Sugioarto nakal

6 followers · 13 following
View GitHub Profile
@nakal
nakal / phabricator_phd
Last active January 11, 2020 22:53
#!/bin/sh
#
# $FreeBSD$
# PROVIDE: phabricator_phd
# REQUIRE: DAEMON mysql
# KEYWORD: shutdown
. /etc/rc.subr
@nakal
nakal / phabricator_aphlict
Last active January 11, 2020 22:53
#!/bin/sh
#
# $FreeBSD$
# PROVIDE: phabricator_aphlict
# REQUIRE: phabricator_phd
# KEYWORD: shutdown
. /etc/rc.subr
@nakal
nakal / weechat_echo.sh
Last active March 22, 2016 15:54
#!/bin/sh
IRCSERVER="$1"
CHANNEL="$2"
TEXT="$3"
WEECHAT_PID=`pgrep -U weechatuser weechat`
WEECHAT_PIPE="/home/weechatuser/.weechat/weechat_fifo_${WEECHAT_PID}"
if [ -p "$WEECHAT_PIPE" ]; then
echo "irc.$IRCSERVER.$CHANNEL *$TEXT" > "$WEECHAT_PIPE"
@nakal
nakal / ssl-ca-check.c
Last active May 3, 2016 13:55
SSL self-made CA verification samples
const char * ca_pubkey =
{
"-----BEGIN CERTIFICATE-----\n"
...
"-----END CERTIFICATE-----"
};
void init(void)
{
/* these both are called only once for the entire application */
@nakal
nakal / poudriere-cron.sh
Last active October 2, 2021 17:18
#!/bin/sh
SCRIPTNAME=`basename "$0"`
PORTSTREE="local"
POUDRIERE="/usr/local/bin/poudriere"
URL="https://host.example.org/poudriere/"
poudriere_build() {
for REPO in $REPOS; do
echo "Started $REPO ("`/bin/date | /usr/bin/tr -d '\n'`")"
@nakal
nakal / snap-man.pl
Last active July 30, 2016 23:03
#!/usr/bin/env perl
use strict;
use warnings;
my $verbose = 0;
my ($senddiff) = @ARGV;
if (defined($senddiff)) {
$senddiff = 1;
@nakal
nakal / poudriere-cmd.sh
Created October 7, 2016 14:18
Command wrapper for poudriere
#!/bin/sh
JAIL=11amd64
FUN="$1"
DEST="$2"
shift 2
PKG="$@"
OPT_EXT=""
@nakal
nakal / xmonad-modules.md
Last active November 4, 2016 16:04
Interesting Xmonad modules
@nakal
nakal / year_average.hs
Created November 3, 2016 16:57
Calculates a diagram of average usage per day from timestamp/value pairs
import qualified Data.ByteString.Char8 as C8
import Data.UnixTime
csvTableToTuple :: String -> (Int, Int)
csvTableToTuple line =
let date = takeWhile (/= ';') line
val = tail $ dropWhile (/= ';') line
in (fromEnum (utSeconds (parseUnixTime (C8.pack "%Y-%m-%d") (C8.pack date))), read val)
secondsInDay :: Int
@nakal
nakal / mbsyncrc
Created January 2, 2017 12:05
MaildirStore maildir
Path ~/.mail/
Inbox ~/.mail/INBOX
Flatten .
IMAPAccount imapaccount
Host HOSTNAME
User USER
Pass PASSWORD
SSLVersions TLSv1.2