#!/usr/bin/perl
# Filename:     setuid_album
# Author:       David Ljung
# Description:  Runs album as a specific user:group
use English;

my $ALBUM_BIN = "/usr/local/bin/album";

##################################################
# SETUID stuff
##################################################
$ENV{'PATH'} = '/bin:/usr/bin:/usr/bin/X11:/usr/local/bin';
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};

my ($SAVE_UID,$SAVE_GID) = ($UID,$GID);
($UID,$GID) = ($EUID,$EGID);	# XXX: initgroups() not called

exec($ALBUM_BIN,@ARGV) || die("[$PROGNAME] Can't exec $ALBUM_BIN");

($UID,$GID) = ($SAVE_UID,$SAVE_GID);