#!/usr/bin/perl

use strict;
use CGI;

use Opals::Context;
use SIP::Template;

my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi = CGI->new;
my $template = SIP::Template->new(filename => 'localtime.tmpl',);

my ($localtime) = $dbh->selectrow_array(<<_SQL_);
select date_format(now(), '%Y%m%d    %H%i%S')
_SQL_

$template->param('localtime' => $localtime,);

$template->write(cgi => $cgi);