]>
Commit | Line | Data |
---|---|---|
bbb6cf72 | 1 | diff -urN asa-0.1.6.orig/ApaSMSAgent.pl asa-0.1.6/ApaSMSAgent.pl |
2 | --- asa-0.1.6.orig/ApaSMSAgent.pl 2005-04-22 12:23:56.000000000 +0200 | |
3 | +++ asa-0.1.6/ApaSMSAgent.pl 2005-06-04 10:10:01.000000000 +0200 | |
4 | @@ -19,6 +19,15 @@ | |
5 | use Time::HiRes qw(gettimeofday); # benchmarking ;) | |
6 | use strict; | |
7 | ||
8 | +# set UID/GID | |
9 | +if ($< == 0) { | |
10 | + my ($uid, $gid) = (getpwnam("jabber"))[2,3]; | |
11 | + $)="$gid $gid" or die "Cannot set EGID and groups"; | |
12 | + $(=$gid or die "Cannot set GID";; | |
13 | + $>=$uid or die "Cannot set EUID"; | |
14 | + $<=$> or die "Cannot set UID";; | |
15 | +} | |
16 | + | |
17 | # set up Stop to be run if someone kills us | |
18 | $SIG{KILL} = \&Stop; | |
19 | $SIG{TERM} = \&Stop; |