[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.4, Mon Dec 5 18:56:37 2005 UTC
# Line 1  Line 1 
1    # -*- perl -*-
2    #
3    # Copyright (c) 2003-2006 University of Chicago and Fellowship
4    # for Interpretations of Genomes. All Rights Reserved.
5    #
6    # This file is part of the SEED Toolkit.
7    #
8    # The SEED Toolkit is free software. You can redistribute
9    # it and/or modify it under the terms of the SEED Toolkit
10    # Public License.
11    #
12    # You should have received a copy of the SEED Toolkit Public License
13    # along with this program; if not write to the University of Chicago
14    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
15    # Genomes at veronika@thefig.info or download a copy from
16    # http://www.theseed.org/LICENSE.TXT.
17    #
18    
19    
20  use FIG;  use FIG;
21    
22  $usage = "usage: make_transferable_chunks FromDir ChunksDir";  $usage = "usage: make_transferable_chunks FromDir ChunksDir";
23    
24  (($fromD    = shift @ARGV &&  (($fromD    = shift @ARGV) &&
25    ($chunksD = shift @ARGV)    ($chunksD = shift @ARGV)
26  )  )
27   || die $usage;   || die $usage;
28    
29    if ($fromD =~ m/^\//)  { die "FromDir $fromD should be a relative, not an absolute path"; }
30    if (-d $chunksD)       { die "ChunksDir $chunksD already exists"; }
31    
32  &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.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3