#!/usr/bin/env perl
#################################################################### 
#Convert unix time epoch string to a real date.
#
#    64 bit (if 32 bit, substitute the /E with a /D)
#
# root# echo "time/E" | adb -k adb -k /dev/ksyms /dev/mem
# root# echo "boot_time/E" | adb -k adb -k /dev/ksyms /dev/mem
#
#Can use the TIME or the BOOT_TIME kernel values: 
#
#   % unixdatetime 1124234234
#   % 8/16/2005 18:17
#
#   % unixdatetime 100000
#   % 1/1/1970 21:46 
#
#################################################################### 
#
if ($ARGV[0] eq "") {die "Usage: $0 utime-string\n"}

($mon, $mday, $year, $hour, $min) = (localtime(($ARGV[0])))[4,3,5,2,1];

$year+=1900;

print ++$mon,"/$mday/$year $hour:$min \n";