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
|
#! /usr/bin/perl -w
#
# Terminal.wrapper - Debian terminal wrapper script
#
# Copyright (c) 2004-2005 os-cillation
#
while ($opt = shift(@ARGV))
{
if ($opt eq '-display')
{
$arg = shift(@ARGV);
push(@args, '--default-display', $arg);
}
elsif ($opt eq '-name')
{
$arg = shift(@ARGV);
}
elsif ($opt eq '-n')
{
$arg = shift(@ARGV);
}
elsif ($opt eq '-T' || $opt eq '-title')
{
push(@args, '--title', shift(@ARGV));
}
elsif ($opt eq '-geometry')
{
$arg = shift(@ARGV);
push(@args, "--geometry=$arg");
}
elsif ($opt eq '-fn')
{
$arg = shift(@ARGV);
}
elsif ($opt eq '-fg')
{
$arg = shift(@ARGV);
}
elsif ($opt eq '-bg')
{
$arg = shift(@ARGV);
}
elsif ($opt eq '-tn')
{
$arg = shift(@ARGV);
}
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');
}
}
exec('xfce4-terminal',@args);
|
