asa-userrun.patch

   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;