#!/usr/local/bin/perl

use DBI;
use CGI;

require "iniappresp.pl";
$| = 1;
$debug = 2;

$query = new CGI;
$startdate = $query->param('date');
$location = $query->param('location');
#$app = $query->param('application');
$begin = $query->param('start');
$stop = $query->param('end');

$begin = '0'.$begin if($begin < 10);
$stop = '0'.$stop if($stop < 10);
      $startdate =~ m%(.*)/(.*)/(.*)%;

$month = $1;
$day   = $2;
$year  = $3;