Changeset 655

Timestamp:

01/18/10 14:46:28 (14 years ago)

Author:

vivat

Message:

Ajout d'un message d'erreur lorsqu'un parametre obligatoire n'est pas fourni

Location:

LATMOS-Accounts/bin

Files:

• la-acls (modified) (1 diff)
• la-create (modified) (1 diff)
• la-delete (modified) (1 diff)
• la-edit (modified) (1 diff)
• la-group (modified) (1 diff)
• la-guser (modified) (1 diff)
• la-passwd (modified) (1 diff)
• la-search (modified) (1 diff)

LATMOS-Accounts/bin/la-acls

@@ -32 +32 @@
 =cut
 
+if (!$ARGV[0]) {print "You must specify 'acl_file', aborting\n"; pod2usage(); }
+
 if(my $acls = LATMOS::Accounts::Acls->new($ARGV[0])) {
     $acls->dump if ($dump);

LATMOS-Accounts/bin/la-create

@@ -63 +63 @@
 =cut
 
+if (!$ARGV[0]) {print "You must specify 'obj_id', aborting\n"; pod2usage(); }
+
 my $LA = LATMOS::Accounts->new($config, noacl => 1);
 my $labase = $base ? $LA->base($base) : $LA->default_base;

LATMOS-Accounts/bin/la-delete

@@ -46 +46 @@
 =cut
 
+if (!$ARGV[0]) {print "You must specify 'obj_id', aborting\n"; pod2usage(); }
+
 my $LA = LATMOS::Accounts->new($config, noacl => 1);
 my $labase = $base ? $LA->base($base) : $LA->default_base;

LATMOS-Accounts/bin/la-edit

@@ -62 +62 @@
 =cut
 
+if (!$ARGV[0]) {print "You must specify 'obj_id', aborting\n"; pod2usage(); }
+
 my $LA = LATMOS::Accounts->new($config, noacl => 1);
 my $labase = $base ? $LA->base($base) : $LA->default_base;

LATMOS-Accounts/bin/la-group

@@ -59 +59 @@
 =cut
 
+if (!$ARGV[0]||!ARGV[1]) {print "You must specify 'group' and 'user1', aborting\n"; pod2usage(); }
+
 my $LA = LATMOS::Accounts->new($config, noacl => 1);
 my $labase = $base ? $LA->base($base) : $LA->default_base;

LATMOS-Accounts/bin/la-guser

@@ -59 +59 @@
 =cut
 
+if (!$ARGV[0]||!ARGV[1]) {print "You must specify 'user' and 'group1', aborting\n"; pod2usage(); }
+
 my $LA = LATMOS::Accounts->new($config, noacl => 1);
 my $labase = $base ? $LA->base($base) : $LA->default_base;

LATMOS-Accounts/bin/la-passwd

@@ -43 +43 @@
 ) or pod2usage();
 
+if (!$ARGV[0]) {print "You must specify 'userid', aborting\n"; pod2usage(); }
+
 my $otype = 'user';
 

LATMOS-Accounts/bin/la-search

@@ -76 +76 @@
 ) or pod2usage();
 
+if (!$ARGV[0]) {print "You must specify 'filter', aborting\n"; pod2usage(); }
+
 $otype ||= 'user';