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