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

Diff of /FigKernelPackages/P2Pupdate.pm

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

revision 1.21, Wed Jan 21 20:23:55 2004 UTC revision 1.22, Tue Feb 10 22:33:42 2004 UTC
# Line 285  Line 285 
285    
286      &FIG::run("mv $fig_disk/Tmp$$/$new_release $fig_disk/dist/releases");      &FIG::run("mv $fig_disk/Tmp$$/$new_release $fig_disk/dist/releases");
287      &FIG::run("rm -rf $fig_disk/Tmp$$");      &FIG::run("rm -rf $fig_disk/Tmp$$");
288    
289        #
290        # Ugh. For now, find the arch in the fig config file $fig_disk/config/fig-user-env.sh"
291        #
292    
293        my $arch;
294        open(FH, "<$fig_disk/config/fig-user-env.sh");
295        while (<FH>)
296        {
297            if (/RTARCH="(.*)"/)
298            {
299                $arch = $1;
300                last;
301            }
302        }
303        close(FH);
304    
305        if ($arch eq "")
306        {
307            die "Couldn't determine SEED install architecture, not switching to release.";
308        }
309    
310        $ENV{RTARCH} = $arch;
311    
312      &FIG::run("$FIG_Config::bin/switch_to_release $new_release");      &FIG::run("$FIG_Config::bin/switch_to_release $new_release");
313  }  }
314    

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3