[Bio] / FigKernelScripts / make_proml_tree.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/make_proml_tree.pl

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

revision 1.3, Wed Jan 10 16:50:00 2007 UTC revision 1.4, Thu Jan 11 19:59:54 2007 UTC
# Line 9  Line 9 
9  $usage = "usage: make_proml_tree [-a Alpha] Alignment Outfile OutTree";  $usage = "usage: make_proml_tree [-a Alpha] Alignment Outfile OutTree";
10    
11  my $host = hostname;  my $host = hostname;
12  #my $dir = "$FIG_Config::temp/proml.$$";  my $dir = "$FIG_Config::temp/proml.$host.$$";
13  #mkdir($dir,0777) || die "could not make $dir";  mkdir($dir,0777) || die "could not make $dir";
 my $dir = mkdtemp("$FIG_Config::temp/$host.proml.XXXX") || die "could not make $dir";  
 chmod(0777,$dir);  
14    
15  my $alpha = undef;  my $alpha = undef;
16  while ($ARGV[0] =~ /^-/)  while ($ARGV[0] =~ /^-/)
# Line 39  Line 37 
37  close(PARMS);  close(PARMS);
38  system "cd $dir; proml < parms > log";  system "cd $dir; proml < parms > log";
39  system "mv $dir/outfile $outF; mv $dir/outtree $treeF; rm -r $dir";  system "mv $dir/outfile $outF; mv $dir/outtree $treeF; rm -r $dir";
40    system "/bin/rm -r $dir";

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3