dap

#!/usr/bin/perl

# write_jpg.pl - Store PHP code inside of a JPEG
# Darian Anthony Patrick <[email protected]>
#
# Demonstration of masquerading PHP code inside
# of a file identifiable as JPEG format

use perl5i;
use IO::All;

dap

#!/usr/bin/perl

# write_gif.pl - Store PHP code inside of a GIF
# Darian Anthony Patrick <[email protected]>
#
# Demonstration of masquerading PHP code inside
# of a file identifiable as GIF format

use perl5i;
use IO::All;

dap

#!/usr/bin/perl

# php_watch.pl - Monitor directory for PHP code in non-.php files
# Darian Anthony Patrick <[email protected]>
#
# Uses inotify to monitor a directory for the
# existence of files containing PHP code which
# are not named with a .php file extension

use perl5i;

dap

#!/bin/bash

# ddweb.sh - enable/disable DD-WRT web console access
# Darian Anthony Patrick <[email protected]>
#
# Control access to the web management console
# of devices using the DD-WRT firmware by
# enabling/disabling the HTTP & HTTPS access.
#
# Repository: http://gist.github.com/151750

dap

How to get sleekmigrate to work as noted at
http://el-tramo.be/blog/openfire-to-prosody-migration on Ubuntu 8.10:

0.  Install python-tlslite from the chromium-daily PPA.
    See https://launchpad.net/~chromium-daily/+archive/ppa.

1.  Make a place to work:

$ mkdir ~/workspace && cd ~/workspace

dap

How to debug an Apache segfault on Solaris 10

1.  Ensure that the /var/core directory exists.

2.  $ mdb /usr/local/sbin/httpd

3.  At the MDB prompt:
    > ::run -X
    The "-X" above is actually a parameter to the httpd binary.

dap

Let's say you have something like:

  /home/dap/workspace/awesome_code

Which contains your project files along with RCS:

  awesome_code/
    RCS/
    code.pl
    README

dap

#!/usr/bin/perl

use Sys::Proctitle qw/:all/;

# ps
$0 = "awesome_code";

# top
setproctitle("awesome_code");

dap

#!/usr/local/bin/perl

use strict;
use warnings;

use Getopt::Long;		# option parsing
use Capture::Tiny qw/capture/;	# output capture
use Date::Format;		# date formatting
use Method::Signatures;		# "func" syntax
use Sysadm::Install qw/:all/;	# utilities for system administration

dap

#!/usr/local/bin/perl

use strict;
use warnings;

use Getopt::Long;		# option parsing
use Capture::Tiny qw/capture/;	# output capture
use Date::Format;		# date formatting
use Method::Signatures;		# "func" syntax
use Sysadm::Install qw/:all/;	# utilities for system administration