[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.102, Tue Jun 1 19:02:37 2004 UTC revision 1.103, Tue Jun 1 19:06:17 2004 UTC
# Line 23  Line 23 
23  use Data::Dumper;  use Data::Dumper;
24  use Time::Local;  use Time::Local;
25  use File::Spec;  use File::Spec;
26    use FIGrpc;
27    
28  use strict;  use strict;
29  use Fcntl qw/:flock/;  # import LOCK_* constants  use Fcntl qw/:flock/;  # import LOCK_* constants
# Line 36  Line 37 
37      # create a FIGrpc and return that as the return from this constructor.      # create a FIGrpc and return that as the return from this constructor.
38      #      #
39    
40      if ($ENV{FIG_URL})      if ($ENV{FIG_URL} ne "")
41      {      {
42          use FIGrpc;          print "Creating figrpc for '$ENV{FIG_URL}'\n";
43          my $figrpc = new FIGrpc($ENV{FIG_URL});          my $figrpc = new FIGrpc($ENV{FIG_URL});
44          return $figrpc;          return $figrpc;
45      }      }

Legend:
Removed from v.1.102  
changed lines
  Added in v.1.103

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3