| … | |
… | |
| 117 | new CFClient::Database |
117 | new CFClient::Database |
| 118 | -Env => $DB_ENV, |
118 | -Env => $DB_ENV, |
| 119 | -Filename => $table, |
119 | -Filename => $table, |
| 120 | # -Filename => "database", |
120 | # -Filename => "database", |
| 121 | # -Subname => $table, |
121 | # -Subname => $table, |
|
|
122 | -Property => DB_CHKSUM, |
| 122 | -Flags => DB_CREATE | DB_UPGRADE, |
123 | -Flags => DB_CREATE | DB_UPGRADE, |
| 123 | or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"; |
124 | or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"; |
| 124 | } |
125 | } |
| 125 | |
126 | |
| 126 | package CFClient::Database; |
127 | package CFClient::Database; |
| … | |
… | |
| 201 | #} |
202 | #} |
| 202 | |
203 | |
| 203 | sub new_from_layout { |
204 | sub new_from_layout { |
| 204 | my ($class, $layout, %arg) = @_; |
205 | my ($class, $layout, %arg) = @_; |
| 205 | |
206 | |
| 206 | my ($w, $h, $data) = $layout->render; |
207 | my ($w, $h, $data, $format, $internalformat) = $layout->render; |
| 207 | |
208 | |
| 208 | $class->new ( |
209 | $class->new ( |
| 209 | w => $w, |
210 | w => $w, |
| 210 | h => $h, |
211 | h => $h, |
| 211 | data => $data, |
212 | data => $data, |
| 212 | format => GL_ALPHA, |
213 | format => $format, |
| 213 | internalformat => GL_ALPHA, |
214 | internalformat => $format, |
| 214 | type => GL_UNSIGNED_BYTE, |
215 | type => GL_UNSIGNED_BYTE, |
| 215 | %arg, |
216 | %arg, |
| 216 | ) |
217 | ) |
| 217 | } |
218 | } |
| 218 | |
219 | |
