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 --- |