You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(267) |
Nov
(344) |
Dec
(119) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(23) |
Feb
(15) |
Mar
(16) |
Apr
(388) |
May
|
Jun
(4) |
Jul
|
Aug
|
Sep
(4) |
Oct
|
Nov
|
Dec
|
|
From: <jas...@us...> - 2003-04-26 23:17:31
|
Update of /cvsroot/genex/genex-server
In directory sc8-pr-cvs1:/tmp/cvs-serv24101
Modified Files:
Configure
Log Message:
Added LOCAL_ETC, GENEX_MASON_HANDLER, PRIVATE_PERL_API
renamed GENEX_MASON_DIR => GENEX_MASON_COMP_ROOT
brought back the ability to install the Perl API to a private
location, but like modifying the default name of the genex
installation, it can only be indicated by runing the script as:
/usr/bin/perl Configure --PRIVATE_PERL_API
Changed how GENEX_EXTRALIBS is used, it no longer includes the
'use lib' portion, and is instead a list of directory names
that must be wrapped like: 'use lib qw(%%GENEX_EXTRALIBS%%')
Index: Configure
===================================================================
RCS file: /cvsroot/genex/genex-server/Configure,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Configure 9 Apr 2003 21:12:56 -0000 1.16
--- Configure 26 Apr 2003 23:17:27 -0000 1.17
***************
*** 65,68 ****
--- 65,69 ----
get_cache
genex_mkdir
+ $CACHE_FILE_FILE_NAME
$CACHE_FILE_NAME
$CACHE_FILE_PATH
***************
*** 89,93 ****
$HTTP_ERR_LOG $HTTP_ERR_LOG_DEF
$GENEX_BIN_DIR $LOCAL_LIB $LOGIN_DIR $LOCAL_ROOT $LOCAL_ROOT_DEF $LOCAL_SHARE
! $LOCAL_VAR $MAX_SYSTMP_SIZE $MAX_TMPFILE_AGE $MERGEM_DIR
$MPAGE $EPATH $R $RCLUST_DIR $R_VERSION $SENDMAIL $SLOW $START_PERL
$SYSTMP $SYSTMP_DEF $UPDATE $VNCSERVER
--- 90,94 ----
$HTTP_ERR_LOG $HTTP_ERR_LOG_DEF
$GENEX_BIN_DIR $LOCAL_LIB $LOGIN_DIR $LOCAL_ROOT $LOCAL_ROOT_DEF $LOCAL_SHARE
! $LOCAL_VAR $MAX_SYSTMP_SIZE $MAX_TMPFILE_AGE $MERGEM_DIR $LOCAL_ETC
$MPAGE $EPATH $R $RCLUST_DIR $R_VERSION $SENDMAIL $SLOW $START_PERL
$SYSTMP $SYSTMP_DEF $UPDATE $VNCSERVER
***************
*** 108,117 ****
$GENEX_SERVER_INSTALLATION_DATE $GENEX_SERVER_INSTALLED_BY
$ISO8601_DATE_FORMAT
! $APACHE_CONF_DIR $MASON_COMP_DATA_ROOT $GENEX_HTMLDIR $GENEX_MASON_DIR $GENEX_MASON_DATA_DIR
! $GENEX_WORKSPACE_DIR $APACHE_CONF_DIR_DEF
$GENEX_G2G_DIR $GENEX_MASON_URL $GENEX_WORKSPACE_URL $GENEX_SESSION_PATH
$GENEX_RO_USER $GENEX_RO_PASSWORD $GENEX_TEST_USER $GENEX_TEST_PASSWORD
$GENEX_PUBLIC_GROUP $GENEX_SUPERUSER_GROUP $GENEX_VOCAB_DIR
! $GENEX_MASTER_SEQ
);
--- 109,118 ----
$GENEX_SERVER_INSTALLATION_DATE $GENEX_SERVER_INSTALLED_BY
$ISO8601_DATE_FORMAT
! $APACHE_CONF_DIR $MASON_COMP_DATA_ROOT $GENEX_HTMLDIR $GENEX_MASON_COMP_ROOT $GENEX_MASON_DATA_DIR
! $GENEX_WORKSPACE_DIR $APACHE_CONF_DIR_DEF $GENEX_MASON_HANDLER
$GENEX_G2G_DIR $GENEX_MASON_URL $GENEX_WORKSPACE_URL $GENEX_SESSION_PATH
$GENEX_RO_USER $GENEX_RO_PASSWORD $GENEX_TEST_USER $GENEX_TEST_PASSWORD
$GENEX_PUBLIC_GROUP $GENEX_SUPERUSER_GROUP $GENEX_VOCAB_DIR
! $GENEX_MASTER_SEQ $PRIVATE_PERL_API
);
***************
*** 155,158 ****
--- 156,160 ----
"MPAGE=s" => \$MPAGE,
"PATH=s" => \$PATH,
+ "PRIVATE_PERL_API" => \$PRIVATE_PERL_API,
"PREFIX=s" => \$PREFIX,
"R=s" => \$R,
***************
*** 1007,1010 ****
--- 1009,1013 ----
$VARS{DTD_HTML_DIR} = $DTD_HTML_DIR = "$GENEXML_DIR/genexml-html";
$VARS{LOCAL_VAR} = $LOCAL_VAR = "$LOCAL_ROOT/var";
+ $VARS{LOCAL_ETC} = $LOCAL_ETC = "$LOCAL_ROOT/etc";
$VARS{LOCAL_SHARE} = $LOCAL_SHARE = "$LOCAL_ROOT/share";
$VARS{GENEX_CACHE_DIR} = $GENEX_CACHE_DIR = "$LOCAL_ROOT/cache";
***************
*** 1087,1129 ****
#
######################################################################
! # print STDOUT "\n\n *** Genex.pm Configuration ***\n";
! # unless (defined $PREFIX) {
! # spacer();
! # $PREFIX = $DEFAULT_VARS{PREFIX} || "$LOCAL_ROOT/perl5";
! # my $tmp = prompt(qq[
! #
! # I plan to install the Genex.pm module under the genex specific library
! # directory \($PREFIX\).
! #
! # If you want me to install it someplace different, you can specify
! # \$PREFIX here.
! #
! # To accept to default installation directory, just hit enter
! # >> Genex.pm install prefix?], $PREFIX);
! #
! # $tmp =~ s/\s//g;
! # $PREFIX = check_dir($tmp,$PREFIX,my $no_make=1);
! # }
! # $VARS{PREFIX} = $PREFIX;
! # $VARS{RCLUSTER_PERL_LIB} = $RCLUSTER_PERL_LIB = "$PREFIX/RCluster";
! # print STDERR "\nOK... PREFIX => $VARS{PREFIX}\n";
! #
! # #
! # # ExtUtils::MakeMaker is causing me grief. For whatever reason, it seems that
! # # when perl is built, it allows over-riding of the INSTALLSITELIB variable
! # # so that it is not based on $PREFIX. This means that I have to set all
! # # these values by hand to get something like:
! # #
! # # make install INSTALLSITELIB=/usr/local/lib/genex/lib/perl5/site_lib
! # # INSTALLMAN1DIR=/usr/local/lib/genex/man/man1
! # # INSTALLMAN3DIR=/usr/local/lib/genex/man/man3
! #
! # if ($PREFIX) {
! # $VARS{GENEX_MAN1} = $GENEX_MAN1 = "$LOCAL_ROOT/man/man1";
! # $VARS{GENEX_MAN3} = $GENEX_MAN3 = "$LOCAL_ROOT/man/man3";
! # $VARS{GENEX_INSTALLSITE} = $GENEX_INSTALLSITE = $PREFIX;
! # $INSTALL_PERL_MOD = "INSTALLSITELIB=$GENEX_INSTALLSITE INSTALLMAN1DIR=$GENEX_MAN1" .
! # "INSTALLMAN3DIR=$GENEX_MAN3";
! # }
######################################################################
--- 1090,1136 ----
#
######################################################################
! if (defined $PRIVATE_PERL_API) {
! print STDOUT "\n\n *** Private Perl API Configuration ***\n";
! spacer();
! $PREFIX = $DEFAULT_VARS{PREFIX} || "$LOCAL_ROOT/perl5";
! my $tmp = prompt(qq[
!
! I plan to install the Genex.pm module under the genex specific library
! directory \($PREFIX\).
!
! If you want me to install it someplace different, you can specify
! \$PREFIX here.
!
! To accept to default installation directory, just hit enter
! >> Genex.pm install prefix?], $PREFIX);
!
! $tmp =~ s/\s//g;
! $PREFIX = check_dir($tmp,$PREFIX,my $no_make=1);
!
! $VARS{PREFIX} = $PREFIX;
! $VARS{PRIVATE_PERL_API} = $PRIVATE_PERL_API;
! $VARS{RCLUSTER_PERL_LIB} = $RCLUSTER_PERL_LIB = "$PREFIX/RCluster";
! print STDERR "\nOK... PREFIX => $VARS{PREFIX}\n";
!
! #
! # ExtUtils::MakeMaker is causing me grief. For whatever reason, it seems that
! # when perl is built, it allows over-riding of the INSTALLSITELIB variable
! # so that it is not based on $PREFIX. This means that I have to set all
! # these values by hand to get something like:
! #
! # make install INSTALLSITELIB=/usr/local/lib/genex/lib/perl5/site_lib
! # INSTALLMAN1DIR=/usr/local/lib/genex/man/man1
! # INSTALLMAN3DIR=/usr/local/lib/genex/man/man3
!
! if ($PREFIX) {
! $VARS{GENEX_MAN1} = $GENEX_MAN1 = "$LOCAL_ROOT/man/man1";
! $VARS{GENEX_MAN3} = $GENEX_MAN3 = "$LOCAL_ROOT/man/man3";
! $VARS{GENEX_INSTALLSITE} = $GENEX_INSTALLSITE = $PREFIX;
! $INSTALL_PERL_MOD = "INSTALLSITELIB=$GENEX_INSTALLSITE "
! . "INSTALLMAN1DIR=$GENEX_MAN1 "
! . "INSTALLMAN3DIR=$GENEX_MAN3";
! }
! }
!
######################################################################
***************
*** 1137,1141 ****
} else {
spacer();
! $VARS{GENEX_EXTRALIBS} = $GENEX_EXTRALIBS = '';
print STDOUT <<"EXTRALIBS";
--- 1144,1148 ----
} else {
spacer();
! $VARS{GENEX_EXTRALIBS} = $GENEX_EXTRALIBS = [];
print STDOUT <<"EXTRALIBS";
***************
*** 1146,1149 ****
--- 1153,1157 ----
cancel the configuration now (^C), set PERL5LIB properly and restart
the configuration.
+
EXTRALIBS
***************
*** 1154,1158 ****
# to use the value.
#
! if (exists $DEFAULT_VARS{GENEX_EXTRALIBS}) {
print STDOUT <<"EXTRALIBS";
The previous value you used for this was
--- 1162,1168 ----
# to use the value.
#
! if (exists $DEFAULT_VARS{GENEX_EXTRALIBS} and $DEFAULT_VARS{GENEX_EXTRALIBS}
! and $DEFAULT_VARS{GENEX_EXTRALIBS} !~ /use lib/) {
!
print STDOUT <<"EXTRALIBS";
The previous value you used for this was
***************
*** 1166,1170 ****
$tmp =~ s/\s//g; # kill whitespace
unless ($tmp =~ /n/i) {
! $VARS{GENEX_EXTRALIBS} = $DEFAULT_VARS{GENEX_EXTRALIBS};
}
}
--- 1176,1180 ----
$tmp =~ s/\s//g; # kill whitespace
unless ($tmp =~ /n/i) {
! push(@{$VARS{GENEX_EXTRALIBS}},split(/\s+/,$DEFAULT_VARS{GENEX_EXTRALIBS}));
}
}
***************
*** 1188,1192 ****
unless ($tmp =~ m/^n$/i) {
print STDOUT " Adding ";
! $VARS{GENEX_EXTRALIBS} .= "use lib q[$lib];\n";
} else {
print STDOUT "OK - Skipping this one: ";
--- 1198,1202 ----
unless ($tmp =~ m/^n$/i) {
print STDOUT " Adding ";
! push(@{$VARS{GENEX_EXTRALIBS}},$lib);
} else {
print STDOUT "OK - Skipping this one: ";
***************
*** 1196,1216 ****
}
! # print STDOUT <<"EOM";
! #
! # You have instructed me to install Genex.pm in the following directory:
! #
! # $PREFIX
! #
! # If you have not already added this directory to the list of extra libraries
! # you should do so now.
! # EOM
! #
! # print STDOUT " Add $PREFIX ? [y] ";
! # $tmp = <STDIN>;
! # $tmp =~ s/\s//g; # kill whitespace
! # unless ($tmp =~ /n/i) {
! # $VARS{GENEX_EXTRALIBS} .= "use lib q[$PREFIX];\n";
! # }
! # $GENEX_EXTRALIBS = $VARS{GENEX_EXTRALIBS};
}
print STDERR "\nOK... GENEX_EXTRALIBS = $VARS{GENEX_EXTRALIBS}";
--- 1206,1217 ----
}
! # if we've been given an installation prefix, $PREFIX, check to see
! # if we've already got it in our list, if not add it
! push(@{$VARS{GENEX_EXTRALIBS}},$PREFIX)
! unless grep {$_ eq $PREFIX} @{$VARS{GENEX_EXTRALIBS}};
!
! # take the array ref of library paths and conver it to a string
! $VARS{GENEX_EXTRALIBS} = join(' ',@{$VARS{GENEX_EXTRALIBS}});
! $GENEX_EXTRALIBS = $VARS{GENEX_EXTRALIBS};
}
print STDERR "\nOK... GENEX_EXTRALIBS = $VARS{GENEX_EXTRALIBS}";
***************
*** 1246,1259 ****
#
######################################################################
! $VARS{GENEX_MASON_DIR} = $GENEX_MASON_DIR = "$GENEX_HTMLDIR/mason";
! $VARS{GENEX_WORKSPACE_DIR} = $GENEX_WORKSPACE_DIR = "$GENEX_MASON_DIR/workspace";
$VARS{GENEX_MASON_URL} = $GENEX_MASON_URL = "$GENEX_HTML_URL/mason";
$VARS{GENEX_WORKSPACE_URL} = $GENEX_WORKSPACE_URL = "$GENEX_MASON_URL/workspace";
$VARS{GENEX_SESSION_PATH} = $GENEX_SESSION_PATH = "/$GENEX_DIR";
$VARS{GENEX_MASON_DATA_DIR} = $GENEX_MASON_DATA_DIR = "$LOCAL_ROOT/mason";
unless (defined $MASON_COMP_DATA_ROOT) {
# we set up the CompRoot regardless
$VARS{MASON_COMP_DATA_ROOT} = <<EOT;
! PerlAddVar MasonCompRoot $GENEX_MASON_DIR
PerlSetVar MasonDataDir $GENEX_MASON_DATA_DIR
EOT
--- 1247,1262 ----
#
######################################################################
! $VARS{GENEX_MASON_COMP_ROOT} = $GENEX_MASON_COMP_ROOT = "$GENEX_HTMLDIR/mason";
! $VARS{GENEX_WORKSPACE_DIR} = $GENEX_WORKSPACE_DIR = "$GENEX_MASON_COMP_ROOT/workspace";
$VARS{GENEX_MASON_URL} = $GENEX_MASON_URL = "$GENEX_HTML_URL/mason";
$VARS{GENEX_WORKSPACE_URL} = $GENEX_WORKSPACE_URL = "$GENEX_MASON_URL/workspace";
$VARS{GENEX_SESSION_PATH} = $GENEX_SESSION_PATH = "/$GENEX_DIR";
$VARS{GENEX_MASON_DATA_DIR} = $GENEX_MASON_DATA_DIR = "$LOCAL_ROOT/mason";
+ $VARS{GENEX_MASON_HANDLER} = $GENEX_MASON_HANDLER = "Bio::Genex::ApacheHandler::$GENEX_DIR";
+
unless (defined $MASON_COMP_DATA_ROOT) {
# we set up the CompRoot regardless
$VARS{MASON_COMP_DATA_ROOT} = <<EOT;
! PerlAddVar MasonCompRoot $GENEX_MASON_COMP_ROOT
PerlSetVar MasonDataDir $GENEX_MASON_DATA_DIR
EOT
***************
*** 1696,1703 ****
# that when build the Perl API the cache file will be installed along
# with the rest of the API
! my $DIR = 'Genex/Config';
#genex_mkdir($DIR);
! genex_system("cp $CACHE_FILE_NAME $DIR/$CACHE_FILE_NAME");
!
print STDOUT <<"EOM";
--- 1699,1706 ----
# that when build the Perl API the cache file will be installed along
# with the rest of the API
! my $DIR = 'Genex/Genex';
#genex_mkdir($DIR);
! genex_system("cp $CACHE_FILE_NAME $DIR/$CACHE_FILE_FILE_NAME");
! print STDERR "\n\n\tCopying config file to $DIR\n\n\n";
print STDOUT <<"EOM";
|
|
From: <jas...@us...> - 2003-04-26 23:06:53
|
Update of /cvsroot/genex/genex-server/DB/xml
In directory sc8-pr-cvs1:/tmp/cvs-serv18686
Modified Files:
ProtocolStep.xml QuantitationLink.xml
Log Message:
What: changed order => protocol_order Why: 'order' is an SQL reserverd word and causes Postgres to barf if it is not properly handled, and it is too hard to figure out all the cases of how to properly handle it
Index: ProtocolStep.xml
===================================================================
RCS file: /cvsroot/genex/genex-server/DB/xml/ProtocolStep.xml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ProtocolStep.xml 23 Apr 2003 21:09:34 -0000 1.3
--- ProtocolStep.xml 26 Apr 2003 23:06:50 -0000 1.4
***************
*** 12,17 ****
type="serial"
comment=""/>
! <column name="order"
! full_name="Order"
type="int4"
comment="The order of this step in the protocol"/>
--- 12,17 ----
type="serial"
comment=""/>
! <column name="protocol_order"
! full_name="Protocol Order"
type="int4"
comment="The order of this step in the protocol"/>
***************
*** 34,38 ****
foreign_table_pkey ="proc_pk"
fkey_type ="&fkey_oto;"/>
! <unique column_ids="order protocol_fk"/>
<primary_key column_id="proto_step_pk"/>
</table>
--- 34,38 ----
foreign_table_pkey ="proc_pk"
fkey_type ="&fkey_oto;"/>
! <unique column_ids="protocol_order protocol_fk"/>
<primary_key column_id="proto_step_pk"/>
</table>
Index: QuantitationLink.xml
===================================================================
RCS file: /cvsroot/genex/genex-server/DB/xml/QuantitationLink.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** QuantitationLink.xml 15 Oct 2002 14:47:08 -0000 1.2
--- QuantitationLink.xml 26 Apr 2003 23:06:50 -0000 1.3
***************
*** 23,28 ****
foreign_table_pkey ="qd_pk"
fkey_type ="&fkey_linking;"/>
! <column name="order"
! full_name="Order"
not_null="true"
type="int4"
--- 23,28 ----
foreign_table_pkey ="qd_pk"
fkey_type ="&fkey_linking;"/>
! <column name="dimension_order"
! full_name="Dimension Order"
not_null="true"
type="int4"
|
|
From: <jas...@us...> - 2003-04-26 22:56:48
|
Update of /cvsroot/genex/genex-server
In directory sc8-pr-cvs1:/tmp/cvs-serv12963
Modified Files:
MANIFEST.in
Log Message:
new files
Index: MANIFEST.in
===================================================================
RCS file: /cvsroot/genex/genex-server/MANIFEST.in,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** MANIFEST.in 23 Apr 2003 21:36:43 -0000 1.13
--- MANIFEST.in 26 Apr 2003 22:56:44 -0000 1.14
***************
*** 27,31 ****
'xcluster/xcluster.form.pl' => '%%CGIDIR%%/%%XCLUSTER_DIR%%',
! 'apache/genex-2.conf' => '%%APACHE_CONF_DIR%%',
'Mason/status.html' => '%%GENEX_MASON_DIR%%',
--- 27,32 ----
'xcluster/xcluster.form.pl' => '%%CGIDIR%%/%%XCLUSTER_DIR%%',
! 'apache/genex-2.conf' => '%%LOCAL_ETC%%',
! 'apache/genex-2-handler.pl' => '%%LOCAL_ETC%%',
'Mason/status.html' => '%%GENEX_MASON_DIR%%',
***************
*** 63,66 ****
--- 64,68 ----
'Mason/workspace/parameter-value-insert.html' => '%%GENEX_WORKSPACE_DIR%%',
'Mason/workspace/sample-insert.html' => '%%GENEX_WORKSPACE_DIR%%',
+ 'Mason/workspace/sample-protocols.html' => '%%GENEX_WORKSPACE_DIR%%',
'Mason/workspace/list-tables.html' => '%%GENEX_WORKSPACE_DIR%%',
'Mason/workspace/fetch-table.html' => '%%GENEX_WORKSPACE_DIR%%',
|
|
From: <jas...@us...> - 2003-04-26 22:56:47
|
Update of /cvsroot/genex/genex-server/Genex/samples In directory sc8-pr-cvs1:/tmp/cvs-serv12488 Removed Files: Makefile.PL.in Log Message: cruft --- Makefile.PL.in DELETED --- |
|
From: <jas...@us...> - 2003-04-26 22:54:37
|
Update of /cvsroot/genex/genex-server/Genex/t In directory sc8-pr-cvs1:/tmp/cvs-serv12286 Removed Files: AM_Spots.t AM_SuspectSpots.t Log Message: cruft --- AM_Spots.t DELETED --- --- AM_SuspectSpots.t DELETED --- |
|
From: <jas...@us...> - 2003-04-26 21:44:06
|
Update of /cvsroot/genex/genex-server/Mason/workspace
In directory sc8-pr-cvs1:/tmp/cvs-serv21791/Mason/workspace
Modified Files:
protocol-step-insert.html.in
Log Message:
* Mason/workspace/protocol-step-insert.html.in (Repository):
fixed 'order' => 'protocol_order'
Index: protocol-step-insert.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/protocol-step-insert.html.in,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** protocol-step-insert.html.in 26 Apr 2003 21:12:41 -0000 1.1
--- protocol-step-insert.html.in 26 Apr 2003 21:44:03 -0000 1.2
***************
*** 24,28 ****
<tr>
<td>
! <input type="text" name="order" size="65" maxlength="128">
</td>
</tr>
--- 24,28 ----
<tr>
<td>
! <input type="text" name="protocol_order" size="65" maxlength="128">
</td>
</tr>
***************
*** 93,97 ****
$read_group => ''
$write_group => ''
! $order => ''
$proto_fk => ''
$proc_fk => ''
--- 93,97 ----
$read_group => ''
$write_group => ''
! $protocol_order => ''
$proto_fk => ''
$proc_fk => ''
***************
*** 134,138 ****
"--ro_group='$read_group'",
"--rw_group='$write_group'",
! "--order='$order'",
"--proto_fk='$proto_fk'",
"--proc_fk='$proc_fk'",
--- 134,138 ----
"--ro_group='$read_group'",
"--rw_group='$write_group'",
! "--protocol_order='$protocol_order'",
"--proto_fk='$proto_fk'",
"--proc_fk='$proc_fk'",
|
|
From: <jas...@us...> - 2003-04-26 21:38:05
|
Update of /cvsroot/genex/genex-server/Mason/workspace/comps In directory sc8-pr-cvs1:/tmp/cvs-serv18013/Mason/workspace/comps Modified Files: contacts.mason Log Message: * Mason/workspace/comps/contacts.mason (Repository): added GENEX_EXTRALIBS Index: contacts.mason =================================================================== RCS file: /cvsroot/genex/genex-server/Mason/workspace/comps/contacts.mason,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** contacts.mason 21 Apr 2003 00:25:47 -0000 1.1 --- contacts.mason 26 Apr 2003 21:34:11 -0000 1.2 *************** *** 28,31 **** --- 28,33 ---- </%args> <%once> + use lib qw(); + use Bio::Genex::Contact; </%once> |
|
From: <jas...@us...> - 2003-04-26 21:37:06
|
Update of /cvsroot/genex/genex-server/Mason/workspace/comps In directory sc8-pr-cvs1:/tmp/cvs-serv19037/Mason/workspace/comps Removed Files: g2g-request.mason htmlize-fkey.mason ro_rw_group.mason Log Message: moved to .in files --- g2g-request.mason DELETED --- --- htmlize-fkey.mason DELETED --- --- ro_rw_group.mason DELETED --- |
|
From: <jas...@us...> - 2003-04-26 21:29:46
|
Update of /cvsroot/genex/genex-server/Mason/workspace/comps In directory sc8-pr-cvs1:/tmp/cvs-serv16364/Mason/workspace/comps Modified Files: authenticate.mason.in Log Message: * Mason/workspace/comps/authenticate.mason.in (Repository): added GENEX_EXTRALIBS Index: authenticate.mason.in =================================================================== RCS file: /cvsroot/genex/genex-server/Mason/workspace/comps/authenticate.mason.in,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** authenticate.mason.in 20 Nov 2002 21:24:09 -0000 1.2 --- authenticate.mason.in 26 Apr 2003 21:29:43 -0000 1.3 *************** *** 3,6 **** --- 3,8 ---- </%args> <%once>; + use lib qw(%%GENEX_EXTRALIBS%%); + use Bio::Genex::HTMLUtils; </%once> |
|
From: <jas...@us...> - 2003-04-26 21:28:22
|
Update of /cvsroot/genex/genex-server/Mason/workspace/comps
In directory sc8-pr-cvs1:/tmp/cvs-serv15802/Mason/workspace/comps
Added Files:
contacts.mason.in g2g-request.mason.in htmlize-fkey.mason.in
ro_rw_group.mason.in
Log Message:
new .in files
--- NEW FILE: contacts.mason.in ---
<h2><% $title %></h2>
<p>Choose the <b>Contact</b> entry who provided the <% $type %>
(if any).</p>
<p>The entry must exist in the DB first, click <a
href="contact-insert.html">here</a> if you need to enter
the Contact info, then return to this page and hit your
browsers <b>Reload</b> button.</p>
<table bgcolor="#D8E4F7" border="1" cols="1">
<thead bgcolor="#FFD78F">
<tr>
<th>Provider Contact</th>
</tr>
</thead>
<tbody>
<tr>
<td>
<& query-drop-down.mason, name=>"provider", array_ref=>\@contacts &>
</td>
</tr>
</tbody>
</table>
<%args>
$type
$required => 0
</%args>
<%once>
use lib qw(%%GENEX_EXTRALIBS%%);
use Bio::Genex::Contact;
</%once>
<%init>
my $no_type = 'NONE';
my @contacts;
my $title = 'Provider Contact';
if ($required) {
$title = qq[<font color="red">$title</font>];
} else {
push(@contacts,([$no_type,$no_type]));
}
my @con_dbs = Bio::Genex::Contact->get_all_objects($dbh);
foreach my $con_db (@con_dbs) {
push(@contacts,[$con_db->con_pk,'[' . $con_db->contact_person .
":" . $con_db->organization . ']']);
}
</%init>
--- NEW FILE: g2g-request.mason.in ---
<%once>
use LWP::UserAgent;
use lib qw(%%GENEX_EXTRALIBS%%);
use Bio::Genex qw(error);
use Bio::Genex::Connect;
my $g2g_sql = <<SQL;
SELECT url FROM G2G
WHERE g2g_pk=?
SQL
my $dbh;
my $ua;
</%once>
<%args>
$request
@g2g
</%args>
<%init>
my %responses;
$dbh = Bio::Genex::Connect->new();
my $sth = $dbh->prepare($g2g_sql);
$dbh->error(sql=>$g2g_sql,
message=>"Couldn't prepare g2g select sql")
if $dbh->err;
my @urls;
foreach my $g2g (@g2g) {
$sth->execute($g2g);
$dbh->error(sql=>$g2g_sql,
sth=>$sth,
message=>"Couldn't exectute g2g select sql for: $g2g")
if $sth->err;
push(@urls,$sth->fetchrow_arrayref->[0]);
}
$sth->finish();
# Create a user agent object
$ua = LWP::UserAgent->new();
$ua->agent("G2G/0.1 " . $ua->agent);
foreach my $url (@urls) {
# Create a request
my $req = HTTP::Request->new(POST=>$url);
$req->content_type('multipart/form-data');
$req->content($request);
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if (!$res->is_success) {
# get the value of the X-G2G-ERROR header
my $error = $res->headers->header('X-G2G-ERROR');
error(message=>"G2G Request Error: $error");
}
$responses{$url} = $res->content();
}
</%init>
<%perl>
return %responses;
</%perl>
--- NEW FILE: htmlize-fkey.mason.in ---
<% $result %>
<%args>
$html
$SCRIPT => "$Bio::Genex::Config->{GENEX_WORKSPACE_URL}/fetch-table.html"
$hash_ref
$debug => 0
$PARAMS => "&DEBUG=$debug&dbname=$Bio::Genex::Config->{DB_NAME}"
</%args>
<%once>
use lib qw(%%GENEX_EXTRALIBS%%);
use Bio::Genex::Config;
my @fkeys = qw(us_fk
owner_us_fk
gs_fk
smp_fk
amg_fk
spc_fk
al_fk
primary_es_fk
es_fk
am_fk
image_anal_sw_fk
spotter_sw_fk
scan_sw_fk
ratio_am_fk
con_fk
provider_con_fk
prt_fk
ef_fk
tl_fk
scn_fk
sptr_fk
ams_fk
als_fk
db_name
al_fk
smp_fk
image_anal_sw_fk
scan_sw_fk
scn_fk);
my %fkeys = map {$_ => 1} @fkeys;
</%once>
<%init>;
my $result = $html;
my %args = %{$hash_ref};
# now process each of the keys individually
foreach (keys %args) {
# get around the ugly HTML table default
my $space = ' ';
$args{$_} = $space unless defined $args{$_} && $args{$_} !~ m/^\s*$/;
if (/^login$/ || /^password$/) {
# we do not show login names or passwords
$args{$_} = ' ';
next;
}
my $pkey = $args{$_};
next unless defined $pkey;
next if $pkey eq $space;
if (/email$/) {
# assume for now it's a correct email address
$args{$_} = $cgi->a({-href=>"mailto:$pkey"},$pkey);
next;
}
if (/url/) {
# assume for now it's a correct URL
$args{$_} = $cgi->a({-href=>"$pkey"},$pkey);
next;
}
# ensure we handle this foreign key
next unless $fkeys{$_};
# the following all create hyperlinks to other tables
# now postprocess the key
my ($text,$table);
my $error = 0;
if (/con_fk$/) {
$table = 'Contact';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $contact = Bio::Genex::Contact->new(dbh=>$dbh,id=>$pkey);
unless (defined $contact) {
$error = 1;
goto ERROR;
}
$text = $contact->contact_person();
# Use the organization if no contact person is specified
$text = $contact->organization() unless defined $text;
} elsif (/^(owner_us_fk|us_fk)$/) {
$table = 'UserSec';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
# we don't show login's so we use the 'contact_person' field of
# the associated Bio::Genex::Contact object
my $user = Bio::Genex::UserSec->new(dbh=>$dbh,id=>$pkey);
unless (defined $user) {
$error = 1;
goto ERROR;
}
if (defined $user->con_obj && $user->con_obj->isa('Bio::Genex::Contact')) {
$text = $user->con_obj->contact_person();
} else {
$text = 'Not Available';
}
} elsif (/spc_fk/) {
$table = 'Species';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $species = Bio::Genex::Species->new(dbh=>$dbh,id=>$pkey);
unless (defined $species) {
$error = 1;
goto ERROR;
}
$text = $species->primary_scientific_name();
} elsif (/al_fk/) {
$table = 'ArrayLayout';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $layout = Bio::Genex::ArrayLayout->new(dbh=>$dbh,id=>$pkey);
unless (defined $layout) {
$error = 1;
goto ERROR;
}
$text = $layout->name();
} elsif (/^scn_fk$/) {
$table = 'Scanner';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $scnr_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $scnr_db) {
$error = 1;
goto ERROR;
}
$text = $scnr_db->model_description();
} elsif (/^ef_fk$/) {
$table = 'ExperimentFactors';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $ef_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $ef_db) {
$error = 1;
goto ERROR;
}
$text = $ef_db->es_obj->name() . ':' .$ef_db->factor_name();
} elsif (/^als_fk$/) {
$table = 'Feature';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $als_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $als_db) {
$error = 1;
goto ERROR;
}
$text = $als_db->al_obj->name() . ':' .$als_db->spot_identifier();
} elsif (/^ams_fk$/) {
$table = 'AM_Spots';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $ams_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $ams_db) {
$error = 1;
goto ERROR;
}
my $spot_name;
if (defined $ams_db->usf_obj) {
$spot_name = $ams_db->usf_obj->usf_name();
} else {
$spot_name = $ams_db->ams_pk();
}
$text = $ams_db->am_obj->name() . ':' . $spot_name;
} elsif (/^sptr_fk$/) {
$table = 'Spotter';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $sptr_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $sptr_db) {
$error = 1;
goto ERROR;
}
$text = $sptr_db->model_description();
} elsif (/^(image_anal_sw_fk|spotter_sw_fk|scan_sw_fk)$/) {
$table = 'Software';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $sw_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $sw_db) {
$error = 1;
goto ERROR;
}
$text = $sw_db->name();
} elsif (/^tl_fk$/) {
$table = 'TreatmentLevel';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $tl_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $tl_db) {
$error = 1;
goto ERROR;
}
$text = $tl_db->name();
} elsif (/^(primary_es_fk|es_fk)$/) {
$table = 'ExperimentSet';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $es_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $es_db) {
$error = 1;
goto ERROR;
}
$text = $es_db->name();
} elsif (/^db_name$/) {
$table = 'ExternalDatabase';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $db) {
$error = 1;
goto ERROR;
}
$text = $db->name();
} elsif (/^(ratio_am_fk|am_fk)$/) {
$table = 'ArrayMeasurement';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $am_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $am_db) {
$error = 1;
goto ERROR;
}
$text = $am_db->name();
} elsif (/^smp_fk$/) {
$table = 'Sample';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $smp_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $smp_db) {
$error = 1;
goto ERROR;
}
# what do we do about Sample???
$text = $smp_db->strain();
} elsif (/^prt_fk$/) {
$table = 'Protocol';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $prt_db = $class->new(dbh=>$dbh,id=>$pkey);
unless (defined $prt_db) {
$error = 1;
goto ERROR;
}
$text = $prt_db->title();
} elsif (/gs_fk/) {
$table = 'GroupSec';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $group = Bio::Genex::GroupSec->new(dbh=>$dbh,id=>$pkey);
unless (defined $group) {
$error = 1;
goto ERROR;
}
$text = $group->group_name();
} elsif (/cit_fk/) {
$table = 'Citation';
my $class = 'Bio::Genex::' . $table;
eval "require $class";
die "$@" if $@;
my $citation = Bio::Genex::Citation->new(dbh=>$dbh,id=>$pkey);
unless (defined $citation) {
$error = 1;
goto ERROR;
}
$text = $citation->title();
}
#
# This is the format line. If you want to change the output,
# change it here
#
$PARAMS .= "&AccessionNumber=$pkey";
$args{$_} = $cgi->a({-href=>"$CGIURL/$SCRIPT?table=${table}$PARAMS"},
$text . "($pkey)");
}
</%init>
--- NEW FILE: ro_rw_group.mason.in ---
<h2>Read Group and Write Group</h2>
<p>Choose the <b>read group</b> and the <b>write group</b>
that will be given to the <% $type %> entry you create.</p>
<table bgcolor="#D8E4F7" border="1" cols="2">
<thead bgcolor="#FFD78F">
<tr>
<th>Read Group</th>
<th>Write Group</th>
</tr>
</thead>
<tbody>
<tr>
<td>
<& query-drop-down.mason, name=>"read_group",
array_ref=>\@read_groups &>
</td>
<td>
<& query-drop-down.mason, name=>"write_group",
array_ref=>\@write_groups &>
</td>
</tr>
</tbody>
</table>
<%args>
$type
$ro_default => ''
$rw_default => ''
</%args>
<%once>
use lib qw(%%GENEX_EXTRALIBS%%);
use Bio::Genex::GroupSec;
</%once>
<%init>;
my @read_groups;
my @write_groups;
my @gs_dbs = Bio::Genex::GroupSec->get_all_objects($dbh);
foreach my $gs_db (@gs_dbs) {
push(@read_groups,[$gs_db->name,$gs_db->name]);
}
@write_groups = @read_groups;
# now put the default values first on the lists if we've been
# given default values
if ($ro_default) {
@read_groups = sort {$a->[0] eq $ro_default ? -1 : 1 } @read_groups;
}
if ($rw_default) {
@write_groups = sort {$a->[0] eq $rw_default ? -1 : 1 } @write_groups;
}
</%init>
|
|
From: <jas...@us...> - 2003-04-26 21:25:50
|
Update of /cvsroot/genex/genex-server/Mason/workspace In directory sc8-pr-cvs1:/tmp/cvs-serv15060/Mason/workspace Removed Files: check-cookie.html check-login.html fetch-table.html index.html list-tables.html parameter-insert.html parameter-value-insert.html procedure-insert.html protocol-application-insert.html protocol-insert.html protocol-step-insert.html Log Message: moved to .in files --- check-cookie.html DELETED --- --- check-login.html DELETED --- --- fetch-table.html DELETED --- --- index.html DELETED --- --- list-tables.html DELETED --- --- parameter-insert.html DELETED --- --- parameter-value-insert.html DELETED --- --- procedure-insert.html DELETED --- --- protocol-application-insert.html DELETED --- --- protocol-insert.html DELETED --- --- protocol-step-insert.html DELETED --- |
|
From: <jas...@us...> - 2003-04-26 21:23:44
|
Update of /cvsroot/genex/genex-server/Mason/workspace
In directory sc8-pr-cvs1:/tmp/cvs-serv14329/Mason/workspace
Modified Files:
autohandler.in noauth-autohandler.in
Log Message:
* Mason/workspace/add_user_to_group.html.in (Repository):
* Mason/workspace/array-design.html.in (Repository):
* Mason/workspace/authenticate.html.in (Repository):
* Mason/workspace/autohandler.in (Repository):
* Mason/workspace/bioassay.html.in (Repository):
* Mason/workspace/contact-insert.html.in (Repository):
* Mason/workspace/data-loader.html.in (Repository):
* Mason/workspace/data-sources.html.in (Repository):
* Mason/workspace/experiments.html.in (Repository):
* Mason/workspace/experimentset-create.html.in (Repository):
* Mason/workspace/generate_group.html.in (Repository):
* Mason/workspace/generate_user.html.in:
* Mason/workspace/group-create.html.in:
* Mason/workspace/group-maint.html.in:
* Mason/workspace/kill-cookie.html.in:
* Mason/workspace/noauth-autohandler.in:
* Mason/workspace/query.html.in:
* Mason/workspace/sample-insert.html.in:
* Mason/workspace/user-insert.html.in:
* Mason/workspace/workspace.html.in:
added GENEX_EXTRALIBS
Index: autohandler.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/autohandler.in,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** autohandler.in 21 Apr 2003 00:29:37 -0000 1.5
--- autohandler.in 26 Apr 2003 21:23:40 -0000 1.6
***************
*** 23,26 ****
--- 23,28 ----
</html>
<%once>
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex::Config;
use Bio::Genex::HTMLUtils;
***************
*** 34,37 ****
--- 36,42 ----
my $src = "$Bio::Genex::Config->{GENEX_GRAPHICS_URL}/genex-banner-new.gif";
my $index = "$Bio::Genex::Config->{GENEX_MASON_URL}/index.html";
+
+ print STDERR "Found index=<$index>,src=<$src>\n";
+ print STDERR "Using Bio::Genex::Config=<$INC{'Bio/Genex/Config.pm'}>\n";
# we localize $dbh and $session so that they last only the duration of the request
Index: noauth-autohandler.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/noauth-autohandler.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** noauth-autohandler.in 21 Apr 2003 00:29:37 -0000 1.2
--- noauth-autohandler.in 26 Apr 2003 21:23:40 -0000 1.3
***************
*** 24,27 ****
--- 24,29 ----
</%flags>
<%once>
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex::Config;
</%once>
|
Update of /cvsroot/genex/genex-server/Mason/workspace
In directory sc8-pr-cvs1:/tmp/cvs-serv5870/Mason/workspace
Modified Files:
add_user_to_group.html.in array-design.html.in
authenticate.html.in bioassay.html.in contact-insert.html.in
data-loader.html.in data-sources.html.in experiments.html.in
experimentset-create.html.in generate_group.html.in
generate_user.html.in group-create.html.in group-maint.html.in
kill-cookie.html.in query.html.in sample-insert.html.in
user-insert.html.in workspace.html.in
Log Message:
* Mason/workspace/add_user_to_group.html.in (Repository):
* Mason/workspace/array-design.html.in (Repository):
* Mason/workspace/authenticate.html.in (Repository):
* Mason/workspace/autohandler.in (Repository):
* Mason/workspace/bioassay.html.in (Repository):
* Mason/workspace/contact-insert.html.in (Repository):
* Mason/workspace/data-loader.html.in (Repository):
* Mason/workspace/data-sources.html.in (Repository):
* Mason/workspace/experiments.html.in (Repository):
* Mason/workspace/experimentset-create.html.in (Repository):
* Mason/workspace/generate_group.html.in (Repository):
* Mason/workspace/generate_user.html.in:
* Mason/workspace/group-create.html.in:
* Mason/workspace/group-maint.html.in:
* Mason/workspace/kill-cookie.html.in:
* Mason/workspace/noauth-autohandler.in:
* Mason/workspace/query.html.in:
* Mason/workspace/sample-insert.html.in:
* Mason/workspace/user-insert.html.in:
* Mason/workspace/workspace.html.in:
added GENEX_EXTRALIBS
Index: add_user_to_group.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/add_user_to_group.html.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** add_user_to_group.html.in 21 Apr 2003 00:29:36 -0000 1.2
--- add_user_to_group.html.in 26 Apr 2003 21:04:25 -0000 1.3
***************
*** 103,107 ****
use Getopt::Long;
use File::Basename;
! %%GENEX_EXTRALIBS%%
use Bio::Genex;
use Bio::Genex::Connect;
--- 103,109 ----
use Getopt::Long;
use File::Basename;
!
! use lib qw(%%GENEX_EXTRALIBS%%);
!
use Bio::Genex;
use Bio::Genex::Connect;
Index: array-design.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/array-design.html.in,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** array-design.html.in 22 Apr 2003 01:29:29 -0000 1.5
--- array-design.html.in 26 Apr 2003 21:04:26 -0000 1.6
***************
*** 94,97 ****
--- 94,99 ----
use Apache::Constants qw(:response);
use IO::File;
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex;
use Bio::Genex::Connect;
Index: authenticate.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/authenticate.html.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** authenticate.html.in 21 Apr 2003 00:29:37 -0000 1.3
--- authenticate.html.in 26 Apr 2003 21:04:27 -0000 1.4
***************
*** 15,22 ****
<h2>Successfully logged in</h2>
! <p>Use the following
<a href="<% $caller %>">
link
! </a> to go to your original destination.</p>
% } else {
--- 15,24 ----
<h2>Successfully logged in</h2>
! <p>You will automatically be taken to the page you requested. If
! for some reason your browser doesn't take you there in a few
! seconds, you can use the following
<a href="<% $caller %>">
link
! </a> instead.</p>
% } else {
***************
*** 61,65 ****
<%attr>
name=>'GeneX DB Authentication Page'
- server=>"$Bio::Genex::Config->{HTML_ROOT_URL}"
</%attr>
<%args>
--- 63,66 ----
***************
*** 67,76 ****
$login=>''
$password=>''
! $dbname=>"$Bio::Genex::Config->{DB_NAME}"
</%args>
<%once>;
use Bio::Genex::HTMLUtils;
use Bio::Genex::Connect;
use Bio::Genex::Config;
</%once>
<%init>;
--- 68,80 ----
$login=>''
$password=>''
! $dbname=>"%%DB_NAME%%"
</%args>
<%once>;
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex::HTMLUtils;
use Bio::Genex::Connect;
use Bio::Genex::Config;
+ # use Apache::DB ();
</%once>
<%init>;
***************
*** 88,91 ****
--- 92,98 ----
$error = 'Invalid login/password combination. Try again.';
} else {
+ # Apache::DB->init;
+ # Apache::DB->handler;
+
# first get the session
$session =
Index: bioassay.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/bioassay.html.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** bioassay.html.in 21 Apr 2003 00:29:37 -0000 1.3
--- bioassay.html.in 26 Apr 2003 21:04:27 -0000 1.4
***************
*** 40,43 ****
--- 40,45 ----
</%attr>
<%once>
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex;
use Bio::Genex::Connect;
Index: contact-insert.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/contact-insert.html.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** contact-insert.html.in 21 Apr 2003 00:29:37 -0000 1.2
--- contact-insert.html.in 26 Apr 2003 21:04:27 -0000 1.3
***************
*** 296,300 ****
use Getopt::Long;
use File::Basename;
! %%GENEX_EXTRALIBS%%
use Bio::Genex;
use Bio::Genex::Connect;
--- 296,301 ----
use Getopt::Long;
use File::Basename;
! use lib qw(%%GENEX_EXTRALIBS%%);
!
use Bio::Genex;
use Bio::Genex::Connect;
Index: data-loader.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/data-loader.html.in,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** data-loader.html.in 22 Apr 2003 01:29:29 -0000 1.9
--- data-loader.html.in 26 Apr 2003 21:04:27 -0000 1.10
***************
*** 161,164 ****
--- 161,166 ----
use Apache::Constants qw(:response);
use IO::File;
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex;
use Bio::Genex::Connect;
Index: data-sources.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/data-sources.html.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** data-sources.html.in 21 Apr 2003 00:29:37 -0000 1.3
--- data-sources.html.in 26 Apr 2003 21:04:27 -0000 1.4
***************
*** 58,61 ****
--- 58,63 ----
</%attr>
<%once>
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex;
use Bio::Genex::Connect;
Index: experiments.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/experiments.html.in,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** experiments.html.in 21 Apr 2003 00:29:37 -0000 1.4
--- experiments.html.in 26 Apr 2003 21:04:28 -0000 1.5
***************
*** 60,63 ****
--- 60,65 ----
</%attr>
<%once>;
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex;
use Bio::Genex::Config;
Index: experimentset-create.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/experimentset-create.html.in,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** experimentset-create.html.in 21 Apr 2003 00:29:37 -0000 1.4
--- experimentset-create.html.in 26 Apr 2003 21:04:29 -0000 1.5
***************
*** 177,180 ****
--- 177,182 ----
</%attr>
<%once>
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex;
use Bio::Genex::Connect;
Index: generate_group.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/generate_group.html.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** generate_group.html.in 21 Apr 2003 00:29:37 -0000 1.2
--- generate_group.html.in 26 Apr 2003 21:04:29 -0000 1.3
***************
*** 148,152 ****
use Getopt::Long;
use File::Basename;
! %%GENEX_EXTRALIBS%%
use Bio::Genex;
use Bio::Genex::Connect;
--- 148,153 ----
use Getopt::Long;
use File::Basename;
! use lib qw(%%GENEX_EXTRALIBS%%);
!
use Bio::Genex;
use Bio::Genex::Connect;
Index: generate_user.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/generate_user.html.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** generate_user.html.in 21 Apr 2003 00:29:37 -0000 1.2
--- generate_user.html.in 26 Apr 2003 21:04:30 -0000 1.3
***************
*** 264,268 ****
use Getopt::Long;
use File::Basename;
! %%GENEX_EXTRALIBS%%
use Bio::Genex;
use Bio::Genex::Connect;
--- 264,269 ----
use Getopt::Long;
use File::Basename;
! use lib qw(%%GENEX_EXTRALIBS%%);
!
use Bio::Genex;
use Bio::Genex::Connect;
Index: group-create.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/group-create.html.in,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** group-create.html.in 22 Apr 2003 01:29:29 -0000 1.4
--- group-create.html.in 26 Apr 2003 21:04:32 -0000 1.5
***************
*** 112,115 ****
--- 112,117 ----
</%attr>
<%once>
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex;
use Bio::Genex::Connect;
Index: group-maint.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/group-maint.html.in,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** group-maint.html.in 21 Apr 2003 00:29:37 -0000 1.5
--- group-maint.html.in 26 Apr 2003 21:04:32 -0000 1.6
***************
*** 91,94 ****
--- 91,96 ----
</%args>
<%once>;
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex;
use Bio::Genex::Config;
Index: kill-cookie.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/kill-cookie.html.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** kill-cookie.html.in 21 Apr 2003 00:29:37 -0000 1.2
--- kill-cookie.html.in 26 Apr 2003 21:04:32 -0000 1.3
***************
*** 8,11 ****
--- 8,13 ----
<%once>;
use CGI::Cookie;
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex::Config;
</%once>
Index: query.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/query.html.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** query.html.in 21 Apr 2003 00:29:37 -0000 1.3
--- query.html.in 26 Apr 2003 21:04:32 -0000 1.4
***************
*** 81,84 ****
--- 81,86 ----
use XML::Xerces;
use Carp;
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex::HTMLUtils;
use Bio::Genex::Connect;
Index: sample-insert.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/sample-insert.html.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sample-insert.html.in 22 Apr 2003 01:29:29 -0000 1.2
--- sample-insert.html.in 26 Apr 2003 21:04:32 -0000 1.3
***************
*** 395,399 ****
use Getopt::Long;
use File::Basename;
! %%GENEX_EXTRALIBS%%
use Bio::Genex;
use Bio::Genex::Config;
--- 395,400 ----
use Getopt::Long;
use File::Basename;
! use lib qw(%%GENEX_EXTRALIBS%%);
!
use Bio::Genex;
use Bio::Genex::Config;
Index: user-insert.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/user-insert.html.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** user-insert.html.in 21 Apr 2003 00:29:37 -0000 1.2
--- user-insert.html.in 26 Apr 2003 21:04:32 -0000 1.3
***************
*** 271,275 ****
use Getopt::Long;
use File::Basename;
! %%GENEX_EXTRALIBS%%
use Bio::Genex;
use Bio::Genex::Connect;
--- 271,276 ----
use Getopt::Long;
use File::Basename;
! use lib qw(%%GENEX_EXTRALIBS%%);
!
use Bio::Genex;
use Bio::Genex::Connect;
Index: workspace.html.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/workspace.html.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** workspace.html.in 21 Apr 2003 00:29:37 -0000 1.3
--- workspace.html.in 26 Apr 2003 21:04:32 -0000 1.4
***************
*** 52,55 ****
--- 52,57 ----
</%args>
<%once>;
+ use lib qw(%%GENEX_EXTRALIBS%%);
+
use Bio::Genex;
use Bio::Genex::Config;
|
|
From: <jas...@us...> - 2003-04-26 20:54:03
|
Update of /cvsroot/genex/genex-server/apache In directory sc8-pr-cvs1:/tmp/cvs-serv2741/apache Modified Files: .cvsignore Log Message: usual Index: .cvsignore =================================================================== RCS file: /cvsroot/genex/genex-server/apache/.cvsignore,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** .cvsignore 11 Oct 2002 02:35:19 -0000 1.1 --- .cvsignore 26 Apr 2003 20:53:58 -0000 1.2 *************** *** 1 **** --- 1,2 ---- + genex-2-handler.pl genex-2.conf |
|
From: <jas...@us...> - 2003-04-26 20:53:18
|
Update of /cvsroot/genex/genex-server/apache
In directory sc8-pr-cvs1:/tmp/cvs-serv2493/apache
Modified Files:
genex-2.conf.in
Log Message:
* apache/genex-2.conf.in (Message):
seperated out the MasonCompRoot and MasonDataDir from the
substitution
added the handler.pl
removed the importing of modules, hopefully having it in the
handler script will work better for Apache
Index: genex-2.conf.in
===================================================================
RCS file: /cvsroot/genex/genex-server/apache/genex-2.conf.in,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** genex-2.conf.in 20 Apr 2003 01:51:20 -0000 1.5
--- genex-2.conf.in 26 Apr 2003 20:53:15 -0000 1.6
***************
*** 1,18 ****
LoadModule perl_module /usr/lib/apache/1.3/mod_perl.so
! %%MASON_COMP_DATA_ROOT%%
!
! PerlModule HTML::Mason::ApacheHandler
! PerlModule Bio::Genex::Connect
! PerlModule XML::Xerces
! PerlSetVar MasonAllowGlobals $dbh
! PerlAddVar MasonAllowGlobals $session
! PerlAddVar MasonAllowGlobals $DEBUG
! <Directory %%GENEX_MASON_DIR%%>
# PerlFixupHandler +Apache::DB
SetHandler perl-script
! PerlHandler HTML::Mason::ApacheHandler
</Directory>
--- 1,13 ----
LoadModule perl_module /usr/lib/apache/1.3/mod_perl.so
! PerlAddVar MasonCompRoot %%GENEX_MASON_COMP_ROOT%%
! PerlSetVar MasonDataDir %%GENEX_MASON_DATA_DIR%%
! PerlRequire %%LOCAL_ETC%%/genex-2-handler.pl
! <Directory %%GENEX_MASON_COMP_ROOT%%>
# PerlFixupHandler +Apache::DB
SetHandler perl-script
! PerlHandler %%GENEX_MASON_HANDLER%%
</Directory>
|
|
From: <jas...@us...> - 2003-04-26 20:51:39
|
Update of /cvsroot/genex/genex-server/apache
In directory sc8-pr-cvs1:/tmp/cvs-serv1827/apache
Added Files:
genex-2-handler.pl.in
Log Message:
* apache/genex-2-handler.pl.in:
A first shot at using a handler.pl file to run Mason
--- NEW FILE: genex-2-handler.pl.in ---
%%START_PERL%%
#
# A basic, functional Mason handler.pl for Genex
#
package %%GENEX_MASON_HANDLER%%;
# Bring in Mason with Apache support.
use HTML::Mason::ApacheHandler;
use strict;
# List of modules that you want to use within components.
{
package HTML::Mason::Commands;
use XML::Xerces;
}
# Create ApacheHandler object at startup.
my $ah =
HTML::Mason::ApacheHandler->new
( comp_root => '%%GENEX_MASON_COMP_ROOT%%',
data_dir => '%%GENEX_MASON_DATA_DIR%%',
allow_globals => [qw($dbh $session $DEBUG)],
);
sub handler {
my ($r) = @_;
my $status = $ah->handle_request($r);
return $status;
}
1;
|
|
From: <jas...@us...> - 2003-04-25 17:05:24
|
Update of /cvsroot/genex/genex-server/Genex
In directory sc8-pr-cvs1:/tmp/cvs-serv10290
Modified Files:
MANIFEST Makefile.PL
Log Message:
reorg
Index: MANIFEST
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/MANIFEST,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** MANIFEST 16 Oct 2002 16:46:50 -0000 1.35
--- MANIFEST 25 Apr 2003 17:05:17 -0000 1.36
***************
*** 1,118 ****
- Audit/Audit.pm
- Audit/Makefile.PL
- Channel/Channel.pm
- Channel/Makefile.PL
- ContactType/ContactType.pm
- FeatureExtractionSoftware/FeatureExtractionSoftware.pm
- FeatureExtractionSoftware/Makefile.PL
- G2G/G2G.pm
- Identifiable/Identifiable.pm
- Identifiable/Makefile.PL
- MeasuredBioAssay/Makefile.PL
- MeasuredBioAssay/MeasuredBioAssay.pm
- Provider/Makefile.PL
- Provider/Provider.pm
- QuantitationLink/Makefile.PL
- QuantitationLink/QuantitationLink.pm
- QuantitationType/Makefile.PL
- QuantitationType/QuantitationType.pm
- QuantitationTypeDimension/Makefile.PL
- QuantitationTypeDimension/QuantitationTypeDimension.pm
- Reporter/Makefile.PL
- Reporter/Reporter.pm
- SampleLink/Makefile.PL
- SampleLink/SampleLink.pm
- TableAdmin/Makefile.PL
- TableAdmin/TableAdmin.pm
- UserSec/Makefile.PL
- UserSec/UserSec.pm
-
- AM_FactorValues/AM_FactorValues.pm
- AM_FactorValues/Makefile.PL
- AM_Spots/AM_Spots.pm
- AM_Spots/Makefile.PL
- AM_SuspectSpots/AM_SuspectSpots.pm
- AM_SuspectSpots/Makefile.PL
- ArrayDesign/ArrayDesign.pm
- ArrayDesign/Makefile.PL
- Array/Array.pm
- Array/Makefile.PL
- BlastHits/BlastHits.pm
- BlastHits/Makefile.PL
Changes
! Chromosome/Chromosome.pm
! Chromosome/Makefile.PL
! Chromosome/parse_xml
! Citation/Citation.pm
! Citation/Makefile.PL
! Contact/Contact.pm
! Contact/Makefile.PL
! ContactType/Contact.pm
! ContactType/Makefile.PL
! ControlledVocab/ControlledVocab.pm
! ControlledVocab/Makefile.PL
! Connect/Connect.pm.in
! Connect/Makefile.PL
! ExperimentFactors/ExperimentFactors.pm
! ExperimentFactors/Makefile.PL
! ExperimentSet/ExperimentSet.pm
! ExperimentSet/Makefile.PL
! ExternalDatabase/ExternalDatabase.pm
! ExternalDatabase/Makefile.PL
! Feature/Feature.pm
! Feature/Makefile.PL
! Fkey/Fkey.pm
! Fkey/Makefile.PL
Genex.pm.in
! GenexAdmin/GenexAdmin.pm
! GenexAdmin/Makefile.PL
! GroupLink/GroupLink.pm
! GroupLink/Makefile.PL
! GroupSec/GroupSec.pm
! GroupSec/Makefile.PL
! HTMLUtils/HTMLUtils.pm.in
! HTMLUtils/Makefile.PL
! HotSpots/HotSpots.pm
! HotSpots/Makefile.PL
LICENSE
! MANIFEST
Makefile.PL
- PhysicalBioAssay/PhysicalBioAssay.pm
- PhysicalBioAssay/Makefile.PL
- Protocol/Makefile.PL
- Protocol/Protocol.pm
README
- Sample/Makefile.PL
- Sample/Sample.pm
- SampleProtocols/Makefile.PL
- SampleProtocols/SampleProtocols.pm
- Scanner/Makefile.PL
- Scanner/Scanner.pm
- Software/Makefile.PL
- Software/Software.pm
- Species/Makefile.PL
- Species/Species.pm
- Spotter/Makefile.PL
- Spotter/Spotter.pm
- TL_FactorValues/Makefile.PL
- TL_FactorValues/TL_FactorValues.pm
- TODO
- TODO.schema
- TreatmentLevel/Makefile.PL
- TreatmentLevel/TreatmentLevel.pm
- Treatment_AMs/Makefile.PL
- Treatment_AMs/Treatment_AMs.pm
- SF_ExternalDBLink/Makefile.PL
- SF_ExternalDBLink/SF_ExternalDBLink.pm
- SequenceFeature/Makefile.PL
- SequenceFeature/SequenceFeature.pm
- XMLUtils/Makefile.PL
- XMLUtils/XMLUtils.pm.in
-
html/AM_FactorValues.html
html/AM_Spots.html
html/AM_SuspectSpots.html
- html/ArrayDesign.html
- html/Array.html
html/BlastHits.html
html/Chromosome.html
--- 1,70 ----
Changes
! Genex.pm
Genex.pm.in
! Genex/AM_FactorValues.pm
! Genex/AM_Spots.pm
! Genex/AM_SuspectSpots.pm
! Genex/Array.pm
! Genex/ArrayDesign.pm
! Genex/Audit.pm
! Genex/BlastHits.pm
! Genex/Channel.pm
! Genex/Chromosome.pm
! Genex/Citation.pm
! Genex/Config.pm
! Genex/Connect.pm
! Genex/Connect.pm.in
! Genex/Contact.pm
! Genex/ContactType.pm
! Genex/ControlledVocab.pm
! Genex/ExperimentFactors.pm
! Genex/ExperimentSet.pm
! Genex/ExternalDatabase.pm
! Genex/Feature.pm
! Genex/FeatureExtractionSoftware.pm
! Genex/Fkey.pm
! Genex/G2G.pm
! Genex/GenexAdmin.pm
! Genex/GroupLink.pm
! Genex/GroupSec.pm
! Genex/HTMLUtils.pm.in
! Genex/Hardware.pm
! Genex/HotSpots.pm
! Genex/Identifiable.pm
! Genex/MeasuredBioAssay.pm
! Genex/Parameter.pm
! Genex/ParameterValue.pm
! Genex/Parameterizable.pm
! Genex/PhysicalBioAssay.pm
! Genex/Procedure.pm
! Genex/Protocol.pm
! Genex/ProtocolApplication.pm
! Genex/ProtocolApplicationLink.pm
! Genex/ProtocolStep.pm
! Genex/ProtocolStepApplication.pm
! Genex/QuantitationLink.pm
! Genex/QuantitationType.pm
! Genex/QuantitationTypeDimension.pm
! Genex/Reporter.pm
! Genex/SF_ExternalDBLink.pm
! Genex/Sample.pm
! Genex/SampleLink.pm
! Genex/Scanner.pm
! Genex/Securable.pm
! Genex/Software.pm
! Genex/Species.pm
! Genex/Spotter.pm
! Genex/TL_FactorValues.pm
! Genex/TreatmentLevel.pm
! Genex/Treatment_AMs.pm
! Genex/UserSec.pm
! Genex/XMLUtils.pm.in
LICENSE
! MANIFEST This list of files
Makefile.PL
README
html/AM_FactorValues.html
html/AM_Spots.html
html/AM_SuspectSpots.html
html/BlastHits.html
html/Chromosome.html
***************
*** 120,136 ****
html/CitationLink.html
html/Contact.html
- html/ContactType.html
html/ControlledVocab.html
- html/Connect.html
html/ExperimentFactors.html
html/ExperimentSet.html
html/ExternalDatabase.html
- html/Feature.html
html/Genex.html
html/Genex/AM_FactorValues.html
html/Genex/AM_Spots.html
html/Genex/AM_SuspectSpots.html
- html/Genex/ArrayDesign.html
- html/Genex/ArrayMeasurement.html
html/Genex/BlastHits.html
html/Genex/Chromosome.html
--- 72,83 ----
***************
*** 138,149 ****
html/Genex/CitationLink.html
html/Genex/Contact.html
- html/Genex/ContactType.html
html/Genex/ControlledVocab.html
- html/Genex/Connect.html
html/Genex/DBUtils.html
html/Genex/ExperimentFactors.html
html/Genex/ExperimentSet.html
html/Genex/ExternalDatabase.html
- html/Genex/Feature.html
html/Genex/Genex.html
html/Genex/GroupLink.html
--- 85,93 ----
***************
*** 151,155 ****
html/Genex/HTMLUtils.html
html/Genex/HotSpots.html
- html/Genex/PhysicalBioAssay.html
html/Genex/Protocol.html
html/Genex/Sample.html
--- 95,98 ----
***************
*** 163,179 ****
html/Genex/Treatment_AMs.html
html/Genex/UserSec.html
- html/Genex/SF_ExternalDBLink.html
- html/Genex/SequenceFeature.html
html/Genex/XMLUtils.html
html/Genex/control-bundle.pl.html
html/Genex/curation-tool-login.pl.html
html/Genex/index.html
html/Genex/tutorial.html
- html/Genex/db2xml.pl.html
html/GroupLink.html
html/GroupSec.html
html/HTMLUtils.html
html/HotSpots.html
- html/PhysicalBioAssay.html
html/Protocol.html
html/Sample.html
--- 106,119 ----
html/Genex/Treatment_AMs.html
html/Genex/UserSec.html
html/Genex/XMLUtils.html
html/Genex/control-bundle.pl.html
html/Genex/curation-tool-login.pl.html
+ html/Genex/db2xml.pl.html
html/Genex/index.html
html/Genex/tutorial.html
html/GroupLink.html
html/GroupSec.html
html/HTMLUtils.html
html/HotSpots.html
html/Protocol.html
html/Sample.html
***************
*** 187,205 ****
html/Treatment_AMs.html
html/UserSec.html
- html/SF_ExternalDBLink.html
- html/SequenceFeature.html
html/XMLUtils.html
html/control-bundle.pl.html
html/curation-tool-login.pl.html
html/exp_set_tab.gif
html/index.html
html/tutorial.html
- html/db2xml.pl.html
- pod/Feature.pod
pod/AM_FactorValues.pod
pod/AM_Spots.pod
pod/AM_SuspectSpots.pod
- pod/ArrayDesign.pod
- pod/ArrayMeasurement.pod
pod/BlastHits.pod
pod/Chromosome.pod
--- 127,140 ----
html/Treatment_AMs.html
html/UserSec.html
html/XMLUtils.html
html/control-bundle.pl.html
html/curation-tool-login.pl.html
+ html/db2xml.pl.html
html/exp_set_tab.gif
html/index.html
html/tutorial.html
pod/AM_FactorValues.pod
pod/AM_Spots.pod
pod/AM_SuspectSpots.pod
pod/BlastHits.pod
pod/Chromosome.pod
***************
*** 207,213 ****
pod/CitationLink.pod
pod/Contact.pod
- pod/ContactType.pod
pod/ControlledVocab.pod
- pod/Connect.pod
pod/EternalDatabase.pod
pod/ExperimentFactors.pod
--- 142,146 ----
***************
*** 231,300 ****
pod/Treatment_AMs.pod
pod/UserSec.pod
- pod/SF_ExternalDBLink.pod
- pod/SequenceFeature.pod
pod/XMLUtils.pod
pod/control-bundle.pl.pod
pod/curation-tool-login.pl.pod
pod/db2xml.pl.pod
-
- samples/redirect-test.pl.in
- samples/session-login.pl.in
- samples/test.pl.in
- samples/test2.pl.in
samples/Makefile.PL.in
- samples/control-bundle.pl.in
- samples/curation-tool-login.pl.in
samples/draw-map.pl
- samples/list_tables.pl.in
samples/fetch_table.pl.in
! samples/pass-auth-login.pl.in
! samples/pass-invalid-login.pl.in
! samples/pass-login.pl.in
! samples/pass-mod-invalid.pl.in
! samples/pass-mod.pl.in
samples/status.pl.in
!
scripts/array-design-insert.pl.in
scripts/array-measurement-insert.pl.in
scripts/create-db-accounts.pl.in
scripts/create_genex_class.pl.in
scripts/create_genex_db.pl.in
scripts/dbxml2tab.pl.in
scripts/gendb.pl.in
scripts/generate_group.pl.in
scripts/generate_user.pl.in
scripts/genex1-to-genex2.pl.in
scripts/group-insert.pl.in
scripts/layout.pl.in
scripts/mbad-insert.pl.in
scripts/qtdim-insert.pl.in
scripts/reporter-insert.pl.in
scripts/substitute.pl.in
scripts/user-insert.pl.in
scripts/xml2form.pl.in
scripts/xml2sql.pl.in
- scripts/create_genex_class.pl
- scripts/cv-insert.pl.in
- scripts/cv-check.pl.in
- scripts/db2xml.pl.in
- scripts/make_classes.pl
- scripts/externaldb-insert.pl.in
- scripts/configure.pl.in
- scripts/priveleges.pl.in
- scripts/security-insert.pl.in
- scripts/contact-insert.pl.in
- scripts/contact-insert-genex.pl.in
- scripts/scanner-insert.pl.in
- scripts/protocol-insert.pl.in
- scripts/spotter-insert.pl.in
- scripts/tab2xml.pl.in
- scripts/software-insert.pl.in
- scripts/species-insert.pl.in
-
t/AM_FactorValues.t
- t/AM_Spots.t
- t/AM_SuspectSpots.t
- t/ArrayDesign.t
t/Array.t
t/Audit.t
t/BlastHits.t
--- 164,251 ----
pod/Treatment_AMs.pod
pod/UserSec.pod
pod/XMLUtils.pod
pod/control-bundle.pl.pod
pod/curation-tool-login.pl.pod
pod/db2xml.pl.pod
samples/Makefile.PL.in
samples/draw-map.pl
samples/fetch_table.pl.in
! samples/list_tables.pl.in
samples/status.pl.in
! scripts/array-design-insert.pl
scripts/array-design-insert.pl.in
+ scripts/array-measurement-insert.pl
scripts/array-measurement-insert.pl.in
+ scripts/configure.pl.in
+ scripts/contact-insert-genex.pl.in
+ scripts/contact-insert.pl.in
+ scripts/create-db-accounts.pl
scripts/create-db-accounts.pl.in
+ scripts/create_genex_class.pl
scripts/create_genex_class.pl.in
+ scripts/create_genex_db.pl
scripts/create_genex_db.pl.in
+ scripts/cv-check.pl.in
+ scripts/cv-insert.pl.in
+ scripts/db2xml.pl.in
+ scripts/dbxml2tab.pl
scripts/dbxml2tab.pl.in
+ scripts/experimentset-create.pl
+ scripts/experimentset-create.pl.in
+ scripts/externaldb-insert.pl.in
+ scripts/fix-als.pl
+ scripts/gendb.pl
scripts/gendb.pl.in
+ scripts/generate_group.pl
scripts/generate_group.pl.in
+ scripts/generate_user.pl
scripts/generate_user.pl.in
+ scripts/genex1-to-genex2.pl
scripts/genex1-to-genex2.pl.in
+ scripts/group-insert.pl
scripts/group-insert.pl.in
+ scripts/layout.pl
scripts/layout.pl.in
+ scripts/make_classes.pl
+ scripts/mbad-insert.pl
scripts/mbad-insert.pl.in
+ scripts/parameter-insert.pl
+ scripts/parameter-insert.pl.in
+ scripts/parameter-value-insert.pl
+ scripts/parameter-value-insert.pl.in
+ scripts/parse-als.pl
+ scripts/priveleges.pl.in
+ scripts/procedure-insert.pl
+ scripts/procedure-insert.pl.in
+ scripts/protocol-application-insert.pl
+ scripts/protocol-application-insert.pl.in
+ scripts/protocol-insert.pl.in
+ scripts/protocol-step-application-insert.pl
+ scripts/protocol-step-application-insert.pl.in
+ scripts/protocol-step-insert.pl
+ scripts/protocol-step-insert.pl.in
+ scripts/qtdim-insert.pl
scripts/qtdim-insert.pl.in
+ scripts/reporter-insert.pl
scripts/reporter-insert.pl.in
+ scripts/sample-insert.pl
+ scripts/sample-insert.pl.in
+ scripts/scanner-insert.pl.in
+ scripts/security-insert.pl.in
+ scripts/software-insert.pl.in
+ scripts/species-insert.pl.in
+ scripts/spotter-insert.pl.in
+ scripts/substitute.pl
scripts/substitute.pl.in
+ scripts/tab2xml.pl.in
+ scripts/user-insert.pl
scripts/user-insert.pl.in
+ scripts/xml2form.pl
scripts/xml2form.pl.in
+ scripts/xml2sql.pl
scripts/xml2sql.pl.in
t/AM_FactorValues.t
t/Array.t
+ t/ArrayDesign.t
t/Audit.t
t/BlastHits.t
***************
*** 303,312 ****
t/Chromosome.t
t/Citation.t
t/Contact-pre.xml
- t/ContactType-pre.xml
t/Contact.t
t/ContactType.t
t/ControlledVocab.t
- t/Connect.t
t/ExperimentFactors.t
t/ExperimentSet.t
--- 254,263 ----
t/Chromosome.t
t/Citation.t
+ t/Connect.t
t/Contact-pre.xml
t/Contact.t
+ t/ContactType-pre.xml
t/ContactType.t
t/ControlledVocab.t
t/ExperimentFactors.t
t/ExperimentSet.t
***************
*** 316,329 ****
t/Genex.t
t/GenexAdmin.t
- t/GroupLink.t
- t/GroupSec.t
t/GroupLink-pre.xml
t/GroupSec-pre.xml
t/HTMLUtils.t
t/HotSpots.t
t/Identifiable.t
t/MeasuredBioAssay.t
t/PhysicalBioAssay.t
t/Protocol.t
t/Provider.t
t/QuantitationLink.t
--- 267,289 ----
t/Genex.t
t/GenexAdmin.t
t/GroupLink-pre.xml
+ t/GroupLink.t
t/GroupSec-pre.xml
+ t/GroupSec.t
t/HTMLUtils.t
+ t/Hardware.t
t/HotSpots.t
t/Identifiable.t
t/MeasuredBioAssay.t
+ t/Parameter.t
+ t/ParameterValue.t
+ t/Parameterizable.t
t/PhysicalBioAssay.t
+ t/Procedure.t
t/Protocol.t
+ t/ProtocolApplication.t
+ t/ProtocolApplicationLink.t
+ t/ProtocolStep.t
+ t/ProtocolStepApplication.t
t/Provider.t
t/QuantitationLink.t
***************
*** 331,347 ****
t/QuantitationTypeDimension.t
t/Reporter.t
! t/SampleLink.t
t/Sample.t
t/SampleProtocols.t
t/Scanner.t
! t/SF_ExternalDBLink.t
! t/Software.t
t/Software-pre.xml
t/Species-pre.xml
t/Species.t
- t/Spotter.t
t/Spotter-pre.xml
! t/TableAdmin-pre.xml
! t/TableAdmin.t
t/TL_FactorValues.t
t/TestDB.pm
--- 291,306 ----
t/QuantitationTypeDimension.t
t/Reporter.t
! t/SF_ExternalDBLink.t
t/Sample.t
+ t/SampleLink.t
t/SampleProtocols.t
t/Scanner.t
! t/Securable.t
t/Software-pre.xml
+ t/Software.t
t/Species-pre.xml
t/Species.t
t/Spotter-pre.xml
! t/Spotter.t
t/TL_FactorValues.t
t/TestDB.pm
***************
*** 351,358 ****
t/UserSec.t
t/XMLUtils.t
-
-
- ### *** emacs file mode definition ***
- ### Local Variables:
- ### mode:text
- ### End:
--- 310,311 ----
Index: Makefile.PL
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/Makefile.PL,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Makefile.PL 9 Nov 2002 00:31:32 -0000 1.23
--- Makefile.PL 25 Apr 2003 17:05:18 -0000 1.24
***************
*** 1,5 ****
! use ExtUtils::MakeMaker qw(WriteMakefile);
! use Getopt::Long;
!
# First we check if this is a local install
print STDERR "Loading Config.pm\n";
--- 1,3 ----
! use ExtUtils::MakeMaker;
# First we check if this is a local install
print STDERR "Loading Config.pm\n";
***************
*** 57,62 ****
}
- $EXAMPLE_DIR = $Bio::Genex::Config->{'GENEX_EXAMPLE_DIR'};
-
###############################################################################
#
--- 55,58 ----
***************
*** 64,109 ****
#
#
! #
! # Tell perl where to install the cgi scripts and Genex.pm
! #
! my $PM = {'Genex.pm' => '$(INST_LIBDIR)/Genex.pm',
! };
! WriteMakefile(
! INSTALLSITELIB => $GENEX_INSTALLSITE,
! INSTALLMAN1DIR => $GENEX_MAN1,
! INSTALLMAN3DIR => $GENEX_MAN3,
! PM => $PM,
! NAME => 'Bio::Genex',
! VERSION_FROM => 'Genex.pm.in',
! PREREQ_PM => { 'Class::ObjectTemplate::DB' => '0.22',
! }
);
sub libscan {
my($self, $path) = @_;
! if ($path =~ /(PerlPP\.pm|Config\.pm|Install\.pm|,v|~)$/) { return undef; }
$path;
}
!
! sub MY::install {
! package MY;
! my ($self) = shift;
! my $text = $self->SUPER::install(@_);
!
! # we want to replace the following line:
! # 'install :: all pure_install doc_install'
! # with this:
! # 'install :: all pure_install doc_install install_samples''
! #
! $text =~ s/(install\s+::\s+.*)\n/\1 install_samples\n/;
!
! # we append on the 'install_samples' target
! $text .= '
! install_samples ::
! cd samples ; make install_samples
! ';
! return $text;
}
-
--- 60,108 ----
#
#
+ my @args;
! if (exists $Bio::Genex::Config->{'PRIVATE_PERL_API'}) {
! $GENEX_MAN1 = $Bio::Genex::Config->{'GENEX_MAN1'};
! $GENEX_MAN3 = $Bio::Genex::Config->{'GENEX_MAN3'};
! $GENEX_INSTALLSITE = $Bio::Genex::Config->{'GENEX_INSTALLSITE'};
! print STDERR "MAN3_DIR undefined!!!!\n"
! unless defined $GENEX_MAN3;
! print STDERR "MAN1_DIR undefined!!!!\n"
! unless defined $GENEX_MAN1;
! print STDERR "INSTALLSITELIB undefined!!!!\n"
! unless defined $GENEX_INSTALLSITE;
!
! print STDOUT <<"EOM";
! Using the following installation parameters from Genex::Config:
!
! 'INSTALLSITELIB' => $GENEX_INSTALLSITE,
! 'INSTALLMAN1DIR' => $GENEX_MAN1,
! 'INSTALLMAN3DIR' => $GENEX_MAN3,
! EOM
!
! @args = (
! INSTALLSITELIB => $GENEX_INSTALLSITE,
! INSTALLMAN1DIR => $GENEX_MAN1,
! INSTALLMAN3DIR => $GENEX_MAN3,
! );
! }
!
! WriteMakefile(@args,
! NAME => 'Bio::Genex',
! VERSION => '2.7.20030425',
! SKIP => [qw(manifypods)],
! PREREQ_PM => { 'Class::ObjectTemplate::DB' => '0.22'}
);
sub libscan {
my($self, $path) = @_;
! if ($path =~ /\.in$/) { return undef; }
$path;
}
! sub MY::top_targets {
! package MY; # so that "SUPER" works right
! my $inherited = shift->SUPER::top_targets(@_);
! $inherited =~ s/manifypods//g;
! $inherited;
}
|
|
From: <jas...@us...> - 2003-04-25 16:59:54
|
Update of /cvsroot/genex/genex-server/Genex/XMLUtils In directory sc8-pr-cvs1:/tmp/cvs-serv7517/XMLUtils Removed Files: XMLUtils.pm.in Log Message: reorg --- XMLUtils.pm.in DELETED --- |
|
From: <jas...@us...> - 2003-04-25 16:59:51
|
Update of /cvsroot/genex/genex-server/Genex/HTMLUtils In directory sc8-pr-cvs1:/tmp/cvs-serv7517/HTMLUtils Removed Files: HTMLUtils.pm.in Log Message: reorg --- HTMLUtils.pm.in DELETED --- |
|
From: <jas...@us...> - 2003-04-25 16:59:50
|
Update of /cvsroot/genex/genex-server/Genex/Connect In directory sc8-pr-cvs1:/tmp/cvs-serv7517/Connect Removed Files: Connect.pm.in Log Message: reorg --- Connect.pm.in DELETED --- |
|
From: <jas...@us...> - 2003-04-25 16:40:13
|
Update of /cvsroot/genex/genex-server/Genex/Genex In directory sc8-pr-cvs1:/tmp/cvs-serv29776/Genex Log Message: Directory /cvsroot/genex/genex-server/Genex/Genex added to the repository |
|
From: <jas...@us...> - 2003-04-25 16:39:24
|
Update of /cvsroot/genex/genex-server/Genex/Fkey In directory sc8-pr-cvs1:/tmp/cvs-serv27937/Fkey Removed Files: .cvsignore Fkey.pm Makefile.PL Log Message: directory reorg --- .cvsignore DELETED --- --- Fkey.pm DELETED --- --- Makefile.PL DELETED --- |
|
From: <jas...@us...> - 2003-04-25 16:39:23
|
Update of /cvsroot/genex/genex-server/Genex/G2G In directory sc8-pr-cvs1:/tmp/cvs-serv27937/G2G Removed Files: G2G.pm Log Message: directory reorg --- G2G.pm DELETED --- |
|
From: <jas...@us...> - 2003-04-25 16:39:22
|
Update of /cvsroot/genex/genex-server/Genex/Securable In directory sc8-pr-cvs1:/tmp/cvs-serv27937/Securable Removed Files: Makefile.PL Securable.pm Log Message: directory reorg --- Makefile.PL DELETED --- --- Securable.pm DELETED --- |
|
From: <jas...@us...> - 2003-04-25 16:39:21
|
Update of /cvsroot/genex/genex-server/Genex/ProtocolStepApplication In directory sc8-pr-cvs1:/tmp/cvs-serv27937/ProtocolStepApplication Removed Files: Makefile.PL ProtocolStepApplication.pm Log Message: directory reorg --- Makefile.PL DELETED --- --- ProtocolStepApplication.pm DELETED --- |