[Bio] / Sprout / ERDBServer.cgi Repository:
ViewVC logotype

View of /Sprout/ERDBServer.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (annotate)
Tue Feb 3 17:30:10 2009 UTC (10 years, 7 months ago) by olson
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, rast_rel_2009_05_18, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, rast_rel_2009_07_09, rast_rel_2010_0827, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, rast_rel_2009_03_26, mgrast_dev_10262011, HEAD
Commit these before I delete them again.

use strict;

use Data::Dumper;
use FreezeThaw qw(freeze);
use ERDB;
use CGI;

my $cgi = new CGI;

my $db = $cgi->param('db');
my $op = $cgi->param('op');
my $path = $cgi->param('path');
my $filter = $cgi->param('filter');
my @params = $cgi->param('params');
my @fields = $cgi->param('fields');
my $count = $cgi->param('count');

if ($op eq 'Get')
{
    print $cgi->header;
    do_get($db, $path, $filter, \@params, \@fields, $count);
}

sub do_get
{
    my($db, $path, $filter, $params, $fields, $count) = @_;

    my $erdb = ERDB::GetDatabase($db);

    if ($count > 0)
    {
	$filter .= " LIMIT $count";
    }

    my $res = $erdb->Get($path, $filter, $params);
#    print Dumper($res);

    while (my $rec = $res->Fetch())
    {
	my %out;
	for my $field (@fields)
	{
	    $out{$field} = [$rec->Value($field)];
	}
	#print Dumper(\%out);
	# my $flat = Dumper(\%out);
	my $flat = freeze(\%out);
	my $l = length($flat);
	print "$l\n$flat";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3