From b2fdb3bf930fe5c733a580a813e095f5e600a2e2 Mon Sep 17 00:00:00 2001
From: Leandro Lucarella <llucax@gmail.com>
Date: Sun, 24 Oct 2004 22:55:43 +0000
Subject: [PATCH] Se agrega funcion lock_pid para obtener el PID de un programa
 lockeado (y algo de doc).

---
 inst/util.sh | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/inst/util.sh b/inst/util.sh
index 3f1246d..1cfb6c1 100755
--- a/inst/util.sh
+++ b/inst/util.sh
@@ -70,6 +70,7 @@ validar_solo_numeros () {
 
 # Crea un archivo de lock para un script
 # Devuelve: 0 si ok, 1 si ya esta lockeado, 2 si no pudo crear lock.
+# Uso: lock programa
 lock () {
 	# si ya esta loqueado, no lo vuelvo a crear
 	is_lock "$1" && return 1
@@ -80,12 +81,14 @@ lock () {
 }
 
 # Desbloquea el script
+# Uso: unlock programa
 unlock () {
 	rm -rf "$LOCK_DIR/$1.pid"
 }
 			
 
 # Consulta si un script esta lockeado
+# Uso: is_lock programa
 is_lock () {
 	if [ -e "$LOCK_DIR/$1.pid" ] ; then
 		# Lock file encontrado!
@@ -95,6 +98,13 @@ is_lock () {
 	return 1
 }
 
+# Obtiene el pid de un programa lockeado
+# Uso: lock_pid programa
+lock_pid()
+{
+	is_lock "$1" && cat "$LOCK_DIR/$1.pid"
+}
+
 # Verifica que un valor este entre otros 2 .... $1 pertecezca  a [$2,$3]
 # $1 Numero a validar
 # $2 Cota inferior 
-- 
2.43.0