[Bio] / FigKernelScripts / install-data.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/install-data.pl

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

revision 1.1, Thu Oct 14 15:05:27 2004 UTC revision 1.2, Thu Oct 14 15:08:00 2004 UTC
# Line 49  Line 49 
49    
50  my($this_disk, $num_disks) = $disk_tags[0] =~ /DISK_(\d+)_OF_(\d+)/;  my($this_disk, $num_disks) = $disk_tags[0] =~ /DISK_(\d+)_OF_(\d+)/;
51    
52  print "Installing data release $d_name. Disk $this_disk of $num_disks\n";  print "Installing data release \"$d_name\". Disk $this_disk of $num_disks\n";
   
53    
54  #  #
55  # We untar into FIG/DataTmp$$.  # We untar into FIG/DataTmp$$.
# Line 67  Line 66 
66  {  {
67      chomp;      chomp;
68    
69      my($cksum, $size, $file) = split;      my($cksum, $size, $file) = split(/\s+/);
70        print "cksum=$cksum size=$size file=$file\n";
71    
72      my $path = "$data_dir/$file";      my $path = "$data_dir/$file";
73    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3