1 |
dpavlin |
1 |
use strict; |
2 |
|
|
use warnings; |
3 |
|
|
|
4 |
|
|
package SQLSession::Model::Database; |
5 |
|
|
use Jifty::DBI::Schema; |
6 |
|
|
|
7 |
|
|
use SQLSession::Record schema { |
8 |
|
|
column name => |
9 |
|
|
type is 'text', |
10 |
|
|
label is 'Name of database', |
11 |
|
|
mandatory, |
12 |
|
|
distinct; |
13 |
|
|
|
14 |
dpavlin |
2 |
column dsn => |
15 |
dpavlin |
1 |
type is 'text', |
16 |
|
|
label is 'DBI connection string', |
17 |
|
|
hints is 'for PostgreSQL you might try something like: DBI:Pg:dbname=test', |
18 |
|
|
mandatory; |
19 |
|
|
|
20 |
|
|
column login => |
21 |
|
|
type is 'text', |
22 |
|
|
label is 'database user'; |
23 |
|
|
|
24 |
|
|
column passwd => |
25 |
|
|
type is 'text', |
26 |
|
|
label is 'database password'; |
27 |
|
|
}; |
28 |
|
|
|
29 |
dpavlin |
102 |
sub since { '0.0.1' } |
30 |
|
|
|
31 |
dpavlin |
1 |
# Your model-specific methods go here. |
32 |
|
|
|
33 |
dpavlin |
29 |
sub current_user_can { |
34 |
|
|
return 1; |
35 |
|
|
} |
36 |
|
|
|
37 |
dpavlin |
1 |
1; |
38 |
|
|
|