Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 1a3e5c19f9
Fetching contributors…

Cannot retrieve contributors at this time

executable file 45 lines (36 sloc) 1.009 kb
#!/usr/bin/perl
use strict;
use File::Copy;
use Bio::Root::IO;
use File::Path 'mkpath';
use Cwd;
use FindBin '$Bin';
my $origdir = cwd;
my $homedir = "$Bin/..";
chdir $homedir or die "couldn't cd to $homedir: $!\n";
foreach (@ARGV) {
$_ =~ s/^\"(.*)\"$/$1/;
}
my %options = map {split /=/} @ARGV;
my $cgi_target = $options{CGIBIN};
print "Installing gbrowse CGI scripts...\n";
if (! (-e $cgi_target) ) {
mkpath($cgi_target,0,0777) or die "unable to create $cgi_target directory\n";
}
my $cgidir = "cgi-bin";
chdir $cgidir;
foreach (glob('*')) {
next if /README/;
next if /CVS/;
next if /^[.\#]/;
next if /~$/;
next if /\.PLS$/;
next unless (-f $_);
my $installfile = Bio::Root::IO->catfile($cgi_target, $_);
warn "copying $_ to $installfile\n";
copy($_, $installfile ) or die "unable to copy to $installfile\n";
my $mode = 0755;
chmod $mode, $installfile
or die "unable to make $installfile world executable\n";
}
chdir $origdir or die "couldn't cd to $origdir: $!\n";
Jump to Line
Something went wrong with that request. Please try again.