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

Annotation of /Sprout/ERDBServer.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : olson 1.1
2 :     use strict;
3 :    
4 :     use Data::Dumper;
5 :     use FreezeThaw qw(freeze);
6 :     use ERDB;
7 :     use CGI;
8 :    
9 :     my $cgi = new CGI;
10 :    
11 :     my $db = $cgi->param('db');
12 :     my $op = $cgi->param('op');
13 :     my $path = $cgi->param('path');
14 :     my $filter = $cgi->param('filter');
15 :     my @params = $cgi->param('params');
16 :     my @fields = $cgi->param('fields');
17 :     my $count = $cgi->param('count');
18 :    
19 :     if ($op eq 'Get')
20 :     {
21 :     print $cgi->header;
22 :     do_get($db, $path, $filter, \@params, \@fields, $count);
23 :     }
24 :    
25 :     sub do_get
26 :     {
27 :     my($db, $path, $filter, $params, $fields, $count) = @_;
28 :    
29 :     my $erdb = ERDB::GetDatabase($db);
30 :    
31 :     if ($count > 0)
32 :     {
33 :     $filter .= " LIMIT $count";
34 :     }
35 :    
36 :     my $res = $erdb->Get($path, $filter, $params);
37 :     # print Dumper($res);
38 :    
39 :     while (my $rec = $res->Fetch())
40 :     {
41 :     my %out;
42 :     for my $field (@fields)
43 :     {
44 :     $out{$field} = [$rec->Value($field)];
45 :     }
46 :     #print Dumper(\%out);
47 :     # my $flat = Dumper(\%out);
48 :     my $flat = freeze(\%out);
49 :     my $l = length($flat);
50 :     print "$l\n$flat";
51 :     }
52 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3