1 files changed, 79 insertions, 42 deletions
diff --git a/mate-terminal.wrapper b/mate-terminal.wrapper
index 4d528c9..10f44f2 100755
--- a/mate-terminal.wrapper
+++ b/mate-terminal.wrapper
@@ -1,44 +1,81 @@
-#!/usr/bin/env python
+k#! /usr/bin/perl -w
 
-import sys
-import os
-import subprocess
+my $login=0;
 
-newargs = ['mate-terminal']
-oldargs = sys.argv[1:]
-
-while True:
-    try:
-        arg = oldargs.pop(0)
-
-        if arg == '-display':
-            os.environ['DISPLAY'] = oldargs.pop(0)
-        elif arg == '-name':
-            newargs.append('--window-with-profile=' + oldargs.pop(0))
-        elif arg == '-n':
-            sys.stderr.write('Set an icon in your profile')
-        elif arg == '-T' or arg == '-title':
-            newargs.append('-t')
-            newargs.append(oldargs.pop(0))
-        elif arg == '-ls' or arg == '+ls':
-            sys.stderr.write('Login shell not supported.  Set in your profile.')
-        elif arg == '-geometry':
-            newargs.append('--geometry=' + oldargs.pop(0))
-        elif arg == '-fn':
-            newargs.append('--font=' + oldargs.pop(0))
-        elif arg == '-fg':
-            newargs.append('--foreground=' + oldargs.pop(0))
-        elif arg == '-bg':
-            newargs.append('--background=' + oldargs.pop(0))
-        elif arg == '-tn':
-            newargs.append('--termname=' + oldargs.pop(0))
-        elif arg == '-h' or arg == '--help':
-            newargs.append('--help')
-        elif arg == '-e':
-            newargs.append('-x')
-            newargs += oldargs
-            break
-    except IndexError:
-        break
-
-subprocess.call(newargs)
+while ($opt = shift(@ARGV))
+{
+    if ($opt eq '-display')
+    {
+    $ENV{'DISPLAY'} = shift(@ARGV);
+    }
+    elsif ($opt eq '-name')
+    {
+    $arg = shift(@ARGV);
+    push(@args, "--window-with-profile=$arg");
+    }
+    elsif ($opt eq '-n')
+    {
+    # Accept but ignore
+    print STDERR "$0: to set an icon, please use -name <profile> and set a profile icon\n"
+    }
+    elsif ($opt eq '-T' || $opt eq '-title')
+    {
+    push(@args, '-t', shift(@ARGV));
+    }
+    elsif ($opt eq '-ls')
+    {
+    $login = 1;
+    }
+    elsif ($opt eq '+ls')
+    {
+    $login = 0;
+    }
+    elsif ($opt eq '-geometry')
+    {
+    $arg = shift(@ARGV);
+    push(@args, "--geometry=$arg");
+    }
+    elsif ($opt eq '-fn')
+    {
+    $arg = shift(@ARGV);
+    push(@args, "--font=$arg");
+    }
+    elsif ($opt eq '-fg')
+    {
+    $arg = shift(@ARGV);
+    push(@args, "--foreground=$arg");
+    }
+    elsif ($opt eq '-bg')
+    {
+    $arg = shift(@ARGV);
+    push(@args, "--background=$arg");
+    }
+    elsif ($opt eq '-tn')
+    {
+    $arg = shift(@ARGV);
+    push(@args, "--termname=$arg");
+    }
+    elsif ($opt eq '-e')
+    {
+    $arg = shift(@ARGV);
+    if (@ARGV)
+    {
+        push(@args, '-x', $arg, @ARGV);
+        last;
+    }
+    else
+    {
+        push(@args, '-e', $arg);
+    }
+    last;
+    }
+    elsif ($opt eq '-h' || $opt eq '--help')
+    {
+    push(@args, '--help');
+    }
+}
+if ($login == 1)
+{
+    @args = ('--login', @args);
+}
+exec('mate-terminal',@args);