view scripts/migration/versions_source_step2_ @ 14:be7787c36e58 default tip

new: nofity LGSercies for deleted files
author Zoe Hong <zhong@mpiwg-berlin.mpg.de>
date Mon, 02 Nov 2015 16:41:23 +0100
parents a50cf11e5178
children
line wrap: on
line source

#!/usr/bin/perl 


unless ( -d "/tmp/ddi" )
{
    mkdir "/tmp/ddi";
}

while (<>)
{
    chop; 
    @_ = split ("\t");
    $alias = $_[0];
    $studyid = $_[1];
    $ddifile = $_[2];

    $ddifile = "/nfs/iqss/DVN/data/" . $ddifile; 

    if ( -f $ddifile )
    {
	$total += (stat($study))[7];
	$tmpdir = "/tmp/ddi/" . $alias;
	unless ( -d $tmpdir )
	{
	    mkdir $tmpdir; 
	}

	$tmpfile = $tmpdir . "/" . $studyid . "\.xml";
	system "cp $ddifile $tmpfile";

    } 
    else 
    {
	print STDERR "warning: missing ddi file! (" . $ddifile . ")\n";
    }
}

print "Total of " . $total . " bytes copied.\n";