1 |
|
---|
2 | BEGIN {
|
---|
3 | die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
|
---|
4 | die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
|
---|
5 | unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
|
---|
6 | unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
|
---|
7 | }
|
---|
8 |
|
---|
9 | use Cwd;
|
---|
10 | require util;
|
---|
11 |
|
---|
12 | if (!defined $ENV{'GEXTVIDEO'}) {
|
---|
13 |
|
---|
14 |
|
---|
15 | $ENV{'GEXTVIDEO'} = cwd();
|
---|
16 | print STDERR "**** GEXTVIDEO=$ENV{'GEXTVIDEO'}\n";
|
---|
17 |
|
---|
18 | $ENV{'GEXTVIDEO_INSTALLED'}
|
---|
19 | = &util::filename_cat($ENV{'GEXTVIDEO'},"installed");
|
---|
20 |
|
---|
21 | my $server_bin = "$ENV{'GEXTVIDEO_INSTALLED'}/server/bin";
|
---|
22 | my $cmdline_bin = "$ENV{'GEXTVIDEO_INSTALLED'}/cmdline/bin";
|
---|
23 |
|
---|
24 | &util::envvar_append("PATH",$server_bin);
|
---|
25 | &util::envvar_append("PATH",$cmdline_bin);
|
---|
26 |
|
---|
27 | my $server_lib = "$ENV{'GEXTVIDEO_INSTALLED'}/server/lib";
|
---|
28 | my $cmdline_lib = "$ENV{'GEXTVIDEO_INSTALLED'}/cmdline/lib";
|
---|
29 |
|
---|
30 | # For Linux (no harm is setting is this for MacOs)
|
---|
31 | &util::envvar_append("LD_LIBRARY_PATH",$server_lib);
|
---|
32 | &util::envvar_append("LD_LIBRARY_PATH",$cmdline_lib);
|
---|
33 |
|
---|
34 | # For MacOs (no harm is setting is this for Linux etc)
|
---|
35 | &util::envvar_append("DYLD_LIBRARY_PATH",$server_lib);
|
---|
36 | &util::envvar_append("DYLD_LIBRARY_PATH",$cmdline_lib);
|
---|
37 |
|
---|
38 |
|
---|
39 | # GSDLEXTS always uses : as a separator
|
---|
40 | if (defined $ENV{'GSDLEXTS'}) {
|
---|
41 | $ENV{'GSDLEXTS'} .= ":video" ;
|
---|
42 | }
|
---|
43 | else {
|
---|
44 | $ENV{'GSDLEXTS'} .="video";
|
---|
45 | }
|
---|
46 |
|
---|
47 | }
|
---|