only JavaScript functions as STDOUT receivers

Author: ddmitov

README.md

@@ -149,7 +149,10 @@ A minimal example of a Perl script settings object:
 ```javascript
 var perlScriptObject = {};
 perlScriptObject.path = '{app}/perl/test.pl';
-perlScriptObject.stdout = 'test';
+perlScriptObject.stdout = function (stdout) {
+  var container = document.getElementById('tests');
+  container.innerHTML = stdout;
+}
 ```
 
 * ``path``  
@@ -158,7 +161,7 @@ perlScriptObject.stdout = 'test';
   *This object property is mandatory.*  
 
 * ``stdout``  
-  The ``stdout`` object property must be an id of a valid HTML DOM element or the name of a JavaScript function. Every piece of script output is immediately inserted into the DOM element or passed to the JavaScript function as its only argument.  
+  The ``stdout`` object property must be a JavaScript function. Every piece of script output is passed to this function as its only argument.  
   *This object property is mandatory.*  
 
 * ``requestMethod``  
@@ -192,7 +195,7 @@ perlScriptObject.stdout = 'test';
   The ``close_command`` object property designates the command used to gracefully shut down an interactive script when the containing PEB window is going to be closed. Upon receiving it, the interactive script must start its shutdown procedure.
 
 * ``close_confirmation``  
-  Just before exiting an interactive script must print on STDOUT its ``close_confirmation`` to signal PEB that it completed its shutdown. All interactive scripts must exit in 5 seconds after ``close_command`` is given or any unresponsive scripts will be killed and PEB will exit.
+  Just before exiting an interactive script must print on STDOUT its ``close_confirmation`` to signal PEB that it completed its shutdown. All interactive scripts must exit in 3 seconds after ``close_command`` is given or any unresponsive scripts will be killed and PEB will exit.
 
 Perl scripts running for a long time should have ``$|=1;`` among their first lines to disable the built-in buffering of the Perl interpreter. Some builds of Perl may not give any output until the script is finished when buffering is enabled.
 
@@ -239,7 +242,7 @@ The following code shows how to start an interactive Perl script right after a l
 The ``index.htm`` file of the demo package demonstrates how to start one script in two instances immediately after a page is loaded.
 
 ## Selecting Files and Folders
-Selecting files or folders with their full paths is performed by clicking a link to a pseudo filename composed from the name of the JavaScript object with the settings of the wanted dialog and a ``.dialog`` extension. Selected files or folders are seamlessly inserted in any local page using the ``target`` object property. ``target`` must be an id of a valid HTML DOM element or the name of a JavaScript function which receives all selected files or folders as its only argument.  
+Selecting files or folders with their full paths is performed by clicking a link to a pseudo filename composed from the name of the JavaScript object with the settings of the wanted dialog and a ``.dialog`` extension. Selected files or folders are seamlessly inserted in any local page using the ``target`` object property. ``target`` must be a JavaScript function which receives all selected files or folders as its only argument.  
 
 ```html
 <a href="select_file.dialog">Select existing file</a>
@@ -250,8 +253,10 @@ var select_file = {};
 // Type of the dialog, one of the following:
 // 'single-file', 'multiple-files', 'new-file-name' or 'directory'.
 select_file.type = 'single-file';
-// Unique DOM element or JavaScript function:
-select_file.target = 'tests';
+select_file.target = function (stdout) {
+  var container = document.getElementById('tests');
+  container.innerHTML = stdout;
+}
 ```
 
 * The actual opening of any existing file is performed by a Perl script and not by PEB.  

resources/app/index.html

@@ -26,7 +26,10 @@
       // Settings objects for the Perl scripts:
       var interactive_one = {};
       interactive_one.path = '{app}/perl/interactive.pl';
-      interactive_one.stdout = 'instance-one-output';
+      interactive_one.stdout = function (stdout) {
+        var target = document.getElementById('instance-one-output');
+        target.innerHTML = stdout;
+      }
       interactive_one.requestMethod = 'POST';
       interactive_one.closeCommand = '_close_';
       interactive_one.closeConfirmation = '_closed_';
@@ -38,7 +41,10 @@
 
       var interactive_two = {};
       interactive_two.path = '{app}/perl/interactive.pl';
-      interactive_two.stdout = 'instance-two-output';
+      interactive_two.stdout = function (stdout) {
+        var target = document.getElementById('instance-two-output');
+        target.innerHTML = stdout;
+      }
       interactive_two.requestMethod = 'POST';
       interactive_two.closeCommand = '_close_';
       interactive_two.closeConfirmation = '_closed_';
@@ -51,33 +57,42 @@
       var get_test = {};
       get_test.path = '{app}/perl/get-post-test.pl';
       get_test.stdout = 'tests';
+      get_test.stdout = function (stdout) {
+        displayTestResult(stdout);
+      }
       get_test.requestMethod = 'GET';
       get_test.inputData = 'name=Mickey&species=mouse';
 
       var post_test = {};
       post_test.path = '{app}/perl/get-post-test.pl';
-      post_test.stdout = 'tests';
+      post_test.stdout = function (stdout) {
+        displayTestResult(stdout);
+      }
       post_test.requestMethod = 'POST';
       post_test.inputData = 'name=Geoffrey&species=giraffe';
 
       var perl_info = {};
       perl_info.path = '{app}/perl/perl-info.pl';
-      perl_info.stdout = 'tests';
+      perl_info.stdout = function (stdout) {
+        displayTestResult(stdout);
+      }
 
       var extensionless = {};
       extensionless.path = '{app}/perl/extensionless';
-      extensionless.stdout = 'tests';
+      extensionless.stdout = function (stdout) {
+        displayTestResult(stdout);
+      }
 
       var sqlite = {};
       sqlite.path = '{app}/perl/sqlite.pl';
-      sqlite.stdout = 'tests';
+      sqlite.stdout = function (stdout) {
+        displayTestResult(stdout);
+      }
 
       // Filesystem dilog boxes configuration objects:
       var select_file = {};
       select_file.type = 'single-file';
-      select_file.target = 'insertFileName';
-
-      function insertFileName(fileName) {
+      select_file.target = function (fileName) {
         clearTargetElement();
         var pre = document.createElement("pre");
         pre.innerHTML = 'Selected existing file: ' + fileName;
@@ -86,9 +101,7 @@
 
       var new_file_name = {};
       new_file_name.type = 'new-file-name';
-      new_file_name.target = 'insertNewFileName';
-
-      function insertNewFileName(fileName) {
+      new_file_name.target = function (fileName) {
         clearTargetElement();
         var pre = document.createElement("pre");
         pre.innerHTML = 'Selected new file name: ' + fileName;
@@ -97,9 +110,7 @@
 
       var select_files = {};
       select_files.type = 'multiple-files';
-      select_files.target = 'insertFileNames';
-
-      function insertFileNames(fileNames) {
+      select_files.target = function (fileNames) {
         clearTargetElement();
         var pre = document.createElement("pre");
         fileNames = fileNames.replace(/;/g, "<br>");
@@ -109,9 +120,7 @@
 
       var select_directory = {};
       select_directory.type = 'directory';
-      select_directory.target = 'insertDirectoryName';
-
-      function insertDirectoryName(directoryName) {
+      select_directory.target = function (directoryName) {
         clearTargetElement();
         var pre = document.createElement("pre");
         pre.innerHTML = 'Selected directory: ' + directoryName;
@@ -124,6 +133,13 @@
           container.removeChild(container.firstChild);
         }
       }
+
+      function displayTestResult(stdout) {
+        clearTargetElement();
+        var pre = document.createElement("pre");
+        pre.innerHTML = stdout;
+        document.getElementById('tests').appendChild(pre);
+      }
     </script>
 
     <script src="jquery/jquery-1.12.4.min.js"></script>

resources/app/perl/extensionless

@@ -3,4 +3,4 @@
 use strict;
 use warnings;
 
-print "<pre>Hello from a Perl script without a filename extension!</pre>";
+print "Hello from a Perl script without a filename extension!";

resources/app/perl/get-post-test.pl

@@ -16,7 +16,6 @@
   }
 }
 
-print "<pre>";
 print "REQUEST_METHOD: $ENV{'REQUEST_METHOD'}<br>";
 
 # Split information into name/value pairs:
@@ -27,5 +26,3 @@
   $value =~ s/%(..)/pack("C", hex($1))/eg;
   print "$name = $value<br>";
 }
-
-print "</pre>";

resources/app/perl/open-directory.pl

@@ -18,11 +18,10 @@
 
 traverse ($directory_name);
 
-print "<pre>Listing all files in the $directory_name directory:<br>";
+print "Listing all files in the $directory_name directory:<br>";
 foreach my $file (@files) {
   print "$file<br>";
 }
-print "</pre>";
 
 sub traverse {
   my ($entry) = @_;

resources/app/perl/open-file.pl

@@ -12,4 +12,4 @@
 
 my $number_of_lines = scalar(@file_contents);
 
-print "<pre>Opening single file: $filename Lines: $number_of_lines</pre>";
+print "Opening single file: $filename Lines: $number_of_lines";

resources/app/perl/open-files.pl

@@ -9,7 +9,6 @@
 
 my $number_of_lines;
 
-print "<pre>";
 print "Opening multiple files:<br>";
 
 foreach my $file (@files) {
@@ -20,5 +19,3 @@
   my $number_of_lines = scalar(@file_contents);
   print "File: $file Lines: $number_of_lines<br>";
 }
-
-print "</pre>";

resources/app/perl/perl-info.pl

@@ -6,12 +6,8 @@
 
 my $cwd = cwd();
 
-print "<pre>";
-
 print "Perl $^V<br>";
 print "Working Directory: $cwd<br><br>";
 
 print "\@INC Array:<br>";
 print join "<br>", @INC;
-
-print "</pre>";

resources/app/perl/sqlite.pl

@@ -34,14 +34,11 @@
 
 $all_records = $db->selectall_arrayref ("SELECT * FROM USER");
 
-print "<pre>";
 print "SQLite Test:<br>";
 
 foreach my $row (@$all_records) {
   my ($id, $name, $surname) = @$row;
   print "$id $name $surname<br>";
 }
 
-print "</pre>";
-
 $db->disconnect;

src/resources/html/about.html

@@ -10,7 +10,7 @@ <h3>About Perl Executing Browser</h3>
 either version 3 of the License,<br>
 or (at your option) any later version.<br><br>
 This program is distributed<br>
-in the hopethat it will be useful,<br>
+in the hope that it will be useful,<br>
 but WITHOUT ANY WARRANTY;<br>
 without even the implied warranty of<br>
 MERCHANTABILITY or<br>