Changeset 91

Timestamp:

12/08/06 11:12:03 (2 years ago)

Author:

kindlund

Message:

Updated parser logic; preparing to move.

Files:

• honeyclient/branches/bug/42/lib/HoneyClient/Agent/Integrity/Registry (added)
• honeyclient/branches/bug/42/lib/HoneyClient/Agent/Integrity/Registry.yp (modified) (5 diffs)

honeyclient/branches/bug/42/lib/HoneyClient/Agent/Integrity/Registry.yp

@@ -13 +13 @@
-    my $pos = 0;
-
+    # Total number of directories parsed.
+    my $dirCount = 0;
+
+    # Total number of key/value pairs parsed.
+    my $entryCount = 0;
-
-    my $progress = undef;
@@ -31 +36 @@
-        groups {
-#            print "Done!\n";
+#            print "Entry count: " . $entryCount . "\n";
+#            print "Dir count: " . $dirCount . "\n";
-        }
-    |   HEADER groups {
-#            print "Done!\n";
+#            print "Entry count: " . $entryCount . "\n";
+#            print "Dir count: " . $dirCount . "\n";
-        }
-;
@@ -52 +61 @@
-           #print Dumper($group) . "\n";
-            $group = { };
+            $dirCount++;
-        }
-    |   DIR_NAME {
@@ -59 +69 @@
-           #print Dumper($group) . "\n";
-            $group = { };
+            $dirCount++;
-        }
-;
@@ -76 +87 @@
-            };
-            push(@{$group->{entries}}, $entry);
+            $entryCount++;
-        }
-;