#!/usr/bin/perl
# convert Unix time to human readable format and vice versa
# For decoding time stamps in Mysql, logs etc.
# 2004-06-20 Rafael Skodlar

use POSIX qw(strftime);
use Time::Local;

$usage = <<END;

Usage: $0 [-2u | -et] string
        -2u (to Unix time) 'YYYY-MM-DD HH:MM:SS'
        -et (from Unix time) #######

END

if ($ARGV[0]) {
    $action = $ARGV[0];
}
else {
    die $usage;
}

$sec = 0;

if ($action =~ /-2u/) {
    $td = "$ARGV[1] $ARGV[2]";
    $sec = 0;
    ($year, $mon, $day, $hr, $min, $sec) = ($td =~  /(\d{4})-(\d{1,2})-(\d{1,2}) (\d{1,2}):(\d{1,2}):(\d{1,2})/);
    $mon--;
    $utime = timelocal($sec, $min, $hr, $day, $mon, $year);
    printf "\n\t$td ---> %s\n\n", $utime;
}
else {
    $unixtime = $ARGV[1];
    ($secs, $mins, $hrs, $dy, $mn, $yr, undef) = localtime($unixtime);
    printf "\n\t%d ---> %4d-%02d-%02d %02d:%02d:%02d\n\n", $unixtime, $yr+1900, $mn+1, $dy, $hrs, $mins, $secs;
}