forked from FelixKrueger/Bismark
-
Notifications
You must be signed in to change notification settings - Fork 0
/
copy_bismark_files_for_release.pl
executable file
·89 lines (69 loc) · 3.02 KB
/
copy_bismark_files_for_release.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
#!/usr/bin/perl
use warnings;
use strict;
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
use File::Copy "cp";
use File::Spec "catfile";
use File::Spec "splitpath";
my $dir = shift@ARGV;
die "Please provide a directory to copy files to!\n\n" unless ($dir);
unless (-d $dir){
warn "Specified directory '$dir' doesn't exist. Creating it for you...\n\n";
mkdir $dir or die "Failed to create directory: $!\n\n";
}
my ($volume, $dist_dir, $this_script) = File::Spec->splitpath(__FILE__);
#my = abs_path($0);
my @files = ('CHANGELOG.md','bismark','bismark_genome_preparation','bismark_methylation_extractor','bismark2bedGraph','bismark2report','coverage2cytosine','license.txt','Bismark_alignment_modes.pdf','deduplicate_bismark','bam2nuc','bismark2summary','filter_non_conversion','NOMe_filtering');
my @reporting = ('bioinf.logo','bismark.logo','plot.ly','plotly_template.tpl');
my @docs = ('make_docs.pl','README.md','Bismark_User_Guide.html');
foreach my $file(@files){
copy_and_warn(File::Spec->catfile($dist_dir, $file));
}
warn "Finished copying normal files\n\n"; sleep(1);
foreach my $file(@reporting){
copy_reports_and_warn(File::Spec->catfile($dist_dir, "plotly", $file));
}
warn "Finished copying bismark2report files\n\n"; sleep(1);
foreach my $file(@docs){
copy_docs_and_warn(File::Spec->catfile($dist_dir, "Docs", $file));
}
warn "Finished copying Docs files\n\n"; sleep(1);
sub copy_and_warn{
my $file = shift;
warn "Now copying '$file' to $dir\n";
cp($file,"$dir/") or die "Copy failed: $!";
}
sub copy_reports_and_warn{
unless (-d "${dir}/plotly/"){
warn "Specified directory '$dir/plotly/' doesn't exist. Creating it for you...\n\n";
mkdir "${dir}/plotly/" or die "Failed to create directory '${dir}/plotly/': $!\n\n";
}
my $file = shift;
warn "Now copying '$file' to $dir/plotly/\n";
cp($file,"$dir/plotly/") or die "Copy to '$dir/plotly/' failed: $!\n\n";
}
sub copy_docs_and_warn{
unless (-d "${dir}/Docs/"){
warn "Specified directory '$dir/Docs/' doesn't exist. Creating it for you...\n\n";
mkdir "${dir}/Docs/" or die "Failed to create directory '${dir}/Docs/': $!\n\n";
}
my $file = shift;
warn "Now copying '$file' to $dir/Docs/\n";
cp($file,"${dir}/Docs/") or die "Copy to '$dir/Docs/' failed: $!\n\n";
}
#######################
### SETTING PERMISSIONS
#######################
@files = ('bismark','bismark_genome_preparation','bismark_methylation_extractor','bismark2bedGraph','bismark2report','coverage2cytosine','deduplicate_bismark','bam2nuc','bismark2summary','filter_non_conversion','NOMe_filtering');
foreach my $file (@files){
set_permissions($file);
}
sub set_permissions{
my $file = shift;
warn "Setting permissions for ${dir}/$file\n";
chmod 0755, "${dir}/$file";
}
### Taring up the folder
$dir =~ s/\/$//;
warn "Tar command:\ntar czvf ${dir}.tar.gz $dir\n\n";
system ("tar czvf ${dir}.tar.gz $dir/");