#!/usr/bin/env perl
#
# rdesktop - disk sharing wrapper around /usr/bin/rdesktop
#
# $Id$

# gnome-rdp doesn't offer any options for disk sharing,
# but it calls the rdesktop executable that is first in $PATH;
# so, to enable automatic disk sharing, name this wrapper rdesktop
# and put it into your $PATH before the real rdesktop

use warnings;
use strict;

#open(my $logfh, '>', '/tmp/rdesktop.log') or die "cannot open log\n";
#print $logfh join(' ', @ARGV), "\n";
#close($logfh);

my $RDESKTOP = '/usr/bin/rdesktop';

sub oomph
{
  print STDERR join( ' ', 'Fatal error:', @_ ), "\n";
  exit(1);
}

-x $RDESKTOP
 or oomph("cannot find real rdesktop executable $RDESKTOP");

my $home = $ENV{HOME} // ( getpwuid($<) )[7];

-d $home
 or oomph("cannot find home directory $home");

my %r = (
  'home'  => $home,
  'tmp'   => '/tmp',
  'media' => '/media'
);

my @r = map { ( '-r', "disk:$_=$r{$_}" ) } sort keys %r;

my @cmd = ( $RDESKTOP, @r, @ARGV );

exec(@cmd)
 or oomph( 'cannot execute', @cmd );