ckxng

/**
 * model helper module
 *
 * This module contains helper functions for interacting with models
 *
 * @module lib/modelhelper
 */
// jshint.unstable bigint: true
var Members = require("../models/members");

ckxng

(define-key global-map "\C-ca" 'org-agenda)

(set-time-zone-rule "US/Central")

(require 'org)

(setq org-clock-persist 'history)


(setq org-agenda-files (list "~/org/athenahealth.org"

ckxng

#!/bin/sh

# parse the page and pagepath from QUERY_STRING
page=$(
        echo "${QUERY_STRING}" | \
        sed -n 's/^.*page=\([^&]*\).*$/\1/p' | \
        sed 's/[^a-zA-Z0-9\/\-_]/X/g'
)
if [ "${page}" = '' ]; then
        page='index'

ckxng

#!/usr/bin/perl -WT
# Using taint and strict.  All variables must be declared and all input must be
# processed before use.  The most aggressive settings are used for warnings.
# This script will fail if it is misused or perscribed conditions are not met.
use warnings FATAL => 'all';
use strict;

=head1 NAME

emergency-shell

ckxng

#!/usr/bin/env python3
"""simple socket service simulating an HTTP response to see if LDAP DSA is alive                                                                      
"""
from subprocess import Popen, PIPE
from json import dumps
import socket
import sys

bind_host = ""
bind_port = 1200

ckxng

import turtle

t = turtle.Turtle()

for c in ['red', 'green', 'yellow', 'blue']:
    t.color(c)
    t.forward(75)
    t.left(90)

ckxng

#!/bin/sh

# password for vscode
PASS=XXX
# hostname at duckdns.org
HOST=XXX
# duckdns.org token
DUCK=XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX
# sysadmin email
EMAIL=XXX@XXX.XXX

ckxng

#!/usr/bin/perl
# Client Xenon Product Facts
# Cameron King <http://cameronking.me>
# Version 1.01 - add magento and wordpress counts
# Version 1.00 - initial version
use warnings;
use strict;

my $VERSION = 1.01;
my %facts = ();

ckxng

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


system "mkdir /var/log/sec/" unless -d "/var/log/sec";
my $date=`date -Is`;
chomp $date;
my $fn="/var/log/sec/mysql-diag_${date}_$$.log";
open LOG, ">$fn";

ckxng

#!/usr/bin/perl
# Copyright 2012 Cameron King.  ISC License
use strict;
use warnings;

# changelog
# 1.00 - initial version
# 1.01 - change apc.include_once_override to 0

sub block2 {