--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 0996ef1dc28090257f380795d4ae37bd0a28d55f..0d5ae206199caf82f0e321374dc0f81f82ae454b 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -57,6 +57,7 @@ sub Triple::main {
         my $location;
         my $body = '';
         if ($method eq 'POST') {
+            syslog("info", "something like posting has occurred);
             if ($content_length > 0) {
                 read(STDIN, $body, $content_length);
             }