Changeset 334 for LATMOS-Accounts/lib/LATMOS

Timestamp:

08/13/09 17:47:26 (15 years ago)

Author:

nanardon

Message:

• add la-edit tool

Location:

LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases/Objects.pm (modified) (1 diff)
• Utils.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -396 +396 @@
         }
     }
+    return 1;
 }
 

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

@@ -7 +7 @@
 use utf8;
 use LATMOS::Accounts::Log;
+use File::Temp qw(tempfile);
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -52 +53 @@
 }
 
+sub parse_obj_file {
+    my ($handle) = @_;
 
+    my %attributes;
+    while (my $line = <$handle>) {
+        $line =~ /^#/ and next;
+        chomp($line);
+        my ($attr, $value) = $line =~ /^\s*(\S+):\s*(.*)\s*$/;
+        if ($attributes{$attr}) {
+            if (ref $attributes{$attr}) {
+                push(@{ $attributes{$attr} }, $value);
+            } else {
+                my $temp = $attributes{$attr};
+                $attributes{$attr} = [ $temp, $value ];
+            }
+        } else {
+            $attributes{$attr} = $value;
+        }
+    }
+    %attributes
+}
+
+sub dump_read_temp_file {
+    my ($writecb, $readcb) = @_;
+
+    my ($fh, $filename) = tempfile(CLEANUP => 0);
+    $writecb->($fh) or return;
+    $fh = undef; # closing file
+    my $res;
+    
+    my @stat = stat($filename);
+    while (1) {
+        my $cmd = ($ENV{EDITOR} || 'vi') . " $filename";
+        warn "Running $cmd\n";
+        if (system($cmd) == -1 ) {
+            warn "Cannot run editor $!\n";
+            last;
+        }
+        if ((stat($filename))[9] == $stat[9]) {
+            warn "No change existing\n";
+            last;
+        }
+
+        open($fh, '<', $filename) or return;
+        $res = $readcb->($fh);
+        $fh = undef; # closing again
+        $res < 2 and last;
+    }
+    unlink($filename);
+    $res;
+}
 1;