tommybutler

" don't sacrifice functionality and features just to preserve backward compatibility with vi
:set nocompatible
 
" turn on syntax highlighting
:syntax enable
 
" if a given file type (perl, ruby, python, c, etc) has its own special auto-indentation rules, use them
:filetype plugin indent on
 
" turn on auto-indenting (use this if you turn off option ':filetype plugin indent on')

tommybutler

shopt -s checkwinsize

export PS1="\n[\[\e[1;37m\]\u\[\e[0m\]@\[\e[1;34m\]\H\[\e[0m\]] [\[\e[1;33m\]\d, \t\[\e[0m\]] [\[\e[1;31m\]\!\[\e[0m\]]\n\[\e[1;31m\]\[\e[0m\][\[\e[1;37m\]\w\[\e[0m\]]\n\[\e[1;37m\]\\$\[\e[0m\] "

export HISTTIMEFORMAT='%F %T '
export HISTCONTROL=ignoredups
export HISTCONTROL=ignoreboth
export HISTIGNORE='pwd:ls:history:'
export HISTSIZE=4096
export EDITOR='/usr/bin/vim'

tommybutler

#!/bin/bash
RECIPIENT="[email protected]";
PREFIX="LOGIN ALERT!";
REMOTEIP=$(/bin/echo $SSH_CLIENT | /usr/bin/awk '{ print $1 }');
TIME=$(/bin/date +'%r, %D');
HOST=$(/bin/hostname -f);
 
if [[ "$REMOTEIP" == "" ]]; then
   REMOTEIP='localhost';
fi

tommybutler

# add this to your .bashrc

function coretemp {
 
   /usr/bin/clear;
 
   while : ; do 
 
      /usr/bin/sensors | /bin/grep ^Core | while read x; do 
 

tommybutler

#!/bin/bash
 
# denyhosts-remove.sh
#
# AUTHOR: Tommy Butler, email: $ echo YWNlQHRvbW15YnV0bGVyLm1lCg==|base64 -d
# VERSION: 1.0
#
# SUMMARY:
# Use this script to Remove an IP address ban that has been errantly blacklisted
# by denyhosts - the ubiquitous and unforgiving brute-force attack protection

tommybutler

#!/bin/bash
 
# AUTHOR: Tommy Butler
#
# DESCRIPTION:
# Run this script to offline and delete a disk from your Linux system.  
# It should work for most people, but if you've got an old kernel it may not.
# Unless you know what you're doing, DO NOT USE THIS SCRIPT!
#
# LICENSE: Perl Artistic License - http://dev.perl.org/licenses/artistic.html

tommybutler

BEGIN { # give up root identity and run as an unprivileged user ASAP

   use POSIX;
  
   my $run_as = 'user_you_want_to_run_as';

   my ( $uid, $gid ) = ( getpwnam $run_as )[ 2, 3 ];

   die $! unless $uid && $gid;

tommybutler

#!/usr/bin/env perl

use Modern::Perl;

use 5.016;

use Expect;
use File::Util;
use Time::HiRes qw( time );