#!/usr/local/bin/ruby
require 'rubygems'
require 'cgi'
require 'GINA'

begin
	require 'dbi'
	cgi=CGI.new("html3")

	web_conf =  GINA::load_config("l5_tracker/coverage.yml")
	conf = GINA::load_config("l5_tracker/database.yml")
	dbh = DBI.connect(conf['production']['dbi_connector']  , conf['production']['username'], conf['production']['password'])


	out = []
	start_tm = Time.gm(Time.now().year, Time.now().month, Time.now().day, 0,0,0,0)

	sql = "select distinct " +
                "  region  " +
           " from " +
                "  afs_basedata.firezone " +
	   " order by " +
		" region "

	sth = dbh.prepare(sql)
	sth.execute

	out << "<script type=\"text/javascript\" src=\"prototype-1.4.0.js\" > </script>"
	out << "<script type=\"text/javascript\" src=\"jays_javamadness.js\" > </script> "

	out << "<DIV ID=\"navbox\">"

	out << "<UL>"

	while row=sth.fetch_hash do
                out << "<LI>"
                out <<  sprintf("<A HREF=\"%s?%s=%s\" TARGET=\"UPPER_WORKING_FRAME\" > %s </A>", 
                        web_conf['web']['mid_viewer_url'],
                        web_conf['web']['date_arg'],
                        row['region'],
			row['region']
                          )
                out << "</LI>"
	end

        out << "</UL>"
        out << "</DIV>"
        out << "<iframe name=\"UPPER_WORKING_FRAME\" width=\"100%\" HEIGHT=\"100%\" >"
        out << "</iframe>"

	cgi.out {
              cgi.head { cgi.title{ web_conf['web']['title'] } + 
			"<link href=\"/css/navbox.css\" type=\"text/css\" rel=\"stylesheet\" media=\"screen\" />" +
                        "<link href=\"/css/navbox.css\" type=\"text/css\" rel=\"stylesheet\" media=\"print\" />"} +
                        cgi.body {
				out.join("\n")
                       }
                 }

	exit(1)

catch   StandardError => e
        cgi= CGI.new("html3");
                cgi.out {
                        cgi.head { cgi.title{"Sadness.. Something not good has happened.."} }  +
                                cgi.html {
                                        "Something bad has happened.. Perhaps it is this:<pre> #{e.to_s}</pre> " +
                                        " or <pre> #{e.backtrace}</pre>"
                                        }
                        }
        exit(-1);

end