#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use HTML::Template;
use Time::Piece;
use CGI::Session;
use Data::Dumper;

my $date_ntime = localtime->strftime('%Y%m%d%H%M%S');

my $cgi = CGI->new();

# Create new session
my $session = new CGI::Session("driver:File", undef, {Directory => 'sesh'})  or die CGI::Session->errstr;;

my $tmpl = HTML::Template->new(filename => 'templates/mini.tmpl', die_on_bad_params => 0, associate => $session);

my $got_file_name = $cgi->param( 'doc_upload' ) || '';

# Store file name to use later.
$session->param("doc_uploaded", $got_file_name);
my $filename_uploaded = $session->param("doc_uploaded");

# This is the return from the redirect 'Location:'
my $conf_msg = $cgi->param( 'conf' ) || '';

process_request($got_file_name, $date_ntime) if $got_file_name ;

# To prevent re-entering data twice by refreshing page.
confirmation($conf_msg) if $conf_msg; 

print $cgi->header, $tmpl->output;
exit;

sub process_request {
    
 my ($file_name, $date_ntime ) = @_;
 return unless $file_name ;

 my $file_renamed .=$date_ntime.".txt";
 my ($ext) = $file_name =~ /((\.[^.\s]+)+)$/;
 
 if ($ext =~ m/\.txt|\.csv$/) {

   $cgi->upload( 'doc_upload' );
   my $tmp_file = $cgi->tmpFileName( $file_name );
   rename( $tmp_file, $file_renamed );
   chmod 0664, $file_renamed;

   print 'Location: https://myserver/mini.pl?conf=1', "\r\n\r\n";
	     
 }else {
    
   $tmpl->param(
	         ERROR => 1,
	       );

 }
 
}

sub confirmation {

 my ($message) = @_;
 return unless $message;

 my $text = $session->param("doc_uploaded");
 #my $text = $session->param(-name=>'doc_uploaded');
 
 $tmpl->param(
		  MSG_OK => 1,
		  #FILE_NAME => $text,
		  FILE_NAME => $filename_uploaded,
	         ) if $message;
		 
}