view release on metacpan or  search on metacpan

share/cgi-bin/obj/date_time.pl  view on Meta::CPAN

20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#  date_time.pl
#
# -----------------------------------------------------------------------------
 
use Nes;
use strict;
use POSIX qw(strftime);
 
my $nes = Nes::Singleton->new('./date_time.html');
my $q   = $nes->{'query'}->{'q'};
my $local_gmt = $q->{'local_gmt'} || $q->{'date_time_param_1'} || shift @ARGV || 'local';
my $format    = $q->{'format'}    || $q->{'date_time_param_2'} || "@ARGV"     || '%a %e %b %Y %H:%M:%S';
 
my $tags = {};
$tags->{'date_time'} = POSIX::strftime( "$format", localtime ); # default
$tags->{'date_time'} = POSIX::strftime( "$format", gmtime )     if $local_gmt =~ /gmt/i;
 
# determine CGI Environment
if ( $ENV{'REMOTE_ADDR'} || $ENV{'REMOTE_HOST'} || $ENV{'SCRIPT_NAME'} ) {
  # CGI
  $nes->out(%$tags);