130 |
|
|
131 |
} |
} |
132 |
|
|
133 |
my $cols = "'" . join("','", @cols) . "'"; |
my $cols = "'" . join("', '", @cols) . "'"; |
134 |
|
|
135 |
foreach my $t (qw/UPDATE INSERT DELETE/) { |
foreach my $t (qw/UPDATE INSERT DELETE/) { |
136 |
|
|
153 |
} |
} |
154 |
|
|
155 |
$dbh->commit; |
$dbh->commit; |
156 |
|
|
157 |
|
my $col_names = join(', ', @cols); |
158 |
|
my $col_def = join(', ', map { "$_ text" } @cols); |
159 |
|
|
160 |
|
print "example SQL search query: |
161 |
|
|
162 |
|
|
163 |
|
SELECT $col_names |
164 |
|
FROM pgest( |
165 |
|
-- node, login, passwd, depth |
166 |
|
'$c->{node_url}', '$c->{user}', '$c->{passwd}', 0, |
167 |
|
-- full text search |
168 |
|
'foo bar', |
169 |
|
-- attribute filter, order by, limit, offset |
170 |
|
null, null, null, null, |
171 |
|
-- return columns |
172 |
|
array[$cols] |
173 |
|
) as ($col_def); |
174 |
|
|
175 |
|
"; |