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

View of /FigKernelScripts/check_all_lost_sims.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Mon Dec 1 20:46:40 2003 UTC (16 years ago) by efrank
Branch: MAIN
CVS Tags: V00-00-01, 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, delong-01, delong-02, caBIG-00-00-00, merge-bobdev_news-2, V00-00-00, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news

Makefile:
	get it to work with the release tools

All the rest:
	had to rename foo to foo.pl so that makefiles could recognize
	perl source from, say, Makefiles and READMEs

$usage = "usage: check_all_lost_sims Deleted ReMapped OldSims NewSims";

(($deleted = shift @ARGV) &&
 ($remapped = shift @ARGV) &&
 ($old = shift @ARGV) &&
 ($new = shift @ARGV)
)
    || die $usage;

opendir(OLD,$old) || die "could not open $old";
@files = grep { $_ =~ /^\S/ } readdir(OLD);
closedir(OLD);

foreach $file (@files)
{
    $fileB = $file;
    $fileB =~ s/\.gz$//;

    if ((-s "$old/$file") && (! -s "$new/$fileB"))
    {
	print "LOST FILE: $file\n";
    }
    if ($file eq $fileB)
    {
	system "check_lost_sims $deleted $remapped $new/$file < $old/$file";
    }
    else
    {
	system "zcat $old/$file | check_lost_sims $deleted $remapped $new/$file";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3