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
5 use Time::HiRes qw(gettimeofday); # benchmarking ;)
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";;
17 # set up Stop to be run if someone kills us