1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
|
##############################################################################
#
# Embperl - Copyright (c) 1997-2008 Gerald Richter / ecos gmbh www.ecos.de
# Embperl - Copyright (c) 2008-2014 Gerald Richter
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
# For use with Apache httpd and mod_perl, see also Apache copyright.
#
# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
# $Id: db.schema 1578075 2014-03-16 14:01:14Z richter $
#
##############################################################################
%DBDefault =
(
'!Grant' =>
[
'select',
'insert',
'update',
'delete',
],
)
;
# ----------------------------------------------------------------------
@DBSchema = (
# ----------------------------------------------------------------------
{
'!Table' => 'item',
'!Fields' =>
[
'id' => 'counter',
'url' => 'tinytext',
'category_id' => 'integer',
'state' => 'integer',
'creationtime' => 'datetime',
'modtime' => 'datetime',
'user_id' => 'integer',
'checkcount' => 'integer',
],
'!PrimKey' => 'id',
'!Init' =>
[
{ id => 1, category_id => 1, state => 1, creationtime => '2001-07-28', modtime => '2001-07-28' },
{ id => 2, category_id => 1, state => 1, creationtime => '2001-11-20', modtime => '2001-11-20' },
{ id => 3, category_id => 1, state => 1, creationtime => '2001-11-27', modtime => '2001-11-27' },
{ id => 4, category_id => 1, state => 1, creationtime => '2001-12-05', modtime => '2001-12-05' },
{ id => 5, category_id => 1, state => 1, creationtime => '2002-03-13', modtime => '2002-03-13' },
{ id => 6, category_id => 1, state => 1, creationtime => '2002-03-21', modtime => '2002-03-21' },
{ id => 7, category_id => 1, state => 1, creationtime => '2002-05-28', modtime => '2002-05-28' },
{ id => 8, category_id => 1, state => 1, creationtime => '2002-06-25', modtime => '2002-06-25' },
{ id => 9, category_id => 2, state => 1, creationtime => '2002-06-25', modtime => '2002-06-25' },
]
},
# ----------------------------------------------------------------------
{
'!Table' => 'itemtext',
'!Fields' =>
[
'id' => 'counter',
'item_id' => 'integer',
'language_id' => 'varchar(2)',
'heading' => 'tinytext',
'keywords' => 'text',
'description' => 'text',
'url' => 'tinytext',
],
'!PrimKey' => 'id',
'!Init' =>
[
{ id => 1, item_id => 1, heading => '28.7.2001', language_id => 'de', description => 'David Lloyd wird einen Vortrag ber Embperl auf der L<"AUUG Annual Conference"|http://www.auug.org.au/winter/auug2001/> in Sydney, Australien, am 26, 27 and 28 September 2001 halten.' },
{ id => 2, item_id => 1, heading => '7/28/2001', language_id => 'en', description => 'David Lloyd is makeing a talk at the L<"AUUG Annual Conference"|http://www.auug.org.au/winter/auug2001/>, which will be held in Sydney, Australia, on 26, 27 and 28 September 2001 ' },
{ id => 3, item_id => 2, heading => '20.11.2001', language_id => 'de', description => 'Embperl 2.0b4 freigegeben. Neu ist die Untersttzung fr XML und XSLT, sowie das Zusammensetzen des Ergebnisses eines Requests durch mehrere frei kombinierbare Provider.' },
{ id => 4, item_id => 2, heading => '11/20/2001', language_id => 'en', description => 'Embperl 2.0b4 released. This release introduces XML and XSLT support into Embperl, along with a new way of creating a request from a series of providers, which pluged together in a hierachial tree structure.' },
{ id => 5, item_id => 3, heading => '27.11.2001', language_id => 'de', description => 'Embperl 2.0b5 freigegeben' },
{ id => 6, item_id => 3, heading => '11/27/2001', language_id => 'en', description => 'Embperl 2.0b5 released' },
{ id => 7, item_id => 4, heading => '12/5/2001', language_id => 'en', description => 'Embperl 1.3.4 released.' },
{ id => 8, item_id => 4, heading => '5.12.2001', language_id => 'de', description => 'Embperl 1.3.4 freigegeben' },
{ id => 9, item_id => 5, heading => '3/13/2002', language_id => 'en', description => 'Embperl 2.0b6 released: Enhancements of the Embperl object modell, form validation, internationalization speed improvments. Embperl 2.0 is now feature complete, mainly bugfixing and documetation will be done before final 2.0 release. Test it out!' },
{ id =>10, item_id => 5, heading => '13.3.2002', language_id => 'de', description => 'Embperl 2.0b6 freigegeben: Verbesserungen des Embperl-Objekt-Modells, Formular Validierung, Internationalisierung, Performance Verbesserungen. Embperl 2 ist jetzt komplett und vor dem endgltigen Release werden hauptschlich noch Fehler beseitigt.' },
{ id =>11, item_id => 6, heading => '3/21/2002', language_id => 'en', description => 'Embperl 2.0b7 released ' },
{ id =>12, item_id => 6, heading => '21.3.2002', language_id => 'de', description => 'Embperl 2.0b7 freigegeben' },
{ id =>13, item_id => 7, heading => '28.5.2002', language_id => 'de', description => 'Auch auf der diesjhrigen L<"O\'Reilly Open-Source Convention"|http://conferences.oreillynet.com/os2002/> in San Diego wird es wieder ein Vortrag ber Embperl geben.' },
{ id =>14, item_id => 7, heading => '5/28/2002', language_id => 'en', description => 'Again this year there will be a talk about Embperl at the L<"O\'Reilly Open-Source Convention"|http://conferences.oreillynet.com/os2002/> in San Diego in July.' },
{ id =>15, item_id => 8, heading => '6/25/2002', language_id => 'en', description => 'Embperl 2.0b8 released. Contains many bugfixes, runs with mod_perl 2.' },
{ id =>16, item_id => 8, heading => '25.6.2002', language_id => 'de', description => 'Embperl 2.0b8 freigegeben. Enthlt viel Fehlerkorrekturen und luft mit mod_perl 2.' },
{ id => 17, item_id => 9, heading => 'http://bilder.ecos.de - Gerald Richter [richter@ecos.de]', language_id => 'de', description => 'Dies ist die Site fr die Embperl ursprnglich geschrieben wurde. Es ist eine einfache Bilddatenbank die touristische Bilder aus Rheinland-Pflaz enthlt. ' },
{ id => 18, item_id => 9, heading => 'http://bilder.ecos.de - Gerald Richter [richter@ecos.de]', language_id => 'en', description => 'This was the site Embperl was originally written for. It\'s a simple picture database which contains pictures and tourist information for Rheinland-Pfalz/Germany. It\'s intended as press information, to reduce the need for sending photographs by real mail. You can view and search the pictures via the Internet or via a direct dial-in. Download is only available for valid users and via direct dial-in. It is also possible to maintain the database via the web and insert new pictures and descriptions and change or delete old ones.' },
]
},
# ----------------------------------------------------------------------
{
'!Table' => 'language',
'!Fields' =>
[
'id' => 'varchar(2) not null',
'name' => 'tinytext',
],
'!PrimKey' => 'id',
'!Init' =>
[
{ id => 'de', name => 'Deutsch'} ,
{ id => 'en', name => 'English'} ,
],
},
# ----------------------------------------------------------------------
{
'!Table' => 'category',
'!Fields' =>
[
'id' => 'counter',
'state' => 'integer',
'table_type' => 'tinytext',
'view_level' => 'integer',
'edit_level' => 'integer',
],
'!PrimKey' => 'id',
'!Default' =>
{
'view_level' => 0,
'edit_level' => 1,
},
'!Init' =>
[
{ id => 1, state => 1, 'table_type' => 'item', edit_level => 2 } ,
{ id => 2, state => 1, 'table_type' => 'item', edit_level => 1 } ,
{ id => 3, state => 1, 'table_type' => 'item', edit_level => 1 } ,
{ id => 4, state => 1, 'table_type' => 'item', edit_level => 1 } ,
{ id => 5, state => 1, 'table_type' => 'item', edit_level => 1 } ,
{ id => 6, state => 1, 'table_type' => 'item', edit_level => 1 } ,
],
},
# ----------------------------------------------------------------------
{
'!Table' => 'categoryfields',
'!Fields' =>
[
'category_id' => 'integer not null',
'language_id' => 'varchar(3) not null',
'fieldname' => 'varchar(32) not null',
'txt' => 'text',
'remark' => 'text',
'typeinfo' => 'tinytext',
'position' => 'integer',
'nolang' => 'integer',
'view_level' => 'integer',
'edit_level' => 'integer',
'validate' => 'text',
],
'!PrimKey' => 'category_id,language_id,fieldname',
'!Default' =>
{
'view_level' => 0,
'edit_level' => 1,
},
'!Init' =>
[
# News
{ category_id => 1, language_id => 'de', fieldname => 'description', typeinfo => 'textarea', txt => 'Neuigkeit', position => 1 } ,
{ category_id => 1, language_id => 'en', fieldname => 'description', typeinfo => 'textarea', txt => 'News', position => 1 } ,
# Emperl Websites
{ category_id => 2, language_id => 'de', fieldname => 'heading', txt => 'berschrift', position => 1 } ,
{ category_id => 2, language_id => 'de', fieldname => 'description', typeinfo => 'textarea', txt => 'Beschreibung', typeinfo => 'textarea', position => 3 } ,
{ category_id => 2, language_id => 'de', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
{ category_id => 2, language_id => 'en', fieldname => 'heading', txt => 'Heading', position => 1 } ,
{ category_id => 2, language_id => 'en', fieldname => 'description', typeinfo => 'textarea', txt => 'Description', typeinfo => 'textarea', position => 3 } ,
{ category_id => 2, language_id => 'en', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
# Books about Embperl
{ category_id => 3, language_id => 'de', fieldname => 'heading', txt => 'Titel', position => 1 } ,
{ category_id => 3, language_id => 'de', fieldname => 'description', typeinfo => 'textarea', txt => 'Beschreibung', typeinfo => 'textarea', position => 3 } ,
{ category_id => 3, language_id => 'de', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
{ category_id => 3, language_id => 'en', fieldname => 'heading', txt => 'Title', position => 1 } ,
{ category_id => 3, language_id => 'en', fieldname => 'description', typeinfo => 'textarea', txt => 'Description', typeinfo => 'textarea', position => 3 } ,
{ category_id => 3, language_id => 'en', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
# Embperl articles
{ category_id => 4, language_id => 'de', fieldname => 'heading', txt => 'Titel', position => 1 } ,
{ category_id => 4, language_id => 'de', fieldname => 'description', typeinfo => 'textarea', txt => 'Beschreibung', typeinfo => 'textarea', position => 3 } ,
{ category_id => 4, language_id => 'de', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
{ category_id => 4, language_id => 'en', fieldname => 'heading', txt => 'Title', position => 1 } ,
{ category_id => 4, language_id => 'en', fieldname => 'description', typeinfo => 'textarea', txt => 'Description', typeinfo => 'textarea', position => 3 } ,
{ category_id => 4, language_id => 'en', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
# Syntax highlighting
{ category_id => 5, language_id => 'de', fieldname => 'heading', txt => 'Editor', position => 1 } ,
{ category_id => 5, language_id => 'de', fieldname => 'description', typeinfo => 'textarea', txt => 'Beschreibung', typeinfo => 'textarea', position => 3 } ,
{ category_id => 5, language_id => 'de', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
{ category_id => 5, language_id => 'en', fieldname => 'heading', txt => 'Editor', position => 1 } ,
{ category_id => 5, language_id => 'en', fieldname => 'description', typeinfo => 'textarea', txt => 'Description', typeinfo => 'textarea', position => 3 } ,
{ category_id => 5, language_id => 'en', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
# Modules and examples
{ category_id => 6, language_id => 'de', fieldname => 'heading', txt => 'Name', position => 1 } ,
{ category_id => 6, language_id => 'de', fieldname => 'description', typeinfo => 'textarea', txt => 'Beschreibung', typeinfo => 'textarea', position => 3 } ,
{ category_id => 6, language_id => 'de', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
{ category_id => 6, language_id => 'en', fieldname => 'heading', txt => 'Name', position => 1 } ,
{ category_id => 6, language_id => 'en', fieldname => 'description', typeinfo => 'textarea', txt => 'Description', typeinfo => 'textarea', position => 3 } ,
{ category_id => 6, language_id => 'en', fieldname => 'url', txt => 'URL', typeinfo => 'url', position => 2 } ,
],
},
# ----------------------------------------------------------------------
{
'!Table' => 'categorytext',
'!Fields' =>
[
'id' => 'counter',
'category_id' => 'integer',
'language_id' => 'varchar(2)',
'category' => 'tinytext',
'add_info' => 'text',
'headline' => 'tinytext',
'sendtext' => 'tinytext',
'logintext' => 'text',
],
'!PrimKey' => 'id',
'!Init' =>
[
{ id => 1, category_id => 1, language_id => 'de', 'category' => 'Neuigkeiten' } ,
{ id => 2, category_id => 1, language_id => 'en', 'category' => 'News' } ,
{ id => 3, category_id => 2, language_id => 'de', 'category' => 'Websites die Embperl nutzen',
add_info => 'Bitte geben Sie eine Kurzbeschreibung der Site, sowie Informationen zu deren Realisierung ein.' } ,
{ id => 4, category_id => 2, language_id => 'en', 'category' => 'Sites using Embperl',
add_info => 'Please enter a short description of the Site and some information how it has been setup.' } ,
{ id => 5, category_id => 3, language_id => 'de', 'category' => 'Bcher die Embperl behandeln' } ,
{ id => 6, category_id => 3, language_id => 'en', 'category' => 'Books that talk about Embperl' } ,
{ id => 7, category_id => 4, language_id => 'de', 'category' => 'Artikel ber Embperl (on- und offline)' } ,
{ id => 8, category_id => 4, language_id => 'en', 'category' => 'Article about Embperl (on- and offline)' } ,
{ id => 9, category_id => 5, language_id => 'de', 'category' => 'Syntaxhervorhebungen fr Texteditoren' } ,
{ id => 10, category_id => 5, language_id => 'en', 'category' => 'Syntaxhighlighting for texteditors' } ,
{ id => 11, category_id => 6, language_id => 'de', 'category' => 'Module und Beispiele fr Embperl' } ,
{ id => 12, category_id => 6, language_id => 'en', 'category' => 'Modules and examples for Embperl' } ,
],
},
# ----------------------------------------------------------------------
# ----------------------------------------------------------------------
{
'!Table' => 'user',
'!Fields' =>
[
'id' => 'counter',
'user_name' => 'tinytext',
'email' => 'tinytext',
'password' => 'tinytext',
'admin' => 'bit',
],
'!PrimKey' => 'id',
},
) ;
1 ;
|
