Changeset 339 for LATMOS-Accounts/bin/la-create

Timestamp:

08/13/09 18:21:32 (15 years ago)

Author:

nanardon

Message:

• update la-create to use same scheme than la-edit

File:

• LATMOS-Accounts/bin/la-create (modified) (3 diffs)

LATMOS-Accounts/bin/la-create

@@ -6 +6 @@
 use Getopt::Long;
 use Pod::Usage;
-use File::Temp;
+use LATMOS::Accounts::Utils;
+
+=head1 NAME
+
+    la-create -- Tools to create object in LATMOS::Account system
+
+=head1 SYNOPSIS
+
+    la-create [options] obj_id
+
+=cut
 
 GetOptions(
@@ -12 +22 @@
     'b|base=s'   => \my $base,
     'o|object=s' => \my $otype,
+    'f=s'        => \my $inputfile,
+    'ro'         => \my $with_ro,
+    'u|update'   => \my $allow_update,
     'help'       => sub { pod2usage(0) },
 ) or pod2usage();
 
 $otype ||= 'user';
+
+=head1 OPTIONS
+
+=over 4
+
+=item -c|--config configfile
+
+Use this cofngiuration file instead the default one
+
+=item -b|--base basename
+
+Query this specific base instead default.
+
+=item -o|object object_type
+
+Query should be performed on this objects. Default is to user 'User' object.
+
+=item --ro
+
+Include also read-only attributes as comment
+
+=item -u|--update
+
+If the object already exists, then updating it
+
+=item -f FILE
+
+Use this file to get attributes (- use stdin)
+
+=back
+
+=cut
 
 my $LA = LATMOS::Accounts->new($config);
@@ -22 +67 @@
 
 $labase->is_supported_object($otype) or die "$otype object unsupported\n";
+my $objname = $ARGV[0];
 
-my @fields = $labase->list_canonical_fields($otype, 'w');
-my %attr;
-
-while (1) {
-    my ($fh, $filename) = File::Temp::tempfile();
-    printf $fh "## new object %s: %s\n", $otype, $ARGV[0];
-    foreach (@fields) {
-        print $fh "$_:" . ($attr{$_} || '') . "\n";
-    }
-    close($fh);
-    my @stat = stat($filename);
-    system('vi', $filename, '+ 1');
-    if ((stat($filename))[9] == $stat[9]) {
-        warn "No change, aborting\n";
-        unlink($filename);
-        last;
+sub input_from_handle {
+    my ($fh) = @_;
+    my %attr = LATMOS::Accounts::Utils::parse_obj_file($fh);
+    if (my $obj = $labase->get_object($otype, $objname)) {
+        if ($allow_update) {
+            my $res = $obj->set_c_fields(%attr);
+            if ($res) {
+                print "Changes applied\n";
+                $labase->commit;
+            }
+            return $res;
+        } else {
+            die "Object $otype $objname already exists, aborting\n";
+        }
     } else {
-        open($fh, '<', $filename);
-        while (my $line = <$fh>) {
-            chomp($line);
-            $line =~ s/#.*//;
-            my ($fi, $val) = $line =~ /^(\w+)\s*:\s*(.*)/ or next;
-            $attr{$fi} = $val;
+        my $res = $labase->create_c_object($otype, $objname, %attr);
+        if($res) {
+            print "Changes applied\n";
+            $labase->commit;
         }
-        close($fh);
-        unlink($filename);
-        $labase->create_c_object($otype, $ARGV[0], %attr) or do {
-            warn "Cannot create object: Redit ?\n";
-            my $reply = <STDIN>;
-            $reply =~ /^[yY]/ or exit(1);
-            next;
-        };
-        $labase->commit;
-
-        warn $LA->default_synchro;
-        if (!$base) {
-            if (my $sync = $LA->default_synchro) {
-                for (1) {
-                    $sync->load_dest and do {
-                        warn  "Cannot load dest";
-                        last;
-                    };
-                    $sync->sync_object($otype, $ARGV[0]);
-                }
-            }
-        }
-        last;
+        return $res;
     }
 }
+
+if ($inputfile) {
+    my $handle;
+    if ($inputfile eq '-') {
+        $handle = *STDIN;
+    } else {
+        open($handle, '<', $inputfile) or die
+        "Cannot open input file $@\n";
+    }
+    my $res = input_from_handle($handle);
+    close($handle);
+    exit(!$res);
+} else {
+    exit ! LATMOS::Accounts::Utils::dump_read_temp_file(
+        sub {
+            my ($fh) = @_;
+            $labase->text_empty_dump($fh, $otype,
+                {
+                    only_rw => !$with_ro,
+                }
+            );
+        },
+        sub {
+            my ($fh) = @_;
+            return input_from_handle($fh);
+        }
+    );
+}