----------------- code/python/make-exp-data.py
#!/usr/bin/python

import sys
import _mysql
import string

db = _mysql.connect('localhost','foo','bar','foobar')
querystring = "select paiva,exp from entry ORDER BY paiva"
db.query(querystring)

r = db.use_result()
table = r.fetch_row(maxrows=0)

if table:
        rows = len(table)
        for a in range(rows):
		for b in table[a]:
			print "%s " % (b),
		print ""

----------------- code/python/make-money-data.py
#!/usr/bin/python

import sys
import _mysql
import string

db = _mysql.connect('localhost','foo','bar','foobar')
querystring = "select paiva,money from entry ORDER BY paiva"
db.query(querystring)

r = db.use_result()
table = r.fetch_row(maxrows=0)

edellinen = -1

if table:
        rows = len(table)
        for a in range(rows):
		c=string.split(table[a][0],'-')
		data = (string.atoi(c[0])-2000)*365+(string.atoi(c[1])-1)*30+string.atoi(c[2])
		print "%d %d" % (data,string.atoi(table[a][1])/50)

----------------- code/perl/make-exp-graph.pl
#!/usr/bin/perl

open (DATAFILE,"> /tmp/exp-data.txt");
@kuukaudet = qw(null Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
$edellinen = 0;
$kuukausi = 0;
$foo = 0;
$xtics = "";
while(<>)
{
	if (/(\d+)-(\d+)-(\d+)  (\d+)/)
	{
		$a=($1-2000)*365+($2-1)*30+$3;
		if ($edellinen != $2)
		{
			$edellinen = $2;
			if (($a - $foo) > 20) {
			$xtics = sprintf ("%s\"%s %s\" %d,",$xtics,$kuukaudet[$2],$3,$a);
			$foo = $a;
			}
		}
		print DATAFILE "$a $4\n";
	}
}
close DATAFILE;
chop $xtics;
open (GPFILE,"> /tmp/exp-plot.txt");
print GPFILE <<EOM;
set term png color
set offsets
set nolog
set nopolar
set border
set title "My exp amount"
set xlabel "Date"
set ylabel "1k exp / 50gp money" -10
set size 1.5,1.0
set xtics ($xtics)
plot '/tmp/exp-data.txt' title "exp" with lines,'/tmp/money-raw.txt' title "money" with lines
EOM
close GPFILE;
system("gnuplot /tmp/exp-plot.txt > /tmp/exp.png");
--------------- code/bash/make-exp-stat.sh
#!/bin/sh

python2.1 /home/tkoskine/code/python/make-exp-data.py > /tmp/exp-raw-data.txt
python2.1 /home/tkoskine/code/python/make-money-data.py > /tmp/money-raw.txt

if [ -f /tmp/exp-raw-data.txt ]; then
    perl /home/tkoskine/code/perl/make-exp-graph.pl < /tmp/exp-raw-data.txt
    rm -f /tmp/exp-raw-data.txt
    rm -f /tmp/exp-data.txt /tmp/exp-plot.txt /tmp/money-raw.txt
    cp -f /tmp/exp.png /home/tkoskine/public_html/batmud/exp.png
else
    echo "Something failed."
    exit 1
fi