#!/usr/bin/perl -w

# sendHUP.pl

# this script needs to be run as root, to do this we add an entry to 
# /etc/sudoers so that just apache can run it suid root
# NB: you must edit this file using visudo, ie
# visudo -f /etc/sudoers
# add this line 
# apache ALL=NOPASSWD:/home/scripts/sendHUP.pl
# In CGI call as system('sudo', '/home/scripts/sendHUP.pl');

my $PROGRAM = 'program.pl';
@ps = `ps ax`;
@ps = map { m/(\d+)/; $1 } grep { /\Q$PROGRAM\E/ } @ps;

# for debugging lets see who we think we are....
#printf("uid=%d euid=%d<br>\n", $<, $>);

for ( @ps ) {
    (kill HUP, $_) or exit 42;
}
my $time = gmtime();
warn "[$time] Sent SIGHUP to $PROGRAM @ps\n";
exit 0;