#!/usr/bin/perl
use strict;

sub main {
	my @args;
	foreach my $arg (@ARGV) {
		if ($arg =~ /^-rsound/) {
			push(@args, "--plugin");
			push(@args, "rdpsnd");
		}
		elsif ($arg =~ /^-rclipboard/) {
			push(@args, "--plugin");
			push(@args, "cliprdr");
		}
		elsif ($arg eq "-b") {
			next;
		}
		elsif ($arg =~/(-.)(.*)/) {
			push(@args, $1);
			push(@args, $2);
		}
		else {
			push(@args, $arg);
		}
	}
	
	exec('xfreerdp', @args);
	
	die 'Error spawning xfreerdp?';
}

main;

0;