git://git.onelab.eu
/
vsys.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Checking in daemonization, writing to a logfile, and saving the pid
[vsys.git]
/
frontend.ml
diff --git
a/frontend.ml
b/frontend.ml
index
7cc0c16
..
3946736
100644
(file)
--- a/
frontend.ml
+++ b/
frontend.ml
@@
-41,8
+41,8
@@
object(this)
end
else if (s.st_perm <> perm) then
begin
end
else if (s.st_perm <> perm) then
begin
-
printf
"Removing directory %s\n" fqp;
- flush
Pervasives.stdout
;
+
fprintf logfd
"Removing directory %s\n" fqp;
+ flush
logfd
;
Unix.rmdir fqp;
Unix.mkdir fqp perm
end
Unix.rmdir fqp;
Unix.mkdir fqp perm
end
@@
-60,7
+60,7
@@
object(this)
Unix.unlink fqp1;
Unix.unlink fqp2
with _ ->
Unix.unlink fqp1;
Unix.unlink fqp2
with _ ->
- printf "Hm. %s disappeared. Looks like slice %s shot itself in the foot\n" fqp1 (this#get_slice_name ());flush Pervasives.stdout
+ fprintf logfd "Hm. %s disappeared. Looks like slice %s shot itself in the foot\n" fqp1 (this#get_slice_name ());flush logfd
method rmdir rp =
match rp with Relpath(rel) ->
method rmdir rp =
match rp with Relpath(rel) ->
@@
-68,5
+68,5
@@
object(this)
try
Unix.rmdir fqp
with _ ->
try
Unix.rmdir fqp
with _ ->
- printf "Hm. %s disappeared. Looks like slice %s shot itself in the foot\n" fqp (this#get_slice_name ());flush Pervasives.stdout
+ fprintf logfd "Hm. %s disappeared. Looks like slice %s shot itself in the foot\n" fqp (this#get_slice_name ());flush logfd
end
end