--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index fcca4fe0f19de4265b6d48f26a8c2d4553e595ec..61532fba9b6c109596a2a7331d82da5107e07e7c 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -76,13 +76,12 @@ sub init {
             banana => 'sand',
             };
         foreach (my ($path, @datum) = each %page) {
+            print Dumper @datum;
             if ($datum[0] == DYNAMIC_PAGE) {
-                syslog("info", "Marking Dynamic '$path'");
-                print "I'm having a stroke";
+                # syslog("info", "Marking Dynamic '$path'");
                 next;
             }
-            syslog("info", "Marking Static '$path'");
-            print "You are.";
+            # syslog("info", "Marking Static '$path'");
     #         $template->process($datum[1], $vars, \$_) or syslog("info", $template->error());
     #         $static{$path} = $_;
         }