[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.33, Mon Jun 28 20:10:11 2004 UTC revision 1.34, Tue Jun 29 14:15:57 2004 UTC
# Line 89  Line 89 
89  sub what_code_do_I_have {  sub what_code_do_I_have {
90      my($fig_base) = @_;      my($fig_base) = @_;
91    
92      my $version = `cat $fig_base/VERSION`;      my $version = &FIG::file_read("$fig_base/VERSION");
93      chop $version;      chomp $version;
94      return $version;      return $version;
95  }  }
96    
# Line 147  Line 147 
147    
148      &force_absolute($fig_disk);      &force_absolute($fig_disk);
149      &force_absolute($file);      &force_absolute($file);
150      my @tmp = `cat $fig_disk/CURRENT_RELEASE`;      my @tmp = &FIG::file_head("$fig_disk/CURRENT_RELEASE", 1);
151      my $current_release = $tmp[0];      my $current_release = $tmp[0];
152      chop $current_release;      chomp $current_release;
153    
154      &FIG::run("cd $fig_disk/dist/releases; tar czf $file $current_release");      &FIG::run("cd $fig_disk/dist/releases; tar czf $file $current_release");
155  }  }
# Line 228  Line 228 
228    
229      &force_absolute($fig_disk);      &force_absolute($fig_disk);
230      &force_absolute($file);      &force_absolute($file);
231      my @tmp = `cat $fig_disk/CURRENT_RELEASE`;      my @tmp = &FIG::file_head("$fig_disk/CURRENT_RELEASE", 1);
232      my $current_release = $tmp[0];      my $current_release = $tmp[0];
233      chop $current_release;      chomp $current_release;
234    
235      &FIG::run("cd $fig_disk/dist/releases; tar czf $file $current_release");      &FIG::run("cd $fig_disk/dist/releases; tar czf $file $current_release");
236  }  }
# Line 325  Line 325 
325      my($new,$old) = @_;      my($new,$old) = @_;
326      my($line,$i);      my($line,$i);
327    
328      my @new = `cat $new`;      my @new = &FIG::file_read($new);
329      foreach $line (`cat $old`)      foreach $line (&FIG::file_read($old))
330      {      {
331          if ($line =~ /^(\S+)\s+\=/)          if ($line =~ /^(\S+)\s+\=/)
332          {          {
# Line 457  Line 457 
457          $/ = "\n";          $/ = "\n";
458          while ($line && defined($line = <IN>) && ($line !~ /^\/\//))          while ($line && defined($line = <IN>) && ($line !~ /^\/\//))
459          {          {
460              chop $line;              chomp $line;
461              ($peg,$aliases,$org,$func) = split(/\t/,$line);              ($peg,$aliases,$org,$func) = split(/\t/,$line);
462              $pegs{$peg} = [$aliases,$org,$func];              $pegs{$peg} = [$aliases,$org,$func];
463          }          }
# Line 634  Line 634 
634    
635      open(IN,"<$package") || die "could not open $package";      open(IN,"<$package") || die "could not open $package";
636      my $line = <IN>;      my $line = <IN>;
637      chop $line;      chomp $line;
638      ($user,$who,$date) = split(/\t/,$line);      ($user,$who,$date) = split(/\t/,$line);
639      $userR = $user;      $userR = $user;
640      $userR =~ s/^master://;      $userR =~ s/^master://;
# Line 648  Line 648 
648      }      }
649      while ($line && defined($line = <IN>) && ($line !~ /^\/\//))      while ($line && defined($line = <IN>) && ($line !~ /^\/\//))
650      {      {
651          chop $line;          chomp $line;
652          ($peg,$aliases,$org,$func) = split(/\t/,$line);          ($peg,$aliases,$org,$func) = split(/\t/,$line);
653          $pegs{$peg} = [$aliases,$org,$func];          $pegs{$peg} = [$aliases,$org,$func];
654      }      }

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3