Skip to content

Instantly share code, notes, and snippets.

#!/bin/sh
git filter-branch --env-filter '
OLD_EMAIL="your-old-email@example.com"
CORRECT_NAME="Your Correct Name"
CORRECT_EMAIL="your-correct-email@example.com"
if [ "$GIT_COMMITTER_EMAIL" = "$OLD_EMAIL" ]
then
@lth2h
lth2h / csv2html.pl
Created September 10, 2014 17:55
csv2html.pl
#!/usr/bin/perl
use Text::xSV;
my $in = $ARGV[0] || "foo.csv";
my $out = $ARGV[1] || "/tmp/out.html";
open(FILE, "+>", $out) or die("Could not open $out");
print FILE "<table>";
@lth2h
lth2h / gc2id.pl
Last active April 20, 2016 15:14
#!/usr/bin/perl
use strict;
use warnings;
my $debug = 1;
## GC code is
# http://support.groundspeak.com/index.php?pg=kb.page&id=221
@lth2h
lth2h / git-branch-status
Created November 30, 2012 18:20 — forked from jehiah/git-branch-status
show git ahead/behind info for branches
#!/bin/bash
# forked from http://github.com/jehiah
# this prints out some branch status (similar to the '... ahead' info you get from git status)
# example:
# $ git branch-status
# dns_check (ahead 1) | (behind 112) origin/master
# master (ahead 2) | (behind 0) origin/master
git for-each-ref --format="%(refname:short) %(upstream:short)" refs/heads | \