You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2002/06/24 16:19:30 UTC
cvs commit: embperl/eg/webutil db.schema setupdb.pl
richter 2002/06/24 07:19:30
Modified: eg/webutil Tag: Embperl2c db.schema setupdb.pl
Log:
web site
Revision Changes Path
No revision
No revision
1.1.2.3 +180 -160 embperl/eg/webutil/Attic/db.schema
Index: db.schema
===================================================================
RCS file: /home/cvs/embperl/eg/webutil/Attic/db.schema,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- db.schema 12 Feb 2002 16:55:01 -0000 1.1.2.2
+++ db.schema 24 Jun 2002 14:19:28 -0000 1.1.2.3
@@ -1,160 +1,180 @@
-
-###############################################################################
-###############################################################################
-### ###
-### perlwww - Copyright (c) 1999, 2000 ecos ###
-### ###
-### Technische Realisierung: G. Richter / ecos GmbH (http://www.ecos.de) ###
-### ###
-### - Datenbankschema - ###
-### ###
-### $Id$ ###
-### ###
-###############################################################################
-###############################################################################
-
-
-
-%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',
- },
-
-# ----------------------------------------------------------------------
-
- {
- '!Table' => 'itemtext',
- '!Fields' =>
- [
- 'id' => 'counter',
- 'item_id' => 'integer',
- 'language_id' => 'char(2)',
- 'heading' => 'tinytext',
- 'keywords' => 'text',
- 'description' => 'text',
- 'url' => 'tinytext',
- ],
- '!PrimKey' => 'id',
- },
-
-# ----------------------------------------------------------------------
-
- {
- '!Table' => 'language',
- '!Fields' =>
- [
- 'id' => 'char(2) not null',
- 'name' => 'tinytext',
- ],
- '!PrimKey' => 'id',
- '!Init' =>
- [
- { id => 'de', name => 'Deutsch'} ,
- { id => 'en', name => 'English'} ,
- ],
- },
-
-# ----------------------------------------------------------------------
-
- {
- '!Table' => 'category',
- '!Fields' =>
- [
- 'id' => 'counter',
- 'state' => 'integer',
- ],
- '!PrimKey' => 'id',
- '!Init' =>
- [
- { id => 1, state => 1 } ,
- { id => 2, state => 1 } ,
- { id => 3, state => 1 } ,
- { id => 4, state => 1 } ,
- { id => 5, state => 1 } ,
- { id => 6, state => 1 } ,
- ],
- },
-
-# ----------------------------------------------------------------------
-
- {
- '!Table' => 'categorytext',
- '!Fields' =>
- [
- 'id' => 'counter',
- 'category_id' => 'integer',
- 'language_id' => 'char(2)',
- 'category' => 'tinytext',
- ],
- '!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' } ,
- { id => 4, category_id => 2, language_id => 'en', 'category' => 'Sites using Embperl' } ,
- { id => 5, category_id => 3, language_id => 'de', 'category' => 'B�cher 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 f�r 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 f�r Embperl' } ,
- { id => 12, category_id => 6, language_id => 'en', 'category' => 'Modules and examples for Embperl' } ,
- ],
- },
-
-# ----------------------------------------------------------------------
-
-
-# ----------------------------------------------------------------------
-
- {
- '!Table' => 'user',
- '!Fields' =>
- [
- 'id' => 'counter',
- 'name' => 'tinytext',
- 'email' => 'tinytext',
- 'password' => 'tinytext',
- ],
- '!PrimKey' => 'id',
- },
-
-
-) ;
-
-1 ;
-
+##############################################################################
+#
+# Embperl - Copyright (c) 1997-2002 Gerald Richter / ecos gmbh www.ecos.de
+#
+# 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$
+#
+##############################################################################
+
+
+%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 },
+ ]
+ },
+
+# ----------------------------------------------------------------------
+
+ {
+ '!Table' => 'itemtext',
+ '!Fields' =>
+ [
+ 'id' => 'counter',
+ 'item_id' => 'integer',
+ 'language_id' => 'char(2)',
+ 'heading' => 'tinytext',
+ 'keywords' => 'text',
+ 'description' => 'text',
+ 'url' => 'tinytext',
+ ],
+ '!PrimKey' => 'id',
+ '!Init' =>
+ [
+ { id => 1, item_id => 1, heading => '28.5.2002', language_id => 'de', description => 'Auch auf der diesj�hrigen L<"O\'Reilly Open-Source Convention"|http://conferences.oreillynet.com/os2002/> in San Diego wird es wieder ein Vortrag �ber Embperl geben.' },
+ { id => 2, item_id => 1, 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 => 3, item_id => 1, heading => '28.5.2002', language_id => 'de', description => 'Embperl 2.0b7 freigegeben' },
+ { id => 4, item_id => 1, heading => '3/21/2002', language_id => 'en', description => 'Embperl 2.0b7 released ' },
+ { id => 5, item_id => 1, heading => '21.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 endg�ltigen Release werden haupts�chlich noch Fehler beseitigt.' },
+ { id => 6, item_id => 1, 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 => 7, item_id => 1, heading => '13.3.2002', language_id => 'de', description => 'Embperl 1.3.4 freigegeben' },
+ { id => 8, item_id => 1, heading => '12/5/2001', language_id => 'en', description => 'Embperl 1.3.4 released.' },
+ { id => 9, item_id => 1, heading => '5.12.2001', language_id => 'de', description => 'Embperl 2.0b5 freigegeben' },
+ { id => 10, item_id => 1, heading => '11/27/2001', language_id => 'en', description => 'Embperl 2.0b5 released' },
+ { id => 11, item_id => 1, heading => '27.11.2001', language_id => 'de', description => 'Embperl 2.0b4 freigegeben. Neu ist die Unterst�tzung f�r XML und XSLT, sowie das Zusammensetzen des Ergebnisses eines Requests durch mehrere frei kombinierbare Provider.' },
+ { id => 12, item_id => 1, heading => '11/20/2002', 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 => 13, 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 => 14, 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 => 15, item_id => 2, heading => 'http://bilder.ecos.de - Gerald Richter [richter@ecos.de]', language_id => 'de', description => 'Dies ist die Site f�r die Embperl urspr�nglich geschrieben wurde. Es ist eine einfache Bilddatenbank die touristische Bilder aus Rheinland-Pflaz enth�lt. ' },
+ { id => 16, item_id => 2, 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' => 'char(2) not null',
+ 'name' => 'tinytext',
+ ],
+ '!PrimKey' => 'id',
+ '!Init' =>
+ [
+ { id => 'de', name => 'Deutsch'} ,
+ { id => 'en', name => 'English'} ,
+ ],
+ },
+
+# ----------------------------------------------------------------------
+
+ {
+ '!Table' => 'category',
+ '!Fields' =>
+ [
+ 'id' => 'counter',
+ 'state' => 'integer',
+ ],
+ '!PrimKey' => 'id',
+ '!Init' =>
+ [
+ { id => 1, state => 1 } ,
+ { id => 2, state => 1 } ,
+ { id => 3, state => 1 } ,
+ { id => 4, state => 1 } ,
+ { id => 5, state => 1 } ,
+ { id => 6, state => 1 } ,
+ ],
+ },
+
+# ----------------------------------------------------------------------
+
+ {
+ '!Table' => 'categorytext',
+ '!Fields' =>
+ [
+ 'id' => 'counter',
+ 'category_id' => 'integer',
+ 'language_id' => 'char(2)',
+ 'category' => 'tinytext',
+ ],
+ '!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' } ,
+ { id => 4, category_id => 2, language_id => 'en', 'category' => 'Sites using Embperl' } ,
+ { id => 5, category_id => 3, language_id => 'de', 'category' => 'B�cher 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 f�r 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 f�r Embperl' } ,
+ { id => 12, category_id => 6, language_id => 'en', 'category' => 'Modules and examples for Embperl' } ,
+ ],
+ },
+
+# ----------------------------------------------------------------------
+
+
+# ----------------------------------------------------------------------
+
+ {
+ '!Table' => 'user',
+ '!Fields' =>
+ [
+ 'id' => 'counter',
+ 'name' => 'tinytext',
+ 'email' => 'tinytext',
+ 'password' => 'tinytext',
+ ],
+ '!PrimKey' => 'id',
+ },
+
+
+) ;
+
+1 ;
+
1.1.2.2 +15 -14 embperl/eg/webutil/Attic/setupdb.pl
Index: setupdb.pl
===================================================================
RCS file: /home/cvs/embperl/eg/webutil/Attic/setupdb.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- setupdb.pl 12 Feb 2002 07:20:36 -0000 1.1.2.1
+++ setupdb.pl 24 Jun 2002 14:19:30 -0000 1.1.2.2
@@ -1,18 +1,19 @@
#!/usr/bin/perl
-
-
-###############################################################################
-###############################################################################
-### ###
-### perlwww - Copyright (c) 1999, 2000 ecos ###
-### ###
-### - Setup - ###
-### ###
-### $Id$ ###
-### ###
-###############################################################################
-###############################################################################
-
+##############################################################################
+#
+# Embperl - Copyright (c) 1997-2002 Gerald Richter / ecos gmbh www.ecos.de
+#
+# 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$
+#
+##############################################################################
use DBIx::Recordset ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org