[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.111, Tue Jun 8 15:02:14 2004 UTC revision 1.112, Tue Jun 8 17:19:43 2004 UTC
# Line 25  Line 25 
25  use Data::Dumper;  use Data::Dumper;
26  use Time::Local;  use Time::Local;
27  use File::Spec;  use File::Spec;
28  use FIGrpc;  
29    #
30    # Try to load the RPC stuff; it might fail on older versions of the software.
31    #
32    eval {
33        require FIGrpc;
34    };
35    
36    my $xmlrpc_available = 1;
37    if ($@ ne "")
38    {
39        $xmlrpc_available = 0;
40    }
41    
42    
43  use Fcntl qw/:flock/;  # import LOCK_* constants  use Fcntl qw/:flock/;  # import LOCK_* constants
44    
# Line 45  Line 58 
58      # create a FIGrpc and return that as the return from this constructor.      # create a FIGrpc and return that as the return from this constructor.
59      #      #
60    
61      if ($ENV{FIG_URL} ne "")      if ($ENV{FIG_URL} ne "" && $xmlrpc_available)
62      {      {
63          print "Creating figrpc for '$ENV{FIG_URL}'\n";          print "Creating figrpc for '$ENV{FIG_URL}'\n";
64          my $figrpc = new FIGrpc($ENV{FIG_URL});          my $figrpc = new FIGrpc($ENV{FIG_URL});
# Line 3583  Line 3596 
3596      &run("make_indexes");      &run("make_indexes");
3597      &run("format_peg_dbs");      &run("format_peg_dbs");
3598      &run("load_links");      &run("load_links");
3599        &run("index_subsystems");
3600      &run("load_bbhs");      &run("load_bbhs");
3601  }  }
3602    

Legend:
Removed from v.1.111  
changed lines
  Added in v.1.112

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3