Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tiny Perl Database Application with Perl Tk (and experimental wxPerl) front-end.
Perl Perl6 Shell

Fetching latest commit…

Cannot retrieve the latest commit at this time

Failed to load latest commit information.
bin
data
lib
patch
perlapp
po
script
share
sql
t
wxt
xt
.gitignore
ChangeLog
Changes.md
README.md
TODO
dist.ini

README.md

Tpda3 (Tiny Perl Database Application 3)

Ștefan Suciu 2015-01-13

Version: 0.98.1

Tpda3 is a classic desktop database application framework and run-time, written in Perl. The graphical user interface is based on PerlTk. It supports the CUBRID, Firebird, PostgreSQL and SQLite RDBMS.

There is also an experimental graphical user interface based on wxPerl.

Tpda3 is the successor of TPDA and, hopefully, has a much better API implementation, Tpda3 follows the Model View Controller (MVC) architecture pattern. The look and the user interface functionality of Tpda3 is almost the same as of TPDA, with some minor improvements.

The configuration files formats are new and are in YAML (YAML::Tiny) and Apache format (Config::General).

Requirements

  • Perl v5.10.1 or newer.

  • A database, one or more of the following:

    • SQLite (required for testing);
    • PostgreSQL version 8.2 or greater (using DBD::Pg)
    • Firebird version 2.1 or greater (using DBD::Firebird or DBD::ODBC)
    • CUBRID version 8.4 (using DBD::cubrid);
  • The Operating System

Tpda3 should work on any OS where Perl and the required dependencies can be installed, but currently it's only tested on GNU/Linux and Windows (XP and 7). Feedback and patches for other OSs are welcome.

Installation

The Preffered Way

Because Tpda3 uses a few modules that need to be patched, the best way to install is from Stratopan. (This is a good time to say to the Stratopan team: thank you for a great service!).

cpanm --mirror https://stratopan.com/stefansbv/Tpda3/master --mirror-only --installdeps Tpda3
cpanm --mirror https://stratopan.com/stefansbv/Tpda3/master --mirror-only Tpda3

The Classic Way

Download the distribution, unpack and install:

% tar xaf Tpda3-0.NN.tar.gz
% cd Tpda3-0.NN

Then as usual for a Perl application:

% perl Makefile.PL
% make
% make test
% make install

For testing the application without installation, after 'make' one can use:

% perl -Mblib bin/tpda3 [options] ...`

Only make install should be run as root.

Usage

After installing the application, at first start, the configuration directory is initialized automatically. The following command will list all the defined application configurations.

% tpda3 -l

On a fresh installation this command should return:

test-tk
test-wx

Run the demo application with:

% tpda3 test-tk

Citrus Perl

Notes for the custom Citrus Perl distribution that includes Tpda3.

Installation

GNU/Linux

Install and start as normal user, not root:

Open a terminal, and:

% cd test         # or any other playground dir
% tar xaf tpda3perl-standard-51402-20903-linux-x86-061.tar.gz
% cd Tpda3Perl
% ./bin/citrusutils

After exit:

% source bin/citrusvars.sh
% perl -V

Paths should include Tpda3Perl.

Finally we start the app with:

% tpda3

Windows

Unzip the distribution to a folder, for example C:\dev\

Run: C:\dev\Tpda3Perl\bin\citrusutls.exe

And, after exit: C:\dev\Tpda3Perl\bin\citrusterm.bat to open a terminal, then:

% tpda3

Alternatively run: C:\dev\Tpda3Perl\apps\Tpda3.exe

Have fun!

(Thank you, Mark Dootson for Citrus Perl.)

Troubleshooting

Note: There is a dir on SF with some patched modules that can fix all this problems, and also the modules can be installed from stratopan.com.

Problems and their fix, listed here for reference:

Problem: Tk::Error: unknown color name "systembuttonface"

Fix: remove the option '-systembuttonface' from Tk::StatusBar module

Problem: In Perl 5.10.0 on Slackware 12.2 the module MListbox throws an error like: XS_Tk__Callback_Call error:Not a CODE reference at \ /usr/lib/perl5/site_perl/5.10.0/Tk/MListbox.pm line 703. Similar error on ActivePerl5.10.0 build 1004.

Fix: Fortunately there is a fix on the ActiveState forum (thanks to RobSeegel):

Go into the MListbox code, and replace all references of $w->can('SUPER:: with $w->can('Tk::Listbox::

Problem: Tk::Error: Can't set -state to `normal' for Tk::JComboBox=HASH(0x930c6a8): Cannot use undef value for object of type 'color' at /usr/lib/perl5/site_perl/5.10.0/Tk/JComboBox.pm line 1061.

Fix: There is a patch on PerlMonks (Thank you lamprecht!) http://www.perlmonks.com/?node_id=799099

Links

Home page:

http://tpda.s2i2.ro/

Development takes place, currently, on GitHub:

https://github.com/stefansbv/Tpda3/

The project page on SourceForge:

https://sourceforge.net/projects/tpda/

License And Copyright

Copyright (C) 2010-2015 Ștefan Suciu

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; version 2 dated June, 1991 or at your option any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

A copy of the GNU General Public License is available in the source tree; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

Something went wrong with that request. Please try again.