Changeset 2504 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

Timestamp:

01/08/22 09:16:57 (2 years ago)

Author:

nanardon

Message:

add --insert to la-cli/create command

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

@@ -171 +171 @@
 
 sub dump_read_temp_file {
-    my ($writecb, $readcb) = @_;
+    my ($writecb, $readcb, %options) = @_;
 
     my ($fh, $filename) = tempfile(CLEANUP => 0);
@@ -180 +180 @@
     my @stat = stat($filename);
     while (1) {
-        my $cmd = ($ENV{EDITOR} || 'vi') . " $filename";
+        my $cmd = ($ENV{EDITOR} || 'vi');
+        $cmd .= " -c startinsert " if( $options{insert} );
+        $cmd .= " $filename";
         warn "Running $cmd\n";
         if (system($cmd) == -1 ) {