Changeset 119

Timestamp:

06/02/08 13:25:41 (5 months ago)

Author:

bkuhn

Message:

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.

Files:

• trunk/antimatter/tim/ChangeLog (modified) (1 diff)
• trunk/antimatter/tim/Modules/SFLC/TimeTracker/DB.pm (modified) (1 diff)
• trunk/antimatter/tim/Scripts/create-db.plx (added)

trunk/antimatter/tim/ChangeLog

@@ +1 @@
+2008-06-02  Bradley M. Kuhn  <bkuhn@ebb.org>
+
+        * Scripts/create-db.plx: Wrote script.
+
+        * Modules/SFLC/TimeTracker/DB.pm (XXXDONOTUSE__CLEAR_ALL_ITEMS):
+        Turned this function into an actual "create database" function.
+
-2008-03-04  Bradley M. Kuhn  <bkuhn@softwarefreedom.org>
-

trunk/antimatter/tim/Modules/SFLC/TimeTracker/DB.pm

@@ -1383 +1383 @@
-  $self->beginWriteWork('pending');
-
+  $self->{main}{categoryList} = { };
+  $self->{main}{categoryAliases} = { users => {}, GLOBAL => {} };
+  $self->{main}{categoryChanged} = time();
+
+  foreach my $empty (qw/categoryList ids ignoreLines userConfig configs/) {
+    $self->{main}{$empty} = {};
+  }
+  foreach my $empty (qw/ignoreLines userConfig configs/) {
+    $self->{main}{$empty}{users} = {};
+  }
+
+  $self->{pending}{configs}{users} = {};
+  $self->{pending}{ignoreLines}{users} = {};
+  $self->{pending}{interactionTrees} = {};
+
-  my(%u1, %u2);
-  foreach my $user (keys %{$self->{main}{entries}{byUser}}) {