#!/usr/bin/perl

use Getopt::Long;
use vars qw( $VMHOME $SNDHOME );
use strict;
my ($opt_mailbox,$opt_user,$opt_link);
my ($uid,$gid,$home);

$VMHOME='/var/spool/asterisk/vm';
$SNDHOME='/var/lib/asterisk/sounds';

if ((! GetOptions(
	"mailbox|m=i" => \$opt_mailbox,
	"user=s" => \$opt_user,
	"link!"  => \$opt_link
	)) or (!$opt_mailbox)) {
	die <<EOF;
Usage: $0 --mailbox=n --user=username --[no]link
	n      voicemail extension
	user   owner of the files
	link   create a link to the voice mailbox
	       in the user's home directory
EOF
}

(undef,undef,$uid,$gid,undef,undef,undef,$home,undef) = getpwnam($opt_user);
if (! defined $uid) {
	die "Username $opt_user does not exist on this machine\n";
}

# Make the relevant directories and make them owned by the user
system("mkdir -p $VMHOME/$opt_user/INBOX");
chown $uid,$gid,"$VMHOME/$opt_user","$VMHOME/$opt_user/INBOX";

# Setuid directory, combined with the chown_on_suiddir patch
# makes messages owned by the user (as opposed to root)
chmod 04755,"$VMHOME/$opt_user","$VMHOME/$opt_user/INBOX";
symlink($opt_user, "$VMHOME/$opt_mailbox");

# Put a symlink to the voice mailbox in the user's home directory
if ($opt_link) {
	symlink("$VMHOME/$opt_user/INBOX","$home/VoiceMail");
}

# Build the default messages
system("cat $SNDHOME/vm-theperson.gsm > $VMHOME/$opt_user/unavail.gsm");
system("cat $SNDHOME/vm-theperson.gsm > $VMHOME/$opt_user/busy.gsm");
system("cat $SNDHOME/vm-extension.gsm > $VMHOME/$opt_user/greet.gsm");

foreach my $digit (split '', $opt_mailbox) {
	system("cat $SNDHOME/digits/$digit.gsm >> $VMHOME/$opt_user/unavail.gsm");
	system("cat $SNDHOME/digits/$digit.gsm >> $VMHOME/$opt_user/busy.gsm");
	system("cat $SNDHOME/digits/$digit.gsm >> $VMHOME/$opt_user/greet.gsm");
}

system("cat $SNDHOME/vm-isunavail.gsm >> $VMHOME/$opt_user/unavail.gsm");
system("cat $SNDHOME/vm-isonphone.gsm >> $VMHOME/$opt_user/busy.gsm");

# Set ownership of the default messages
# (these can be changed by the user later)
chown $uid,$gid,
	"$VMHOME/$opt_user/unavail.gsm",
	"$VMHOME/$opt_user/busy.gsm",
	"$VMHOME/$opt_user/greet.gsm";