Mercurial > hg > LGDataverses

comparison scripts/migration/versions_source_step2_ @ 10:a50cf11e5178

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rewrite LGDataverse completely upgrading to dataverse4.0
author Zoe Hong <zhong@mpiwg-berlin.mpg.de>
date Tue, 08 Sep 2015 17:00:21 +0200
parents
children
comparison
equal deleted inserted replaced
9:5926d6419569 10:a50cf11e5178
1 #!/usr/bin/perl
2
3
4 unless ( -d "/tmp/ddi" )
5 {
6 mkdir "/tmp/ddi";
7 }
8
9 while (<>)
10 {
11 chop;
12 @_ = split ("\t");
13 $alias = $_[0];
14 $studyid = $_[1];
15 $ddifile = $_[2];
16
17 $ddifile = "/nfs/iqss/DVN/data/" . $ddifile;
18
19 if ( -f $ddifile )
20 {
21 $total += (stat($study))[7];
22 $tmpdir = "/tmp/ddi/" . $alias;
23 unless ( -d $tmpdir )
24 {
25 mkdir $tmpdir;
26 }
27
28 $tmpfile = $tmpdir . "/" . $studyid . "\.xml";
29 system "cp $ddifile $tmpfile";
30
31 }
32 else
33 {
34 print STDERR "warning: missing ddi file! (" . $ddifile . ")\n";
35 }
36 }
37
38 print "Total of " . $total . " bytes copied.\n";
39
40