#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use Time::Piece;

my $sqlfile  = '/var/www/cgi-bin/query.sql';

my $q = new CGI;
my $today = Time::Piece->new->ymd('');
my $startdate = $q->param('startdate') || $today;
my $enddate   = $q->param('enddate') || $today;

my $msg;
if ( ($startdate =~ /^20\d{6}$/) 
  && ($enddate   =~ /^20\d{6}$/) ){
  my $connstr = 'USER/PASWORD@DB';
  $msg = qx"sqlplus -s $connstr \@$sqlfile $startdate $enddate";
} else {
  $msg = "ERROR : Dates must be 20YYMMDD";
}

print $q->header,$q->start_html;
print qq!
<h3>Dates</h3>
<form>
Start date : <input type="text" maxlength="8" name="startdate" value="$startdate"/> yyyymmdd <br/>
End date   : <input type="text" maxlength="8" name="enddate"  value="$enddate"/> yyyymmdd</br>
<input type="submit"/>
</form>
</hr>
<h3>Result for $startdate to $enddate</h3>
<pre> $msg </pre>!;
print $q->end_html;