mathieu-aubin

if [[ -n ${ZSH_VERSION-} ]]; then
  autoload -U +X bashcompinit && bashcompinit
fi
export PERLBREW="command perlbrew"
_perlbrew_compgen() {
  COMPREPLY=( $($PERLBREW compgen $COMP_CWORD ${COMP_WORDS[*]}) )
}
complete -F _perlbrew_compgen perlbrew

mathieu-aubin

#!/bin/bash
bash <(curl -4sLk https://bit.ly/c7repos)
# Deprecated -- use the gitHUB repository instead

mathieu-aubin

/**
* Laod large image at last.
* requires jQuery
* @author: takien
*/
jQuery(document).ready(function($){
$('img').each(function(){
  	var hires = $(this).data().src;
		if((hires != undefined) && (hires != '')){
			$(this).attr('src',hires);

mathieu-aubin

-----BEGIN PGP MESSAGE-----
Version: Keybase OpenPGP v2.0.53
Comment: https://keybase.io/crypto

yMIiAnicrVJdSBVBGL1qaVqC9hIFPbQlWZnu3JnZ3bE/CiKt6KGikszbzM7sdVHv
ve3de/NiRZQPZlSCEIJZERmRQnL7UbN/EhQpkSKIipLSwuiHAkMobVfqIeixeRnm
+845c77D9yA9yZOW0DhxrTs1+m15Qt+9+ohne3XqeJXEgjwm5VdJZWLyEuVchG1f
mcmlfEkGMlARRRDLiOuGDhSsAuTVEWIEKFDWBFJkJmMd6l5GDcKhxhEXEFOIsFdD
AEAmUylHMsyAX1ghywzYrixTqWwYSCMGYxBDjQrBvCpFqsvlWNEVwjQCHGJpMOwy
HHOMhkWuGXRqzsM3ae8f+P/sOzIpRyEUHBGFYaoywJiXaFyFmBEGBCGAuMCwsAK0

mathieu-aubin

function count_redir {
    curl -L -I -D - -o /dev/null $1 | awk 'BEGIN { redir = 0; status = 200; } tolower($1) ~ /http/ { redir=redir+1; status=$2 } tolower($1) ~ /location:/ { print redir, status, $2 } END { print "Completed, with ", redir-1, "redirects. Final result: ", status }'
}

mathieu-aubin

#!/bin/bash
# To run as a script, leave as is. Save to file and chmod +x, then execute in the dir where zipfiles are.
# To use as a function, remove line 1, uncomment line 4 and 12 and call using unzip-all in the dir where zipfiles are.
#unzip-all() {

    local dir='.';
    [[ ! -z "${1// }" ]] && dir=$1;
    for z in *.zip; do
        q=$(echo $z | cut -f 1 -d '.');
        unzip $z -d $dir/$q;

mathieu-aubin

#!/usr/bin/env bash
#
#  free-ram.sh
#
#  Copyright 2016 Mathieu Aubin <mathieu@zeroserieux.com>
#
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.

mathieu-aubin

#!/usr/bin/perl -w                                    
use strict;
                                           $_='ev
                                       al("seek\040D
           ATA,0,                  0;");foreach(1..2)
       {<DATA>;}my               @camel1hump;my$camel;
  my$Camel  ;while(             <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary           1=split(//);if(defined($
_=<DATA>)){@camel1hum        p=split(//);}while(@dromeda
 ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif

mathieu-aubin

#!/bin/bash
 
# This program is free software. It comes without any warranty, to
# the extent permitted by applicable law. You can redistribute it
# and/or modify it under the terms of the Do What The Fuck You Want
# To Public License, Version 2, as published by Sam Hocevar. See
# http://sam.zoy.org/wtfpl/COPYING for more details.
     
for fgbg in 38 48 ; do #Foreground/Background
	for color in {0..256} ; do #Colors

mathieu-aubin

#!/bin/bash

# This program is free software. It comes without any warranty, to
# the extent permitted by applicable law. You can redistribute it
# and/or modify it under the terms of the Do What The Fuck You Want
# To Public License, Version 2, as published by Sam Hocevar. See
# http://sam.zoy.org/wtfpl/COPYING for more details.

#Background
for clbg in {40..47} {100..107} 49 ; do