crossplatform index.html

Author: ddmitov

CREDITS.md

@@ -35,7 +35,6 @@ wouldn't be created without his assistance.
 ## Qt
 
 https://github.com/richmoore/qt-examples/tree/master/sitespecificbrowser  
-https://github.com/NixOS/nixpkgs/issues/16327  
 
 https://doc.qt.io/archives/qt-5.5/qwebpage.html#windowCloseRequested  
 https://doc.qt.io/qt-4.8/qmake-advanced-usage.html  
@@ -55,7 +54,6 @@ https://wiki.qt.io/Open_Web_Page_in_QWebView
 
 https://forum.qt.io/topic/18879/relative-path-on-qmake-pro-file  
 https://forum.qt.io/topic/551/get-filename-without-extension  
-https://forum.qt.io/topic/3314/qwebelement-set-and-get-attribute  
 
 http://www.qtcentre.org/threads/46016-Place-QMessageBox-on-middle-of-screen  
 http://www.qtcentre.org/threads/18146-String-operations-printing-to-stdout  
@@ -91,6 +89,7 @@ https://stackoverflow.com/questions/24899558/how-to-check-qt-version-to-include-
 https://stackoverflow.com/questions/19822211/qt-parsing-json-using-qjsondocument-qjsonobject-qjsonarray  
 https://stackoverflow.com/questions/2241808/checking-if-a-folder-exists-and-creating-folders-in-qt-c  
 https://stackoverflow.com/questions/9641807/qdir-mkdir-with-absolutepath  
+https://stackoverflow.com/questions/4916193/creating-writing-into-a-new-file-in-qt  
 
 http://www.java2s.com/Code/Cpp/Qt/CheckfileexistanceandfilenamewithQFile.htm  
 http://webkit.sed.hu/content/disabling-cache  
@@ -137,6 +136,8 @@ https://stackoverflow.com/questions/42053775/getting-error-form-submission-cance
 https://jquery.com/  
 http://youmightnotneedjquery.com/  
 
+https://www.geeksforgeeks.org/detect-the-operating-system-of-user-using-javascript/  
+
 ## Bootstrap
 
 https://getbootstrap.com/docs/4.0/components/buttons/  

doc/INTERACTIVE.md

@@ -30,17 +30,20 @@ PEB interactive Perl scripts are able to receive user input multiple times after
   }
   ```
 
+* **Temporary File Full Path Message**
+  Every interactive script using temporary file must send the full path of its temporary file to PEB using the following simple JSON message:  
+
+  ```javascript
+  {"tempfile":"/path/to/tempfile"}
+  ```
+
 ## Examples of Interactive Perl Scripts
 
 The [index.htm](https://github.com/ddmitov/perl-executing-browser/blob/master/resources/app/index.html) file demonstrates how to start automatically one Perl interactive script in two instances.  
 
 The [interactive.pl](https://github.com/ddmitov/perl-executing-browser/blob/master/resources/app/perl-scripts/interactive.pl) is a Perl interactive script using STDIN input.
 
 The [interactive-tempfile.pl](https://github.com/ddmitov/perl-executing-browser/blob/master/resources/app/perl-scripts/interactive-tempfile.pl) is a Perl interactive script using a temporary file.  
-This script creates a temporary file on startup and sends to PEB its full path in the following JSON format:  
-
-```javascript
-{"tempfile":"/path/to/tempfile"}
-```
-
-PEB sends data to the script by writing in its temporary file and the script checks periodically its temporary file for new messages.
+* This script creates a temporary file on startup and sends its full path to PEB.  
+* PEB sends data to the script by writing in its temporary file.  
+* The script checks periodically its temporary file for any new messages.

resources/app/index.html

@@ -23,10 +23,30 @@
     <meta charset="utf-8">
 
     <script>
+    // Change file paths according to the operating suystem:
+    var operating_system = '';
+    var perl_interpreter = '';
+    var interactive_script = '';
+
+    if (navigator.userAgent.indexOf('Linux') != -1) {
+      operating_system = 'Linux'
+      perl_interpreter = 'perl/bin/perl';
+      interactive_script = 'perl-scripts/interactive.pl';
+    }
+
+    if (navigator.userAgent.indexOf('Win') != -1) {
+      operating_system = 'Windows'
+      perl_interpreter = 'perl/perl/bin/wperl.exe';
+      interactive_script = 'perl-scripts/interactive-tempfile.pl';
+    }
+
+    console.log('Operating system: ' + operating_system)
+    console.log('Perl interpreter: ' + perl_interpreter)
+    console.log('Interactive script: ' + interactive_script)
+
       // PEB page settings:
       var pebSettings = {}; // 'pebSettings' object name is hard-coded.
-      pebSettings.perlInterpreter = 'perl/bin/perl';
-      // pebSettings.perlInterpreter = 'perl/perl/bin/wperl.exe';
+      pebSettings.perlInterpreter = perl_interpreter;
       pebSettings.autoStartScripts = ['interactive_one', 'interactive_two'];
       pebSettings.cutLabel = '- Cut -';
       pebSettings.copyLabel = '- Copy -';
@@ -42,7 +62,7 @@
 
       // PEB settings objects for auto-started Perl interactive scripts:
       var interactive_one = {};
-      interactive_one.scriptRelativePath = 'perl-scripts/interactive-tempfile.pl';
+      interactive_one.scriptRelativePath = interactive_script;
 
       interactive_one.inputData = function() {
         var data = {}
@@ -56,7 +76,7 @@
         var target = document.getElementById('instance-one-output');
         var output = JSON.parse(stdout);
         var html;
-        if(("user_input" in output)) {
+        if ("user_input" in output) {
           html = output.time + '<br>' + output.user_input;
         } else {
           html = output.time;
@@ -71,7 +91,7 @@
       }
 
       var interactive_two = {};
-      interactive_two.scriptRelativePath = 'perl-scripts/interactive-tempfile.pl';
+      interactive_two.scriptRelativePath = interactive_script;
 
       interactive_two.inputData = function() {
         var data = {}
@@ -85,7 +105,7 @@
         var target = document.getElementById('instance-two-output');
         var output = JSON.parse(stdout);
         var html;
-        if(("user_input" in output)) {
+        if ("user_input" in output) {
           html = output.time + '<br>' + output.user_input;
         } else {
           html = output.time;

resources/app/perl-scripts/interactive.pl

@@ -49,7 +49,7 @@
     chomp $stdin;
 
     my $input = get_input($stdin);
-    $user_input  = decode('UTF-8', $input->{user_input});
+    $user_input = decode('UTF-8', $input->{user_input});
 
     if ($user_input =~ "exit") {
       shutdown_procedure();