create-file.pl

Author: ddmitov

resources/app/index.html

@@ -150,7 +150,7 @@
 
       <div class="row">
         <a class="btn btn-primary" href="select_file.dialog" role="button">Open File</a>
-        <a class="btn btn-primary" href="new_file_name.dialog" role="button">New File</a>
+        <a class="btn btn-primary" href="new_file.dialog" role="button">New File</a>
         <a class="btn btn-primary" href="select_files.dialog">Open Multiple Files</a>
         <a class="btn btn-primary" href="select_directory.dialog">Open Directory</a>
       </div>

resources/app/peb-demo.js

@@ -32,6 +32,12 @@ open_directory.stdoutFunction = function (stdout) {
   displayTestResult('open-directory', stdout);
 }
 
+var create_file = {};
+create_file.scriptRelativePath = 'perl-scripts/create-file.pl';
+create_file.stdoutFunction = function (stdout) {
+  displayTestResult('new-file', stdout);
+}
+
 var perl_info = {};
 perl_info.scriptRelativePath = 'perl-scripts/perl-info.pl';
 perl_info.stdoutFunction = function (stdout) {
@@ -59,13 +65,16 @@ select_file.receiverFunction = function (fileName) {
   form.submit();
 }
 
-var new_file_name = {};
-new_file_name.type = 'new-file-name';
-new_file_name.receiverFunction = function (fileName) {
+var new_file = {};
+new_file.type = 'new-file-name';
+new_file.receiverFunction = function (fileName) {
+  create_file.inputData = fileName;
   clearTestData();
-  var pre = document.createElement("pre");
-  pre.innerHTML = 'New file name: ' + fileName;
-  document.getElementById('tests').appendChild(pre);
+
+  var form = document.createElement('form');
+  form.setAttribute('action', 'create_file.script');
+  document.body.appendChild(form);
+  form.submit();
 }
 
 var select_files = {};

resources/app/perl-scripts/create-file.pl

@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+# Perl Executing Browser Demo
+
+# This program is free software;
+# you can redistribute it and/or modify it under the terms of the
+# GNU Lesser General Public License,
+# as published by the Free Software Foundation;
+# either version 3 of the License, or (at your option) any later version.
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY;
+# without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.
+# Dimitar D. Mitov, 2013 - 2019
+# Valcho Nedelchev, 2014 - 2016
+# https://github.com/ddmitov/perl-executing-browser
+
+use strict;
+use warnings;
+
+my $filename = <STDIN>;
+chomp $filename;
+
+open my $filehandle, '>>', $filename or warn "Unable to create $!";
+print $filehandle "Pel Executing Browser Demo Test File";
+close $filehandle;
+
+print "$filename is successfully created.";