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

Diff of /FigKernelScripts/make_transferable_chunks.pl

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

revision 1.1, Mon Dec 1 20:46:40 2003 UTC revision 1.3, Mon Jul 26 20:54:14 2004 UTC
# Line 1  Line 1 
1    # -*- perl -*-
2    
3  use FIG;  use FIG;
4    
5  $usage = "usage: make_transferable_chunks FromDir ChunksDir";  $usage = "usage: make_transferable_chunks FromDir ChunksDir";
6    
7  (($fromD    = shift @ARGV &&  (($fromD    = shift @ARGV) &&
8    ($chunksD = shift @ARGV)    ($chunksD = shift @ARGV)
9  )  )
10   || die $usage;   || die $usage;
11    
12    if ($fromD =~ m/^\//)  { die "FromDir $fromD should be a relative, not an absolute path"; }
13    if (-d $chunksD)       { die "ChunksDir $chunksD already exists"; }
14    
15  &FIG::run("tar czf - $fromD | splitup $chunksD");  &FIG::run("tar czf - $fromD | splitup $chunksD");

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3