AcePerl
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
acebrowser/conf/moviedb.pm view on Meta::CPAN
# to default.
sub URL_MAPPER {
my ($display,$name,$class) = @_;
return;
}
# ========= $BANNER =========
# Banner HTML
# This will appear at the top of each page.
$BANNER = <<END;
<center><span class=banner><font size=+3>Movie Database (Test)</font></span></center><p>
END
# ========= PRIVACY STATEMENT
$PRINT_PRIVACY_STATEMENT = 1;
# ========= FEEDBACK STATEMENT
@FEEDBACK_RECIPIENTS = (
[ " $ENV{SERVER_ADMIN}", 'general complaints and suggestions', 1 ]
);
acelib/bump.c view on Meta::CPAN
* Copyright (C) J Thierry-Mieg and R Durbin, 1992
*-------------------------------------------------------------------
* This file is part of the ACEDB genome database package, written by
* Richard Durbin (MRC LMB, UK) rd@mrc-lmb.cam.ac.uk, and
* Jean Thierry-Mieg (CRBM du CNRS, France) mieg@kaa.cnrs-mop.fr
*
* Description:
** Bumper (Cambridge traditional folklore)
* Exported functions:
** bumpCreate, bumpDestroy
** bumpItem, bumpText, bumpTest, bumpAdd
** the BUMP structure is defined in wh/bump.h
* HISTORY:
* Last edited: Dec 21 13:58 1998 (fw)
* Created: Thu Aug 20 10:34:55 1992 (mieg)
*-------------------------------------------------------------------
*/
/* $Id: bump.c,v 1.1 2002/11/14 20:00:06 lstein Exp $ */
#include "regular.h"
acelib/wh/bump.h view on Meta::CPAN
/* forward declaration of opaque type */
typedef struct BumpStruct *BUMP;
BUMP bumpCreate (int ncol, int minSpace) ;
BUMP bumpReCreate (BUMP bump, int ncol, int minSpace) ;
void bumpDestroy (BUMP bump) ;
float bumpSetSloppy( BUMP bump, float sloppy) ;
/* Bumper works by resetting x,y
bumpItem inserts and fills the bumper
bumpTest restes x,y, but does not fill bumper
this allows to reconsider the wisdom of bumping
bumpRegister (called after bumpTest) fills
Test+Register == Add
bumpText returns number of letters that
can be bumped without *py moving more than 3*dy
*/
#define bumpItem(_b,_w,_h,_px,_py) bumpAdd(_b,_w,_h,_px,_py,TRUE)
#define bumpTest(_b,_w,_h,_px,_py) bumpAdd(_b,_w,_h,_px,_py,FALSE)
BOOL bumpAdd (BUMP bump, int wid, float height, int *px, float *py, BOOL doIt);
void bumpRegister (BUMP bump, int wid, float height, int *px, float *py) ;
int bumpText (BUMP bump, char *text, int *px, float *py, float dy, BOOL vertical) ;
int bumpMax(BUMP bump) ;
void asciiBumpItem (BUMP bump, int wid, float height,
int *px, float *py) ;
/* works by resetting x, y */
docs/ACE_SERVER_TRAPS.HOWTO view on Meta::CPAN
I altered my .bash_profile with the following lines:
ACEDB=[pathname to database]
DBDIR=[pathname to database]/database/
PATH=$PATH:[pathname to ace software directory]/bin
export ACEDB
export DBDIR
(PATH was already exported)
Testing the Solution
Use the echo command to make sure the environment variables are in
place. We put our "contacts" database under /home/httpd because that
directory is accessible to the web server. This is a requirement of
AceBrowser, which we want to use as the primary interface.
A test of the $ACEDB environment variable looks like this:
echo $ACEDB (return)
It returns this:
docs/ACE_SERVER_TRAPS.HOWTO.html view on Meta::CPAN
<p><h5>Solution</h5></p>
<p>I altered my .bash_profile with the following lines:</p>
<p>ACEDB=[pathname to database]<br>
DBDIR=[pathname to database]/database/<br>
PATH=$PATH:[pathname to ace software directory]/bin<br>
export ACEDB<br>
export DBDIR<br>
(PATH was already exported)</p>
<p><h5>Testing the Solution</h5></p>
<p>Use the <em>echo</em> command to make sure the environment variables are in place. We put our "contacts" database under /home/httpd because that directory is accessible to the web server. This is a requirement of AceBrowser, which we want to us...
<p>A test of the $ACEDB environment variable looks like this:<br>
<em>echo $ACEDB (return)</em></p>
<p>It returns this:<br>
<em>/home/httpd/database/contacts/</em></p>
<p><h5>Consequences of the Solution</h5></p>
<p>The <strong>NOTES</strong> file distributed with this version of ACEDB advises you to move the <em>acedb</em> and <em>textace</em> scripts to /usr/local/bin, and using them to start the program. With your environment variables in place, you can s...
<p><h4>Permissions</h4></p>
print "ok 1\n";
######################### End of black magic.
sub test {
local($^W) = 0;
my($num, $true,$msg) = @_;
print($true ? "ok $num\n" : "not ok $num $msg\n");
}
# Test code:
my $ptr = Ace::SocketServer->connect(HOST,PORT,50);
test(2,$ptr,"connection failed");
die "Couldn't establish connection to database. Aborting tests.\n" unless $ptr;
test(3,$ptr->status() == STATUS_WAITING,"did not get wait status");
test(4,$ptr->query("Find Paper"),"query() returned undef");
test(5,$ptr->status() == STATUS_PENDING,"did not get pending status");
test(6,$ptr->read,"read failed");
test(7,$ptr->status() == STATUS_WAITING,"did not get wait status");
test(8,$ptr->query("List"),"query(list) returned undef");
my $data;
#!/opt/bin/perl -w
# Tests of object-level fetches and following
######################### We start with some black magic to print on failure.
use lib '../blib/lib','../blib/arch';
use constant HOST => $ENV{ACEDB_HOST} || 'aceserver.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 2007;
BEGIN {$| = 1; print "1..36\n"; }
END {print "not ok 1\n" unless $loaded;}
use Ace;
use constant TEST_CACHE=>0;
#!/usr/local/bin/perl -w
# Tests of object-level fetches and following
######################### We start with some black magic to print on failure.
use lib '../blib/lib','../blib/arch';
use constant HOST => $ENV{ACEDB_HOST} || 'aceserver.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 2007;
BEGIN {$| = 1; print "1..17\n"; }
END {print "not ok 1\n" unless $loaded;}
use Ace;
$loaded = 1;
print "ok 1\n";
######################### End of black magic.
sub test {
local($^W) = 0;
my($num, $true,$msg) = @_;
print($true ? "ok $num\n" : "not ok $num $msg\n");
}
# Test code:
my ($db,$obj);
test(2,$db = Ace->connect(-host=>HOST,-port=>PORT,-timeout=>50),
"couldn't establish connection");
die "Couldn't establish connection to database. Aborting tests.\n" unless $db;
test(3,$me = Ace::Object->new('Author','Dent AD',$db),"couldn't create new object");
test(4,$me->add('Also_known_as','Arthur D. Dent'));
test(5,$me->add('Laboratory','FF'));
test(6,$me->add('Address.Mail','Heart of Gold'));
test(7,$me->add('Address.Mail','Western End'));
test(8,$me->add('Address.Mail','Unfashionable Outer Rim of the Milky Way'));
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.833 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )