Once again ...


#-#############################################
# Sub: Get Start-Time and Close-Time
# Written by: Dieter Werner
#-#############################################
sub get_the_time {
   my ($d, $h, $m, $s)      = @_;
   my $time_base      = ((int((time() / 86400)))) * 86400;    
   my $hour_trash      = ((localtime($time_base))[2]) * 3600;
   my $tdl                  = int($config{'time_delay'}) || 0;
   my $offset            = 0;
   
   my ($real_day, $base_day);
   local $_;    
   
   $time_base -=  $hour_trash;
   
   $real_day = (localtime)[7];
   $base_day = (localtime($time_base))[7];

   abs(($base_day - $real_day)) > 363
       ?   ($time_base += 86400)
       :   do {
               $base_day > $real_day && ($time_base -= 86400);
               $base_day < $real_day && ($time_base += 86400);
           };
   
   $h > 23      && ($h = 23);
   $m > 59      && ($m = 59);
   $s > 59      && ($s = 59);
   
   $d >= 1 ? ($d *= 86400) : ($d = 0);    
   $h *= 3600;
   $m *= 60;    
   
   abs($tdl) > 0 && do {
     $tdl *= 3600;
     
     $tdl > 0
         ?      do {
               ($h <= abs($tdl)) && ($offset = 86400);
               $time_base -= ($tdl - $offset);
           }
         :      do {
               ($h >= abs($tdl)) && ($offset = 86400);
               $time_base -= ($tdl + $offset);
           };
   };
   
   $time_base + $d + $h + $m + $s;
}

#-#############################################