- print "doing field $field with /$expr/\n";
-
-#a();
- b();
-}
-
-sub b
-{
- my @spots;
- my @dx;
- my $ref;
- my $count;
-
- @spots = spot->search($field, $expr);
-
- foreach $ref (@spots) {
- @dx = @$ref;
- my $t = ztime($dx[2]);
- my $d = cldate($dx[2]);
- print "$dx[0] $dx[1] $d $t $dx[4] <$dx[3]>\n";
- ++$count;
- }
- print "$count records found\n";
-}
-
-sub loada
-{
- while (<IN>) {
- chomp;
- my @dx = split /\^/;
- next if $time - $dx[2] > (84600 * 60);
- unshift @spots, [ @dx ];
- ++$count;
- }
-}
-
-sub a
-{
- foreach $ref (@spots) {
- if ($$ref[$field] =~ /$expr/i) {
- my @dx = @$ref;
- my $t = ztime($dx[2]);
- my $d = cldate($dx[2]);
- print "$dx[0] $dx[1] $d $t $dx[4] <$dx[3]>\n";
- }
- }
+ my @out = map {"$_\n"} &$dxproc({priv=>0,call=>'GDX'}, $expr);
+ shift @out; # remove return code
+ print @out;