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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.12, Mon Jun 14 22:04:35 2004 UTC revision 1.13, Wed Jun 16 14:05:42 2004 UTC
# Line 725  Line 725 
725      &FIG::verify_dir($assign_dir);      &FIG::verify_dir($assign_dir);
726    
727      my $seed = &FIG::cgi_url() . "/";      my $seed = &FIG::cgi_url() . "/";
728        my $export_part = "ssa.cgi?user=$muser&request=delete_or_export_ssa&export=";
729    
730      #      #
731      # Have the prereq stuff, now start up the app.      # Have the prereq stuff, now start up the app.
# Line 733  Line 734 
734      $ENV{LOCALSZ} = "80000";      $ENV{LOCALSZ} = "80000";
735      $ENV{GLOBALSZ} = "80000";      $ENV{GLOBALSZ} = "80000";
736      $ENV{TRAILSZ} = "30000";      $ENV{TRAILSZ} = "30000";
737      $ENV{BILLOGIX} = "/Users/olson/FIGdisk/dist/releases/dev/Billogix";  
738        my $arch = &FIG::get_current_arch();
739    
740        $ENV{BILLOGIX} = "$FIG_Config::fig_disk/dist/releases/current/$arch/lib/Billogix";
741    
742        #
743        # Need to ensure pl2wam is in our path
744        #
745    
746        $ENV{PATH} = "${FIG_Config::ext_bin}:$ENV{PATH}";
747    
748      my $app_input = <<EOINP;      my $app_input = <<EOINP;
749  ['\$BILLOGIX/top'].  ['\$BILLOGIX/top'].
750  loadup.  loadup.
751  asserta(url_default_seed('$seed')).  asserta(url_default_seed('$seed')).
752    asserta(url_export_part('$export_part')).
753  asserta(ss_directory('$ss_dir')).  asserta(ss_directory('$ss_dir')).
754  asserta(assign_directory('$assign_dir')).  asserta(assign_directory('$assign_dir')).
755  asserta(job_id('$job_id')).  asserta(job_id('$job_id')).
# Line 753  Line 764 
764  user = $user  user = $user
765  assign_dir = $assign_dir  assign_dir = $assign_dir
766  exe = $exe  exe = $exe
767    libdir = $ENV{BILLOGIX}
768    path = $ENV{PATH}
769    
770  App input  App input
771  $app_input  $app_input
# Line 806  Line 819 
819  }  }
820  }  }
821    
822    sub set_current_extend_pid
823    {
824        my($self, $pid) = @_;
825    
826        if (open(my $fh, ">$self->{dir}/EXTEND_PID"))
827        {
828            print $fh "$pid\n";
829        }
830        else
831        {
832            warn "Cannot open $self->{dir}/EXTEND_PID: $!\n";
833        }
834    }
835    
836    sub get_current_extend_pid
837    {
838        my($self) = @_;
839    
840        if (open(my $fh, "<$self->{dir}/EXTEND_PID"))
841        {
842            my $pid = <$fh>;
843            close($fh);
844            if ($pid)
845            {
846                chomp $pid;
847    
848                return $pid;
849            }
850        }
851        return undef;
852    }
853    
854  package Subsystem::Diagram;  package Subsystem::Diagram;
855    
856  sub new  sub new

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3