2 # Shm.pl: Shared Memory stuff.
8 if (&IsParam("useStrict")) { use strict; }
14 if (defined( $_ = shmget($IPC_PRIVATE, $size, 0777) )) {
15 &status("Created shared memory (shm) key: [$_]");
18 &ERROR("openSHM: failed.");
19 &ERROR("Please delete some shared memory with ipcs or ipcrm.");
28 &status("Closed shared memory (shm) key: [$key]");
29 return shmctl($key, $IPC_RMID, 0);
38 if (shmread($key,$retval,$position,$size)) {
41 &ERROR("shmRead: failed: $!");
52 ### TODO: create shmClear to deal with this.
54 my $read = &shmRead($key);
56 $str = $read ."||". $str if ($read ne "");
59 if (!shmwrite($key,$str,$position,$size)) {
60 &ERROR("shmWrite: failed: $!");
68 # Usage: &addForked($name);
69 # Return: 1 for success, 0 for failure.
72 my $forker_timeout = 360; # 6mins, in seconds.
74 foreach (keys %forked) {
75 my $time = time() - $forked{$_};
76 next unless ($time > $forker_timeout);
78 ### TODO: use &time2string()?
79 &WARN("Fork: looks like we lost '$_', executed $time ago.");
84 while (scalar keys %forked > 2) { # 2 or more == fail.
87 if ($count > 3) { # 3 seconds.
88 my $list = join(', ', keys %forked);
90 &msg($who, "already running ($list) => exceeded allowed forked processes count (1?).");
92 &status("Fork: I ran too many forked processes :) Giving up $name.");
100 if (exists $forked{$name}) {
101 my $time = $forked{$name};
102 if (time() - $forked{$name} > 900) { # stale fork > 15m.
103 &status("forked: forked{$name} presumably exited without notifying us.");
104 $forked{$name} = time();
106 } else { # fresh fork.
107 &msg($who, "$name is already running ". &Time2String(time() - $forked{$name}));
111 $forked{$name} = time();
112 $forkedtime = time();
121 if (exists $forked{$name}) {
122 my $timestr = &Time2String(time() - $forked{$name});
123 &status("fork: took $timestr for $name.");
124 &shmWrite($shm,"DELETE FORK $name");
127 &ERROR("delForked: forked{$name} does not exist. should not happen.");