[MOBY-guts] biomoby commit
Richard Bruskeiwich
rbsk at pub.open-bio.org
Fri Feb 21 05:47:16 UTC 2003
rbsk
Fri Feb 21 00:47:16 EST 2003
Update of /home/repository/moby/moby-live/Perl
In directory pub.open-bio.org:/tmp/cvs-serv32051/Perl
Modified Files:
MANIFEST MOBY.pm Makefile.PL
Log Message:
Final Singapore changes to Perl CPAN modules
moby-live/Perl MANIFEST,1.2,1.3 MOBY.pm,1.1,1.2 Makefile.PL,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MANIFEST,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MANIFEST 2003/02/20 06:20:25 1.2
+++ /home/repository/moby/moby-live/Perl/MANIFEST 2003/02/21 05:47:16 1.3
@@ -1,6 +1,7 @@
MANIFEST
README
Changes
+config/MOBYPatch.pl
Makefile.PL
docs/INSTALL-Central.txt
docs/INSTALL-Client.txt
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY.pm 2003/02/20 06:20:25 1.1
+++ /home/repository/moby/moby-live/Perl/MOBY.pm 2003/02/21 05:47:16 1.2
@@ -22,13 +22,17 @@
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw(
-
+ $WWW_ROOT_PATH,
+ $CGI_BIN_PATH,
+ $WWW_USER,
+ $WWW_GROUP,
);
our $VERSION = '0.04';
-my $WWW_ROOT_PATH="MOBY_WWW_ROOT_PATH";
-my $CGI_BIN="MOBY_CGI_BIN" ;
-my $CGI_BIN_PATH="$WWW_ROOT_PATH/$CGI_BIN";
+my $WWW_ROOT_PATH='MOBY_WWW_ROOT_PATH';
+my $CGI_BIN_PATH='MOBY_CGI_BIN_PATH';
+my $WWW_USER='MOBY_WWW_USER' ;
+my $WWW_GROUP='MOBY_WWW_GROUP' ;
# Preloaded methods go here.
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/Makefile.PL,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/Makefile.PL 2003/02/20 01:49:49 1.2
+++ /home/repository/moby/moby-live/Perl/Makefile.PL 2003/02/21 05:47:16 1.3
@@ -1,32 +1,70 @@
use ExtUtils::MakeMaker;
use FindBin '$Bin';
-require 5.008;
+#require 5.008;
my $VERSION = '0.04';
-my $WWW_SERVER_ROOT = "/usr/local/apache" ;
+my $WWW_ROOT_PATH = "/usr/local/apache" ;
my $CGI_BIN = "cgi-bin" ;
-
+my $WWW_USER = "www" ;
#
# RMB - Singapore biohackethon - Work in progress, to make a cleaner installation
# Welcome...
-#print STDERR "\n\nMOBY Installation (Perl Implementation)\n" ;
-#print STDERR "=======================================\n\n" ;
+print STDERR "\n\nMOBY Installation (Perl Implementation)\n" ;
+print STDERR "=======================================\n\n" ;
+
+my $line ;
+print STDERR
+ "I need to know your web server path...\n",
+ "This is typically something like one of the following:\n\n",
+ "\tStandard Apache Unix location: '/usr/local/apache'\n",
+ "\tTypical location under Linux: '/var/www/'\n",
+ "\tLocation under Mac OS X: '/Library/WebServer'\n\n",
+ "Path to your WWW server root \[$WWW_ROOT_PATH\]? ";
+chomp ($line = <>);
+$WWW_ROOT_PATH=$line if ($line) ;
+print STDERR "Setting WWW server root path to '$WWW_ROOT_PATH'\n\n" ;
+
+print STDERR
+ "I also need the name of your CGI script directory there:\n\n",
+ "\tMost of the time, this is 'cgi-bin'\n",
+ "\tbut Mac OS X uses 'CGI-Executables'\n\n",
+ "Name of your CGI directory \[$CGI_BIN\]? ";
+chomp ($line = <>);
+$CGI_BIN=$line if ($line) ;
+my $CGI_BIN_PATH = "$WWW_ROOT_PATH/$CGI_BIN" ;
+print STDERR "Setting CGI bin path to '$CGI_BIN_PATH'\n\n" ;
+
+print STDERR
+ "Your server runs under a specific user account.\n",
+ "\tUnder most installations, this is usually 'nobody' or 'www'\n",
+ "\tUnder Mac OS X, this is 'root'\n\n",
+ "Name of WWW server user account \[$WWW_USER\]? ";
+chomp ($line = <>);
+$WWW_USER=$line if ($line) ;
+print STDERR "Setting WWW user to '$WWW_USER'\n\n" ;
+
+my $WWW_GROUP=$WWW_USER ;
+print STDERR
+ "A UNIX group is also generally associated with the web directories.\n",
+ "\tThis may be the same as the above user account name, or\n",
+ "\tin be something else, like 'admin' in Mac OS X\n\n",
+ "Name of WWW server group \[$WWW_GROUP\]? ";
+chomp($line = <>) ;
+$WWW_GROUP=$line if($line) ;
+print STDERR "Setting WWW group to '$WWW_GROUP'\n\n" ;
+print STDERR "Press any key to continue...\n\n" ;
+$line=<>;
+
+sub MY::post_initialize {
+ return <<"MAKE_FRAG";
+MOBY_WWW_ROOT_PATH = $WWW_ROOT_PATH
+MOBY_CGI_BIN_PATH = $CGI_BIN_PATH
+MOBY_WWW_USER = $WWW_USER
+MOBY_WWW_GROUP = $WWW_GROUP
+MAKE_FRAG
+}
-#my $line ;
-#print STDERR "Path to your WWW server root \[$WWW_SERVER_ROOT\]? ";
-#chomp ($line = <>);
-#$WWW_SERVER_ROOT=$line if ($line) ;
-#print STDERR "Setting WWW server root path to '$WWW_SERVER_ROOT'\n\n" ;
-
-#print STDERR "Name of your CGI directory \[$CGI_BIN\]? ";
-#chomp ($line = <>);
-#$CGI_BIN=$line if ($line) ;
-#my $CGI_BIN_PATH = "$WWW_SERVER_ROOT/$CGI_BIN" ;
-#print STDERR "Setting CGI bin path is '$CGI_BIN_PATH'\n\n" ;
-
-#print STDERR "\n\n" ;
-
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
@@ -43,16 +81,20 @@
#
# Insert additional MOBY specific Makefile targets
-#
+#
+
sub MY::postamble {
- return <<'MAKE_FRAG';
+ return <<"MAKE_FRAG";
Central:
- echo "Make (local) MOBY Central stub"
+ echo 'Make (local) MOBY Central stub'
Server:
- echo "Make (local) MOBY Server stub"
+ echo 'Make (local) MOBY Server stub'
-Client:
- echo "Make (local) MOBY Client stub"
+WWWClient:
+ echo 'Setting up MOBY WWW Client'
+ cp scripts/MOBY-Client.cgi \$(MOBY_CGI_BIN_PATH)
+ chown \$(MOBY_WWW_USER):\$(MOBY_WWW_GROUP) \$(MOBY_CGI_BIN_PATH)/MOBY-Client.cgi
+
MAKE_FRAG
}
More information about the MOBY-guts
mailing list