/var/run/[XXX].pid

liguorir · 05-20-2004, 08:35 PM

I wish to implement capturing my pid to be stored in /var/run.

Has anyone done this in Tcl?

Can I please have some sample code?

By using this file, /var/run/[xxx].pid, is this the best way to determine if an istance of your application is already running? Once again, any sample code?

Please advise.

liguorir · 05-20-2004, 10:32 PM

I think I got it...

#!/usr/bin/wish

if { [ file exists /var/run/app.pid ] == 1 } {
if { [ catch { exec ps h [ exec cat /var/run/app.pid ] } ] == 0 } {
# APP Process is already running, exit
puts "APP process is already running"
exit
} else {
# Remove old pid file, create new pid file
exec rm /var/run/app.pid
exec echo [ pid ] > /var/run/app.pid
}
} else {
# create new pid file
exec echo [ pid ] > /var/run/app.pid
}

Any comments are appreciated.