cameroncking

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

my $VERSION=1.000;

=head1 NAME

check_port80.pl

cameroncking

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

my $VERSION = 0.006;
my $DEBUG = 1;

sub handle_wrn;
sub handle_err;

cameroncking

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

cameroncking

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

cameroncking

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

cameroncking

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

cameroncking

import turtle

t = turtle.Turtle()

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

cameroncking

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

cameroncking

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

cameroncking

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