summaryrefslogtreecommitdiff
path: root/mate-terminal.wrapper
blob: 10f44f2f2e52a154a728f47bf94ce85a79b24d03 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
k#! /usr/bin/perl -w

my $login=0;

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);