1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
# -*- perl -*-
#
# INetSim::FakeTime - Fake time control
#
# (c)2007-2019 Thomas Hungenberg, Matthias Eckert
#
#############################################################
package INetSim::FakeTime;
use strict;
use warnings;
sub get_faketime {
return (time() + INetSim::Config::getConfigParameter("Faketime_Delta"));
}
sub auto_faketime {
my $serviceName = "autofaketime";
$0 = "inetsim [$serviceName]";
local $SIG{'INT'} = 'IGNORE';
local $SIG{'TERM'} = sub { INetSim::Log::MainLog("stopped (PID $$)", $serviceName); exit 0;};
# drop root privileges
my $runasuser = INetSim::Config::getConfigParameter("Default_RunAsUser");
my $runasgroup = INetSim::Config::getConfigParameter("Default_RunAsGroup");
my $uid = getpwnam($runasuser);
my $gid = getgrnam($runasgroup);
POSIX::setgid($gid);
my $newgid = POSIX::getgid();
if ($newgid != $gid) {
INetSim::Log::MainLog("failed! (Cannot switch group)", $serviceName);
exit 0;
}
POSIX::setuid($uid);
if ($< != $uid || $> != $uid) {
$< = $> = $uid; # try again - reportedly needed by some Perl 5.8.0 Linux systems
if ($< != $uid) {
INetSim::Log::MainLog("failed! (Cannot switch user)", $serviceName);
exit 0;
}
}
INetSim::Log::MainLog("started (PID $$)", $serviceName);
while (1) {
sleep(INetSim::Config::getConfigParameter("Faketime_AutoDelay"));
INetSim::Config::setConfigParameter("Faketime_Delta", INetSim::Config::getConfigParameter("Faketime_Delta") + INetSim::Config::getConfigParameter("Faketime_AutoIncrement"));
INetSim::Log::SubLog("Fake time adjusted, delta now: " . INetSim::Config::getConfigParameter("Faketime_Delta"), $serviceName, $$);
INetSim::Log::SubLog("stat: 1 delta=" . INetSim::Config::getConfigParameter("Faketime_Delta") ." now=".get_faketime, $serviceName, $$);
}
}
1;
#
|
