for ymd in $(perl -le 'use POSIX qw(strftime); $t=1303150000; label: print strftime "%Y%m%d", localtime($t); $t += 86400; if ($t < time) { goto label}'); do 
# for ymd in 20120519; do 

yymmdd=$(echo $ymd | sed -e 's/..\(..\)\(..\)\(..\)/\2-\3-\1/')

file=donationbg${ymd}.png; ftime=${file:10:8}; mtime="$(ls -l "$file" 2> /dev/null | cut -d' ' -f6 | tr -d '\-')"

# echo -n $ftime '>=' $mtime:

if [ ! -e donationbg${ymd}.png ] || [ "$ftime" -ge "$mtime" ]; then

{
cat <<EOF
# clustered and stacked graph
=stackcluster;Portland ;Rest of OR ;Rest of USA;Unknown
colors=green,yellow,red,blue
=nolegoutline
=sortbmarks
=nogridy
=noupperright
legendx=inside
legendy=inside
max=250000
# yformat=%g  
xlabel=Donation Amount Buckets by Source Location and Candidate
ylabel=Dollars Raised Through $yymmdd

=table
EOF

echo "multimulti=0-100"
for c in Brady Smith Hales; do
  echo -n "$c 0 0 0 ";
  sqlite3 ${c}.db '
    select coalesce(sum(Amount),0.01) from candetable where
      SubType = "Cash Contribution" and
      ContributorPayee like "Miscellaneous Cash Contributions%" and
      ( substr(TranDate,7) || substr(TranDate,1,2) || substr(TranDate,4,2) ) <= "'$ymd'";
  '

done
for i in '100.01 and 200' '200.01 and 500' '500.01 and 1000' '1000.01 and 2000' '2000.01 and 5000' '5000.01 and 10000' '10000.01 and 1000000'; do
echo "multimulti=$i " | sed -e 's/\.01 / /g;s/000 /K /g;s/000K /M /g;s/ and /-/g'
  for c in Brady Smith Hales; do
    echo -n "$c ";
    sqlite3 $c.db '
      select coalesce(portland,0.01) || " " || coalesce(oregon-portland,0.01) || " " || coalesce(usa-oregon,0.01) || " 0" from (select
        sum(Amount) as usa,
        sum(case State when "OR" then Amount else 0 end) as oregon,
        sum(case City when "Portland" then Amount else 0 end) as portland
      from candetable where SubType like "%Contribution" and ContributorPayee not like "Miscellaneous%" and Amount between '"$i"' and
        ( substr(TranDate,7) || substr(TranDate,1,2) || substr(TranDate,4,2) ) <= "'$ymd'");
    '
  done
done
} | perl bargraph.pl -fig /dev/stdin | fig2dev -L png -m 4 | convert - -resize 773x494 donationbg${ymd}.png

fi

# file donationbg${ymd}.png  | perl -pe 's/(.*?): PNG image, (\d+) x (\d+).*/<img src="$1" width="$2" height="$3" alt="See table below" \/>/'

done

convert donationbg20*.png -delay 50 donationbg.gif

convert $(x=0; for i in donationbg20*.png; do ((x++)); [[ $(bc <<<"${x}%10==7") == 1 ]] && echo $i; done) -delay 50 donationbgsmall.gif