X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/71fa089ab8145e2ee2398d6fc647c886cc358f8c..69cc2ea1cf06c310ec4079e301e360f78802c34b:/selfforum-cgi/shared/Lock/Symlink.pm?ds=inline diff --git a/selfforum-cgi/shared/Lock/Symlink.pm b/selfforum-cgi/shared/Lock/Symlink.pm index dfe8fd1..736cb7e 100644 --- a/selfforum-cgi/shared/Lock/Symlink.pm +++ b/selfforum-cgi/shared/Lock/Symlink.pm @@ -24,7 +24,7 @@ use Fcntl; # sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'} -### sub _simple_lock ########################################################### +### _simple_lock () ############################################################ # # simple file lock # (create lock file) @@ -42,7 +42,7 @@ sub _simple_lock { return; } -### sub _simple_unlock ######################################################### +### _simple_unlock () ########################################################## # # simple file unlock # (unlink lock file) @@ -62,7 +62,7 @@ sub _simple_unlock { return; } -### sub _reftime ############################################################### +### _reftime () ################################################################ # # determine reference time for violent unlock # @@ -83,7 +83,7 @@ sub _reftime { $time; } -### sub masterlocked ########################################################### +### masterlocked () ############################################################ # # check on master lock status of the file # @@ -93,7 +93,7 @@ sub _reftime { # sub masterlocked {-l shift -> masterlock} -### sub excl_announced ######################################################### +### excl_announced () ########################################################## # # check on exclusive lock announced status of the file # @@ -103,7 +103,7 @@ sub masterlocked {-l shift -> masterlock} # sub excl_announced {-l shift -> lockfile} -### sub exsh_announced ######################################################### +### exsh_announced () ########################################################## # # check on exclusive shared lock status of the file # @@ -113,6 +113,18 @@ sub excl_announced {-l shift -> lockfile} # sub exsh_announced {-l shift -> exshlock} +### purge () ################################################################### +# +# cover our traces after a file was removed +# +# Params: ~none~ +# +# Return: ~none~ +# +sub purge { + shift -> release; +} + # keep 'require' happy 1;