# ---------------------------------------------------------------------
# Get the current date and time in epoch seconds.
# ---------------------------------------------------------------------
sub get_date
{
my $cfg{time_offset} = shift;
        return time + 3600 * $cfg{time_offset};
}