view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    }
  }
}

sub prompt_for_monitor_httpd {
  my $proceed = prompt("Do you want to run the httpd tests (httpd will be restarted; may need su privs) y/n:",'n');
  if( $proceed =~ /^[yY]/) {
    my $apachectl = prompt("  Full path to apachectl:",'/usr/local/apache/bin/apachectl');
    if (open T,">t/do_monitor_httpd.tests") {
      print T $apachectl,"\n";
    }
    close T;
  } else {
    if( -e "t/do_monitor_httpd.tests" ) {
      unlink "t/do_monitor_httpd.tests";
    }
  }
}

sub prompt_for_monitor_acedb {
  my $proceed = prompt("Do you want to run the acedb tests (acedb will be restarted; may need su privs) y/n:",'n');
  if( $proceed =~ /^[yY]/) {
    if (open T,">t/do_monitor_acedb.tests") {
      print T "do_tests\n";
    }
    close T;
  } else {
    if( -e "t/do_monitor_acedb.tests" ) {
      unlink "t/do_monitor_acedb.tests";
    }
  }
}


sub prompt_for_monitor_mysqld {
  my $proceed = prompt("Do you want to run the mysqld tests (mysqld will be restarted; may need su privs) y/n:",'n');
  if( $proceed =~ /^[yY]/) {
#    my $mysqld = prompt("  Full path to safe_mysqld:",'/usr/local/mysql/bin/mysqld_safe');
    my $initd  = prompt("  Full path to mysql init script:",'/etc/rc.d/init.d/mysqld');
    if (open T,">t/do_monitor_mysqld.tests") {
#      print T "mysqld_safe=$mysqld\n";
      print T "mysql_initd=$initd\n";
    }
    close T;
  } else {
    if( -e "t/do_monitor_mysqld.tests" ) {
      unlink "t/do_monitor_mysqld.tests";
    }
  }
}


sub interpolate {
  my $path = shift;
  my ($to_expand,$homedir);
  return $path unless $path =~ m!^~([^/]*)!;
  eval {
    if ($to_expand = $1) {
      $homedir = (getpwnam($to_expand))[7];
    } else {
      $homedir = (getpwuid($<))[7];
    }
    return $path unless $homedir;
    $path =~ s!^~[^/]*!$homedir!;
  };
  return $path;
}

# Customize make clean
sub MY::clean {
  package MY;
  my $inherited = shift->SUPER::clean(@_);
  $inherited .= "\t-\$(PERL) install_util/make_clean_add.pl\n";
  $inherited;
}

#sub MY::dist_dir {
#  package MY;
#  my $inherited = shift->SUPER::dist_dir(@_);
#  $inherited =~ s!^(\s+.+)!\tpod2text docs/pod/INSTALL.pod > INSTALL\n$1!m;
#  $inherited;
#}
#sub MY::processPL {
#  package MY;
#  my $inherited = shift->SUPER::processPL(@_);
#  $inherited =~ s/(cgi-bin\/gbrowse\w*)\s\:\:.+/$1 : FORCE/g;
#  $inherited;
#}

sub MY::install {
  package MY;
  my $inherited = shift->SUPER::install(@_);
  #  $inherited =~ s/doc_install/doc_install conf_install cgi_install htdocs_install/;
  $inherited =~ s/doc_install/doc_install cgi_install/;
  $inherited;
}

sub MY::postamble {
  my $paths;
  for my $key (keys %OPTIONS) {
    $paths .= qq('$key=$OPTIONS{$key}' ) if defined $OPTIONS{$key};
  }
qq{
#conf_install ::
#	\$(PERL) \"$working_dir/install_util/conf_install.pl\" $paths

#htdocs_install ::
#	\$(PERL) \"$working_dir/install_util/htdocs_install.pl\" $paths

cgi_install ::
	\$(PERL) \"$working_dir/install_util/cgi_install.pl\" $paths

};
}

#sub MY::ppd {
#  package MY;
#  my $repository = 'http://www.gmod.org/ggb/ppm';
#  my $arch       = 'MSWin32-x86-multi-thread';
#  my $inherited = shift->SUPER::ppd(@_);