spectra

#!/bin/bash

NBATCH=3
NPARALLEL=5

(apt-get -y --print-uris $@ | egrep -o -e "http://[^\']+" | xargs -r -l${NBATCH} -P${NPARALLEL} wget -nv -P "/var/cache/apt/archives/") && apt-get $@

spectra

#!/bin/bash
SUBDIR=$1

if [ "$SUBDIR" = "" ]; then
  echo "You have to enter a subdir as first arg"
  exit -1
fi

if [ ! -e $SUBDIR ]; then
  echo "$SUBDIR must exist. Are you in the repo root?"

spectra

#!/bin/bash
# Change the Author Name/Email of a single commit

git filter-branch --commit-filter '
  if [ "$GIT_COMMIT" = "commit-hash-here" ]; then
    GIT_AUTHOR_NAME="New Author Name";
    GIT_AUTHOR_EMAIL="New Author Email";
    git commit-tree "$@";
  else
    git commit-tree "$@";

spectra

#!/usr/bin/env ruby
# Delete files from Gmail All Mail folder
# Needs proper Gmail account configuration
#
# ----------------------------------------------------------------------------
# "THE BEER-WARE LICENSE" (commit 34973274ccef6ab4dfaaf86599792fa9c3fe4689):
# <pablo@propus.com.br> wrote this file. As long as you retain this notice you
# can do whatever you want with this stuff. If we meet some day, and you think
# this stuff is worth it, you can buy me a beer in return Pablo Lorenzzoni
# ----------------------------------------------------------------------------

spectra

#!/bin/bash
# Simple MJPEG Server
# ----------------------------------------------------------------------------
# "THE BEER-WARE LICENSE" (commit 34973274ccef6ab4dfaaf86599792fa9c3fe4689):
# <pablo@propus.com.br> wrote this file. As long as you retain this notice you
# can do whatever you want with this stuff. If we meet some day, and you think
# this stuff is worth it, you can buy me a beer in return Pablo Lorenzzoni
# ----------------------------------------------------------------------------

# MJPEG Stream frame

spectra

#!/usr/bin/env python2

# Quick and dirty demonstration of CVE-2014-0160 by Jared Stafford (jspenguin@jspenguin.org)
# The author disclaims copyright to this source code.

import sys
import struct
import socket
import time
import select

spectra

#!/bin/bash

# Configs
VSYSTEM=qemu					# Either 'qemu' or 'kvm'
INCLUDES='less,vim,sudo,openssh-server,acpid'
MIRROR="http://ftp.br.debian.org/debian"
ARCH=686

clean_debian() {
	[ "$MNT_DIR" != "" ] && chroot $MNT_DIR umount /proc/ /sys/ /dev/ /boot/

spectra

' SantaTrans
' Transformations for a standardized Santa Casa PACS reports
' Really just a bunch of snippets put together
' -----------------------------------------------------------------------------
' "THE BEER-WARE LICENSE" (commit 34973274ccef6ab4dfaaf86599792fa9c3fe4689):
' <pablo@lorenzzoni.org> wrote this file. As long as you retain this notice you
' can do whatever you want with this stuff. If we meet some day, and you think
' this stuff is worth it, you can buy me a beer in return. Pablo Lorenzzoni
' -----------------------------------------------------------------------------

spectra

spectra@harad:~$ wget -q -O /dev/stdout http://fisl.softwarelivre.org/10/papers/pub/ | perl -lne '$i++ while m/=.tech_track_[0-9]+/g;END{print $i}'
204
spectra@harad:~$ wget -q -O /dev/stdout http://fisl.softwarelivre.org/10/papers/pub/ | perl -lne '$i++ while m/=.non_tech_track_[0-9]+/g;END{print $i}'
175
spectra@harad:~$