| 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 | }
|
|---|
