weissjeffm

#!/bin/bash -x
mkdir -p logs

rm -rf githash buildhash logs/*
wget http://hudson.rhq.lab.eng.bos.redhat.com:8080/hudson/view/katello/job/katello-build/lastSuccessfulBuild/artifact/githash
wget http://hudson.rhq.lab.eng.bos.redhat.com:8080/hudson/view/katello/job/katello-build/lastSuccessfulBuild/artifact/buildhash

#start deltacloud instance
rm -f deltacloud-provision.rb
wget https://raw.github.com/gist/3796321/deltacloud-provision.rb

weissjeffm

(fn [s]
  (let [suit (first s) rank (last s)
        st (case suit
          \D :diamond
          \C :club
          \S :spade)
        rk (try
        (- (Integer/parseInt rank) 2)
        (catch NumberFormatException e
          (case rank