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