create-db.plx

Revision 119, 0.9 kB (checked in by bkuhn, 6 months ago)

r158@hughes: bkuhn | 2008-06-02 13:25:16 -0400

I realized that there was not a proper create database script. I had
started a create database function in DB.pm, but it was incomplete and
generally only used for testing when you wanted to clear out the users.

Now that function properly creates a new empty database, and there is
a create-db.plx script as well that simply calls it.

Line
1	# Copyright (C) 2005, 2006, 2007, 2008 Software Freedom Law Center, Inc.
2	# Author: Bradley M. Kuhn <bkuhn@softwarefreedom.org>
3	#
4	# This software gives you freedom; it is licensed to you under version
5	# 3 of the GNU Affero General Public License.
6	#
7	# This software is distributed WITHOUT ANY WARRANTY, without even the
8	# implied warranties of MERCHANTABILITY and FITNESS FOR A PARTICULAR
9	# PURPOSE. See the GNU Affero General Public License for further
10	# details.
11	#
12	# You should have received a copy of the GNU Affero General Public
13	# License, version 3 along with this software. If not, see
14	# <http://www.gnu.org/licenses/>.
15	#!/usr/bin/perl -I ../Modules
16	use strict;
17	use warnings;
18
19	use SFLC::TimeTracker::DB;
20	use Data::Dumper;
21	my $database = new SFLC::TimeTracker::DB("MLDBM", "time-data.mldbm",
22	"pending-time.mldbm");
23
24	$database->XXXDONOTUSE__CLEAR_ALL_ITEMS();
25

Note: See TracBrowser for help on using the browser.

Software Freedom Law Center