#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI ':standard';
use Date::Calc  qw(:all);


my  $data="path/data.txt";

  
my $checkthree = param('check');
my $d = param('days');		#2 digit
my $m = param('months');	#2 digit
my $y = param('years');		#4 digit
my $Dd = param('Dd');	

my $days = Date_to_Days($y,$m,$d);

my $count = 0;
my @Calendar;

	while ($count < $Dd){
		push (@Calendar, $days);
		$count += 1;
		$days  += 1;

}

print header(), start_html;


open IN, $data or die "Cannot open $data for reading:$!\n";


         
my @line;

while (my $line =<IN>)
{
    my ($one,$two,$three,$four,$five,$six,$seven) = split "\t",$line;
    if ($three eq $checkthree) {
   push (@Calendar, $seven);
   my $replacementline = "$one,$two,$three,$four,$five,$six,@Calendar";
    push (@line, $replacementline);
     last;
     }    
}
close IN;

   print "@line";

##</code><code>##

 
foreach (@line) {
        ($one,$two,$three,$four,$five,$six,$seven) = $_;
       }