X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXSql%2FSQLite.pm;fp=perl%2FDXSql%2FSQLite.pm;h=2f62461cdb0b2394d8180d8ff33745390e4d29d6;hb=e5a96ae00d9c44c94cff828e73cadc5352e531ef;hp=0000000000000000000000000000000000000000;hpb=8b084abf6e46e762cc53bc58c19fd03e19f9c405;p=spider.git

diff --git a/perl/DXSql/SQLite.pm b/perl/DXSql/SQLite.pm
new file mode 100644
index 00000000..2f62461c
--- /dev/null
+++ b/perl/DXSql/SQLite.pm
@@ -0,0 +1,21 @@
+#
+# Module for SQLite DXSql variants
+#
+# Stuff like table creates and (later) alters
+#
+# $Id$
+#
+# Copyright (c) 2005 Dirk Koopman G1TLH
+#
+
+package DXSql::SQLite;
+
+use vars qw($VERSION $BRANCH @ISA);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+
+@ISA = qw{DXSql};
+
+1;