There is a time problem with some servers; therefore I changed the code of this function.
Replace your existing subroutine with this:

sub get_the_time {
   my @temp = @_;
   my $day_base;

   my $offset = 24 * 3600;  
   my $real_day = int(((localtime(time()))[3]));
   my $time_base = ((int((time() / 86400)))) * 86400;
   my $hour_base = int(((localtime($time_base))[2]));
   my $tdl = $config{'time_delay'} || 0;
   my @time = map { $_ = int($_); $_ } @temp;
   my ($d, $h, $m, $s) = @time;
       
   $time_base += (((24 - $hour_base)) * 3600);
   $day_base = int(((localtime($time_base))[3]));
       
         if ($real_day > $day_base) { $time_base += $offset }
         elsif ($real_day < $day_base) { $time_base -= $offset }
       
   $h > 23 && ($h = 23);
   $m > 59 && ($m = 59);
   $s > 59 && ($s = 59);
   
   $d *= 86400 || 0;
   $h *= 3600;
   $m *= 60;
   
   $tdl != 0 && ($tdl = int($tdl) *3600);
   
   $time_base + $d + $h + $m + $s - $tdl;
}

The current eAuction161.zip is allready containg this subroutine.

Hello Rymes,

this should resolve your problems ...

#-#############################################
# Sub: Get Start-Time and Close-Time
# Written by: Dieter Werner
#-#############################################
sub get_the_time {
   my @temp = @_;
   my ($day_base, $ret_val);

   my $offset            = 24 * 3600;  
   my $real_day            = int(((localtime(time()))[3]));
   my $time_base      = ((int((time() / 86400)))) * 86400;
   my $hour_base      = int(((localtime($time_base))[2]));
   my $tdl                  = $config{'time_delay'} || 0;
   my @time            = map { $_ = int($_); $_ } @temp;
   my ($d, $h, $m, $s)      = @time;
       
   $tdl >= 0
               ?   ($time_base += (((24 - $hour_base)) * 3600))
               :   ($time_base -= (((24 + $hour_base)) * 3600));
   
   $day_base = int(((localtime($time_base))[3]));    

   $real_day > $day_base
               ?   ($time_base += $offset)
               :   ($time_base -= $offset);
       
   $h > 23 && ($h = 23);
   $m > 59 && ($m = 59);
   $s > 59 && ($s = 59);
   
   $d *= 86400 || 0;
   $h *= 3600;
   $m *= 60;
   
   $tdl != 0 && ($tdl = int($tdl) *3600);
     
   $time_base + $d + $h + $m + $s - $tdl;
}