# Блок фиксации отметки о запуске скрипта, для предотвращения запуска второй копии.
$pidfile=$ps_logpath."pid.txt";
if (-e $pidfile) {
	unless (open(PIDFILE, $pidfile)) {
		#Если найден - то выходим
		open ($ps_file101,">>".$ps_repalllog) || die;
			print $ps_file101 $zver." Find previous PID: ".$oldpid." - exit\n";
			print $ps_file101 $zver." Update FINISH at ".formatdatetime("DD.MM.YYYY hh:mm:ss", time)."\n";
			print $ps_file101 "==============================================================\n";
		close $ps_file101;
		exit(1);
	}
	$oldpid=<PIDFILE>;
	close PIDFILE;
	if ($oldpid > 1 && kill(0,$oldpid)) {
		#Если найден - то выходим
		open ($ps_file101,">>".$ps_repalllog) || die;
			print $ps_file101 $zver." Find previous PID: ".$oldpid." - exit\n";
			print $ps_file101 $zver." Update FINISH at ".formatdatetime("DD.MM.YYYY hh:mm:ss", time)."\n";
			print $ps_file101 "==============================================================\n";
		close $ps_file101;
		exit(1);
	}
}
open(PID, ">$pidfile") or die;
	print PID $$;
close(PID);

{
  use Fcntl ':flock';
  open my $self, '<', $0 or die "Fail on open self: $!";
  my $locked = flock($self, LOCK_EX | LOCK_NB);
  unless ($locked)
  {
    &log("Скрипт уже запущен, завершаю работу",'*');
    exit(1);
  };
}

open (LAST, '+>:encoding(cp1251)', &getfilename('last')) or die "Can't open log-file for last run!\n";
{
	my $locked = flock(LAST, LOCK_EX | LOCK_NB);
	unless ($locked)
	{
		print TITLE . ' v.' . VERSION . ": Завершение работы: скрипт уже запущен.\n";
		exit(1);
	}
}
...
close(LAST);