root/extensions/gsdl-video/trunk/setup.pl @ 19785

Revision 18959, 1.1 KB (checked in by davidb, 11 years ago)

Adjusted setup.pl to use the new location of bin and lib files

Line 
1
2BEGIN {
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
9use Cwd;
10require util;   
11
12if (!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 $video_bin
22    = &util::filename_cat($ENV{'GEXTVIDEO_INSTALLED'},$ENV{'GSDLOS'},"bin");
23    my $video_lib
24    = &util::filename_cat($ENV{'GEXTVIDEO_INSTALLED'},$ENV{'GSDLOS'},"lib");
25
26    &util::envvar_append("PATH",$video_bin);
27
28    # For Linux (no harm is setting is this for MacOs)
29    &util::envvar_append("LD_LIBRARY_PATH",$video_lib);
30   
31    # For MacOs (no harm is setting is this for Linux etc)
32    &util::envvar_append("DYLD_LIBRARY_PATH",$video_lib);
33
34
35    # GSDLEXTS always uses : as a separator
36    if (defined $ENV{'GSDLEXTS'}) {
37    $ENV{'GSDLEXTS'} .= ":video" ;
38    }
39    else {
40    $ENV{'GSDLEXTS'} .="video";
41    }
42
43}
Note: See TracBrowser for help on using the browser.