#!/usr/bin/perl
# youri-submit wrapper

use strict;
use warnings;
use Fcntl ':mode';
use File::Basename;
use MDK::Common;

my $log_dir = "$ENV{HOME}/submit-logs";

my $sudo_user = $ENV{SUDO_USER} or die "should be run through sudo";
my @prog = ('perl', '-I/usr/share/mga-youri-submit/lib', '/usr/share/mga-youri-submit/bin/youri-submit');

my @options;
foreach my $arg (@ARGV) {
    if ($arg =~ /^-?-(\S+)/) {
	# drop prohibited options
	if ($arg =~ /-c/ || $arg =~ /-s/) {
	    print STDERR "prohibited option $arg, skipping\n";
	    next;
	}
    }
    push(@options, $arg);
}

# logging for bug #30315 -spuk, 2007-05-29
mkdir_p($log_dir);
open(STDERR, "| tee -a $log_dir/$sudo_user.err >&2");
open(STDOUT, "| tee -a $log_dir/$sudo_user.out");

# call wrapped program
print "Executing @prog --config /etc/youri/submit-todo.conf --define user=$sudo_user @options (sudo_user $sudo_user)\n";
my $err = system(@prog, "--config", "/etc/youri/submit-todo.conf", "--define", "user=$sudo_user", @options) && ($? >> 8 || 1);

exit $err