#Each row of the list is returned in the following format.
#<directory>, <filename>, <size>, <attribute>, <date>, <time>
# date 16 bit int -- bit 15-9 value based on 0 as 1980, bit 8-5 month value from 1 to 12, bit 4-0 day, value from 1 to 31
# time 16 bit int -- bit 15-11 hour, 10-5, minute, 4-0 second / 2
# size 
my $fileList = getHttp($cardip, "command.cgi?op=100&DIR=/");
#print ($fileList . "\n");
my @fileArray = split("\n", $fileList);
my @fileTimesArray;
my $lastTime = 0;
print (ref(@fileArray) . "\n");
foreach my $file (@fileArray) {
	if (index($file, ",") != -1) {
		print "working with file $file\n";
	
		my ($directory, $name, $size, $att, $date, $time) = split(",", $file);
		# example date, time = 18151,39092
		my $day = ($date >>  0) & (2**5-1);
		my $month = ($date >>  5) & (2**4-1);
		my $year = ($date >>  9) & (2**7-1);
		$year = 1980 + $year;
		my $second = ($time >>  0) & (2**5-1);
		my $minute = ($time >>  5) & (2**6-1);
		my $hour = ($time >>  11) & (2**5-1);
		$second = $second * 2;

		print ("file: $name | $month - $day - $year | $hour : $minute : $second | $epochTime\n");
		#print ("file: $name | $date | $time\n");
		#print ("day: $day\n");
		#print ("month: $month\n");
		#print ("year: $year\n");
		#print ("second: $second\n");
		#print ("minute: $minute\n");
		#print ("hour: $hour\n");
		
		my $perlMonth = $month - 1;
		my $epochTime = timelocal($second,$minute,$hour,$day,$perlMonth,$year);
		if ($epochTime > $lastTime) {
			$lastTime = $epochTime;
		}		
		push @fileTimesArray, { file => $name, epoch => $epochTime, size => $size }; 
	}
}

##</code><code>##

	@info = stat($path->{file});
	my $createdtime = $info[10];
	print "regular created time is: $createdtime\n";
	my ($sec, $min, $hour, $day,$month,$year) = (localtime($createdtime))[0,1,2,3,4,5]; 
	# You can use 'gmtime' for GMT/UTC dates instead of 'localtime'
	$month++;
	my $displayYear = $year;
	my $realYear = $year;
	$year = $year - 80;
	$second = ceil($sec / 2);
		
	# example date, time = 18151,39092 --> not same format!?!
	
	# time 16 bit int -- bit 15-11 hour, 10-5, minute, 4-0 second / 2
	#my $encSecond = $second & (2**5-1);
	#my $encMinute = $minute & (2**6-1);
	#my $encHour = $hour & (2**5-1);

	# date 16 bit int -- bit 15-9 value based on 0 as 1980, bit 8-5 month value from 1 to 12, bit 4-0 day, value from 1 to 31	
	#my $encDay = $day & (2**5-1);
	#my $encMonth = $month & (2**4-1);
	#my $encYear = $month & (2**7-1);
	
	#use integer;
	my $data = $year . $month . $day . $hour . $min . $second;
	print "using $data as input for pack\n";
	#my $data = $second . " " . $minute . " " . $hour . " " . $day . " " . $month . " " . $year;
	#my $createdtimeFat =  pack "N8", $data;
	my $createdtimeFat =  pack "N8", $year,$month,$day,$hour,$min,$second;
	#my $createdtimeFat =  ($year << 25) | ($month << 21) | ($day << 16) | ($hour << 11) | ($min << 5) | ($second << 0);
	#my $createdtimeFat =  (($year & (2**7-1)) << 25) | (($month & (2**4-1)) << 21) | (($day & (2**5-1)) << 16) | (($hour & (2**5-1)) << 11) | (($min & (2**6-1)) << 5) | (($second & (2**5-1)) << 0);
	# 8 digits
	# 8 = year
	# 7 = year + month
	# 6 = month + day
	# 5 = day
	####
	# 4 = hour
	# 3 = hour + month
	# 2 = minute + second
	# 4 = second
	#my $createdtimeFat = '469f9f01';
	#my $hex = sprintf("0x%x", $createdtimeFat);
	#my $hex = printf("%x",$createdtimeFat);
	
	print "Unix time ".$createdtime." converts to ".$month." ".$day.", ".($displayYear+1900)." ".$hour.":".$min.":".$sec." year (in offset from 1980) is $year [real year is $realYear]\n";
	#print $encSecond ." ". $encMinute ." ". $encHour ." ". $encDay ." ". $encMonth ." ". $encYear . "\n";
	print "createdtimeFat should look something like 46ef99c6\n";
	print "createdtimeFat is $createdtimeFat\n";
	my @unpacked = unpack("N8",$createdtimeFat);
	print "and unpacked: " . @unpacked . "\n";
	my $setdate = getHttp($cardip, "upload.cgi?FTIME=0x" . $createdtimeFat);
	print "result of setdate operation: $setdate\n";

##</code><code>##


sub getHttp() {
	my $ip = shift;
	my $args = shift;
	my $status;
	
	my $url = "http://" .  $ip . "/" . $args;
	
	#print ("accessing " . $url . "\n");
	# set custom HTTP request header fields
	my $req = HTTP::Request->new(GET => $url);
	 
	my $resp = $ua->request($req);
	if ($resp->is_success) {
		my $message = $resp->decoded_content;
		#print "Received reply: $message\n";
		$status = $resp->decoded_content;
	} else {
		print "HTTP GET error code: ", $resp->code, "\n";
		print "HTTP GET error message: ", $resp->message, "\n";
		$status = $resp->message;
	}
	
	return $status
}