#!/usr/bin/perl -w

use Term::ANSIColor;
use Date::Calc qw(Add_Delta_Days);
use strict;
use warnings;

my $START_DATE = &prompt("Please enter the start date (format yyyy-mm-dd):");
my $END_DATE = &prompt("Please enter the ending date (format yyyy-mm-dd):");

open LABFILE, '>', "labels.txt";
        print LABFILE join("\n", date_list($START_DATE, $END_DATE));
close LABFILE;

sub date_list {
        my ($from, $to) = @_;

                my @dates = $from;
                my $intermediate = $from;

                while ($intermediate ne $to) {
                        $intermediate =  sprintf "%04d-%02d-%02d", Add_Delta_Days(split(/-/, $intermediate), 1);
                        push @dates, $intermediate;
                }

                my $first = shift(@dates);
                my $last = pop(@dates);
                my $dates = join("\n", @dates);
                my @multiple = $dates;
                my @mults = map { "$dates" } @multiple;

                foreach my $date(@mults) {
                #return $date;
                return (($date) x 10);
                }
        }


sub prompt {
  my($prompt, $default) = @_;
  my $defaultValue = $default ? "[$default]" : "";
  print color("yellow"), "$prompt $defaultValue", color ("reset");
  chomp(my $input = <STDIN>);
  return $input ? $input : $default;
}