#!/usr/bin/perl -s

# ctime - convert a Unix time integer into a date string
# Steve Kinzler, kinzler@cs.indiana.edu, Jan 00/Jul 06
# http://www.cs.indiana.edu/~kinzler/home.html#unix

$usage = "usage: $0 [ -g ] [ -i ] [ seconds_since_Jan_1_1970 ... ]
	-g	report date in GMT regardless of \$TZ
	-i	output date in 'YYYY-MM-DD HH:MM:SS' format\n";
die $usage if $h || grep(/\D/, @ARGV);

$ENV{'TZ'} = 'GMT' if $g;

require 'ctime.pl';
use Time::CTime;

foreach (@ARGV) {
	print $i ? &stdtime($_) : &ctime($_);
}

sub stdtime {
	strftime("%Y-%m-%d %H:%M:%S\n", localtime($_[0]));
}