Skip to content

Instantly share code, notes, and snippets.

@evandhoffman
evandhoffman / poodle_audit.sh
Last active Aug 29, 2015
Update all ELBs to address POODLE
View poodle_audit.sh
#/bin/bash
# To audit, I tried the bash script here https://gist.github.com/aastaneh/46ceb03150e5284b8a3a but it didn't work,
# so here's my version. It doesn't attempt to check internal ELBs (prefixed with 'internal').
for ELB in $( aws elb describe-load-balancers | grep DNSName | awk '{ print $2 }' | perl -ne 'chomp; $_ =~ /\"([\w-\.]+)\",/; my $elb = $1; print "$elb " unless $elb =~ /^internal/'); do
echo "$ELB ";
echo "01 logout" | openssl s_client -ssl3 -connect $ELB:443 2>&1 | grep DONE &> /dev/null
if [[ "$?" -ne "1" ]]; then
echo FAIL
else
View Readme.md

What is it?

It's a script that renames all your EBS volumes to the name+device of the EC2 instance they're attached to. It also applies the "environment" tag to each volume, read from the instance. (I use the 'environment' tag in billing reports.)

So if your instance's "Name" tag is backend-1234.prod.example.com and the volume is mapped to /dev/sdh, this script would apply the tag Name=backend-1234-prod-example-com-dev-sdh to the volume, and set the environment tag to match the instance's.

@evandhoffman
evandhoffman / gist:c22f0f3b9cfe8c906fbf
Last active Aug 29, 2015
Tag all EBS volumes in a VPC
View gist:c22f0f3b9cfe8c906fbf

Get list of instances in the VPC:

[evan@Evan ~] $ aws ec2 describe-instances --filter Name=vpc-id,Values=vpc-id | jq '[.Reservations[] | .Instances[] | .InstanceId ] | join(",")'

Get the list of volumes attached to those instances:

[evan@Evan ~] $ aws ec2 describe-volumes --filters Name=attachment.instance-id,Values=i-abcd,i-abce,i-abcf,i-abcg

Paste result into this command:

@evandhoffman
evandhoffman / parse_eq_logs.pl
Last active Aug 29, 2015
Perl script to parse my old everquest logs.
View parse_eq_logs.pl
#!/usr/local/bin/perl
use strict;
my $date_regex = qr/^\[(\w{3}) (\w{3}) (\d{2}) (\d{2}):(\d{2}):(\d{2}) (\d{4})\]/;
my $guild_msg = qr/(\w+) tells the guild, '([^']+)'/;
my $channel_msg = qr/(\w+) tell(?:s?) ([\w]+):(?:\d+), '([^']+)'/;
my $raid_msg = qr/(\w+) tells the raid, '([^']+)'/;
@evandhoffman
evandhoffman / README.md
Last active Aug 29, 2015
List all instances in an ELB, and all ELBs the instances are in.
View README.md

Usage

$ ruby ./instance_to_elb.rb

Output

The output is a JSON containing the mapping of LB->instances as well as Instance->LBs.

@evandhoffman
evandhoffman / organize-mp3.pl
Last active Aug 29, 2015
Perl script to organize a pile of MP3s into sane folders so I can put them in my car USB stick.
View organize-mp3.pl
#!/usr/bin/perl
#
use strict;
use warnings;
#use MP3::M3U::Parser;
use MP3::Tag;
use Data::Dumper;
use File::Copy;
View evanhoffman.json
{
"name": "Evan D. Hoffman",
"email_addr": "evandhoffman@gmail.com",
"summary": "I like building awesome things, usually involving computers.",
"professional_experience": [
{
"start_date": "2014-01",
"end_date": null,
"organization": "Bonobos, Inc.",
"location": "New York, NY",
@evandhoffman
evandhoffman / ec2export.py
Last active May 29, 2017
Export EC2 instances to CSV.
View ec2export.py
#!/usr/bin/env python
# Based on the script found here: http://cloudbuzz.wordpress.com/2011/02/15/336/
from boto.ec2 import EC2Connection
csv_file = open('instances.csv','w+')
def process_instance_list(connection):
map(build_instance_list,connection.get_all_instances())
@evandhoffman
evandhoffman / fail1.conf
Last active Oct 8, 2015
Nginx add_header
View fail1.conf
# Nginx will fail to start and will throw an error like this:
# Reloading nginx configuration: nginx: [emerg] "add_header" directive is not allowed here in /etc/nginx/sites-enabled/fail1.conf:39
server {
listen 8080 default;
server_name _;
root /var/www/html ;
@evandhoffman
evandhoffman / EWWWW.txt
Last active Aug 29, 2015
Awful one-liner
View EWWWW.txt
root@ip-10-14-10-142:~# export INSTANCE_ID=`ec2metadata --instance-id`
root@ip-10-14-10-142:~# HOSTNAME=`aws ec2 describe-tags --region us-east-1 --filter "Name=resource-id,Values=$INSTANCE_ID" 'Name=key,Values=Name' | perl -ne 'chomp; my @a = split(/[ ]+/); next unless $a[1] eq "\"Value\":"; $a[2] =~ s/\"([\d\w\.\-]+)\".+/$1/; print "$a[2]\n"'`
root@ip-10-14-10-142:~# hostname $HOSTNAME
root@ip-10-14-10-142:~# echo $HOSTNAME
www.example.com
root@ip-10-14-10-142:~# echo $HOSTNAME > /etc/hostname
You can’t perform that action at this time.