Changeset 27656 for other-projects
- Timestamp:
- 2013-06-18T19:35:29+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
other-projects/nightly-tasks/diffcol/trunk/task.pl
r27637 r27656 37 37 # or, if one should be checked out, which revision to checkout from svn 38 38 $ENV{'SVN_OPT_REV'} = "-r head"; 39 # export GSDLHOME=40 # export GSDL3SRCHOME=39 #$ENV{'GSDLHOME'}= 40 #$ENV{'GSDL3SRCHOME'}= 41 41 42 42 … … 504 504 # ensure the upload directory exists before trying to transfer the xml and html files across 505 505 # if it already existed, clear it of contents 506 if (! -d $ENV{'UPLOAD_DIR'}) {506 if (! -d $ENV{'UPLOAD_DIR'}) { 507 507 &File::Path::make_path($ENV{'UPLOAD_DIR'}); 508 508 } # else rm $UPLOAD_DIR/* … … 512 512 for my $entry (readdir $dh) { 513 513 next if ($entry !~ m/(\.xml|\.html)$/); 514 # get the absolute path to the files before copying them over 515 $entry = &filename_concat($ENV{'DATA_DIR'}, $entry); 514 516 copy($entry, $ENV{'UPLOAD_DIR'}); 515 517 }
Note:
See TracChangeset
for help on using the changeset viewer.