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

View of /FigKernelScripts/make_transferable_chunks.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (as text) (annotate)
Mon Jul 26 20:54:14 2004 UTC (15 years, 6 months ago) by gdpusch
Branch: MAIN
CVS Tags: merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, caBIG-dataload-0, merge-trunktag-bobdev_news-1, merge-bodev_news-3, efrank-preMakefileToStandardMk, caBIG-00-00-00, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
Changes since 1.2: +6 -2 lines
Added error-checking.

# -*- perl -*-

use FIG;

$usage = "usage: make_transferable_chunks FromDir ChunksDir";

(($fromD    = shift @ARGV) &&
 ($chunksD = shift @ARGV)
)
    || die $usage;

if ($fromD =~ m/^\//)  { die "FromDir $fromD should be a relative, not an absolute path"; }
if (-d $chunksD)       { die "ChunksDir $chunksD already exists"; }

&FIG::run("tar czf - $fromD | splitup $chunksD");

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3