view release on metacpan or  search on metacpan

install_util/cgi_install.PLS  view on Meta::CPAN

    print "Not installing cgi scripts...\n";
    exit;
}

print "Installing Bio::GMOD 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 /Makefile/;
  next if /CVS/;
  next if /^[.\#]/;
  next if /~$/;
  next if /\.PLS$/;
  next unless (-f $_);
  next unless /$mod$/i;
  my $install_target = $_;