Skip to content

Instantly share code, notes, and snippets.

View p120ph37's full-sized avatar

Aaron Meriwether p120ph37

16 followers · 1 following
View GitHub Profile
@p120ph37
p120ph37 / gist:acd3e20797f07670d927
Created June 17, 2014 17:24
Fetch and build a DEB of Bashrun2
#!/bin/sh
VERSION=0.2.2
wget https://bashrun2.googlecode.com/files/bashrun2-$VERSION.tar.gz
tar -xzvf bashrun2-$VERSION.tar.gz
cd bashrun2-$VERSION/
dh_make -f ../bashrun2-$VERSION.tar.gz --single --copyright gpl2
dpkg-buildpackage
@p120ph37
p120ph37 / date-popup.xml
Created July 21, 2014 14:20
Date/time popup action for openbox
<openbox_menu>
<menu id="date-popup" label="Date &amp; Time"
execute="date +'&lt;openbox_pipe_menu&gt;&lt;item label=&quot;: %a %B %d, %Y %H:%M:%S&quot;/&gt;&lt;/openbox_pipe_menu&gt;'"
/>
</openbox_menu>
@p120ph37
p120ph37 / screenrotate.sh
Last active August 29, 2015 14:04
Rotate screen every 15 minutes (for 2 hours)
#!/bin/sh
#
# to fix:
# xrandr | grep \ connected | cut -f1 -d\ | xargs -I{} xrandr --output {} --rotate normal
times=2
delay=900
for y in `seq 1 $times`; do
for x in right inverted left normal; do
sleep $delay
xrandr | grep \ connected | cut -f1 -d\ | xargs -I{} xrandr --output {} --rotate $x
@p120ph37
p120ph37 / gist:15efac098fcf98d9da08
Created August 22, 2014 22:21
Git Bash Prompt
# produce a colorized path string with the git branch injected at the root of the repository
PS1git='\[\e[94m\]$(git rev-parse --show-toplevel 2>/dev/null)$( \
( test -z "$(git status -s 2>/dev/null)" && __git_ps1 "\[\e[32m\](%s)" ) \
|| __git_ps1 "\[\e[91m\]{%s}" \
)\[\e[94m\]${PWD##$(git rev-parse --show-toplevel 2>/dev/null)}'
# Use where you would use "\w" in your PS1 prompt. e.g.:
PS1='${debian_chroot:+($debian_chroot)}\[\e[1;32m\]\u@\h\[\e[0m\]:'"$PS1git"'\[\e[0m\]\$'
@p120ph37
p120ph37 / rc.xml
Created August 27, 2014 20:22
openbox config file
<?xml version="1.0" encoding="UTF-8"?>
<openbox_config xmlns="http://openbox.org/3.4/rc" xmlns:xi="http://www.w3.org/2001/XInclude">
<resistance>
<strength>10</strength>
<screen_edge_strength>20</screen_edge_strength>
</resistance>
<focus>
<focusNew>yes</focusNew>
<followMouse>no</followMouse>
<focusLast>yes</focusLast>
@p120ph37
p120ph37 / gist:49bf890ee37087d37114
Created October 14, 2014 16:31
Minimal webserver in Perl.
socket$s,2,1,6;bind$s,pack+snN3,2,8080;listen$s,1;while(accept$c,$s){<$c>=~/\/(\S+)/;open$f,$1;print$c(<$f>);close$c}
@p120ph37
p120ph37 / show_locks.pl
Last active August 29, 2015 14:23
Cross-reference `/proc/locks` against a particular file to show what locks are present against that file.
#!/usr/bin/perl
use warnings;
use strict;
my %pl;
open(my $fh, '<', '/proc/locks') or die $!;
for(<$fh>) {
my @f = split /\s+/;
push(@{$pl{$f[5]}}, \@f);
}
@p120ph37
p120ph37 / info.pl
Created July 14, 2015 21:21
Simple CGI that displays information about the request.
#!/usr/bin/perl
use warnings;
use strict;
use CGI qw/param escapeHTML/;
use MIME::Base64;
### Apache2's mod_cgi does not pass the HTTP__AUTHORIZATION header by default.
### Add this to .htaccess to work around the issue...
# RewriteEngine on
# RewriteCond %{HTTP:Authorization} ^(.*)
@p120ph37
p120ph37 / basicauthsoap.c
Last active August 29, 2015 14:25
libcurl basic-auth soap example
/*
* HTTP POST with authentiction using "basic" method.
* Hybrid of anyauthput.c and postinmemory.c
* Specifically adapted for SOAP use.
*
* Usage:
* cc basicauthsoap.c -lcurl -o basicauthsoap
* ./basicauthsoap
*
*/
@p120ph37
p120ph37 / win32-ping.pl
Created July 31, 2015 22:10
Example using Win32::PingICMP
use warnings;
use strict;
use Win32::PingICMP;
use Socket qw/inet_ntoa/;
# The exact error strings as used by ping.exe
my %errors = (
'IP_BUF_TOO_SMALL' => 'General failure.',
'IP_DEST_NET_UNREACHABLE' => 'Destination net unreachable.',
'IP_DEST_HOST_UNREACHABLE' => 'Destination host unreachable.',