Changeset 656


Ignore:
Timestamp:
01/18/10 15:27:20 (14 years ago)
Author:
nanardon
Message:
  • error messages goes to STDERR
Location:
LATMOS-Accounts/bin
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LATMOS-Accounts/bin/la-acls

    r655 r656  
    3232=cut 
    3333 
    34 if (!$ARGV[0]) {print "You must specify 'acl_file', aborting\n"; pod2usage(); } 
     34if (!$ARGV[0]) {warn "You must specify 'acl_file', aborting\n"; pod2usage(); } 
    3535 
    3636if(my $acls = LATMOS::Accounts::Acls->new($ARGV[0])) { 

  • LATMOS-Accounts/bin/la-create

    r655 r656  
    6363=cut 
    6464 
    65 if (!$ARGV[0]) {print "You must specify 'obj_id', aborting\n"; pod2usage(); } 
     65if (!$ARGV[0]) {warn "You must specify 'obj_id', aborting\n"; pod2usage(); } 
    6666 
    6767my $LA = LATMOS::Accounts->new($config, noacl => 1); 

  • LATMOS-Accounts/bin/la-delete

    r655 r656  
    4646=cut 
    4747 
    48 if (!$ARGV[0]) {print "You must specify 'obj_id', aborting\n"; pod2usage(); } 
     48if (!$ARGV[0]) {warn "You must specify 'obj_id', aborting\n"; pod2usage(); } 
    4949 
    5050my $LA = LATMOS::Accounts->new($config, noacl => 1); 

  • LATMOS-Accounts/bin/la-edit

    r655 r656  
    6262=cut 
    6363 
    64 if (!$ARGV[0]) {print "You must specify 'obj_id', aborting\n"; pod2usage(); } 
     64if (!$ARGV[0]) {warn "You must specify 'obj_id', aborting\n"; pod2usage(); } 
    6565 
    6666my $LA = LATMOS::Accounts->new($config, noacl => 1); 

  • LATMOS-Accounts/bin/la-group

    r655 r656  
    5959=cut 
    6060 
    61 if (!$ARGV[0]||!ARGV[1]) {print "You must specify 'group' and 'user1', aborting\n"; pod2usage(); } 
     61if (!$ARGV[0]||!ARGV[1]) {warn "You must specify 'group' and 'user1', aborting\n"; pod2usage(); } 
    6262 
    6363my $LA = LATMOS::Accounts->new($config, noacl => 1); 

  • LATMOS-Accounts/bin/la-passwd

    r655 r656  
    4343) or pod2usage(); 
    4444 
    45 if (!$ARGV[0]) {print "You must specify 'userid', aborting\n"; pod2usage(); } 
     45if (!$ARGV[0]) {warn "You must specify 'userid', aborting\n"; pod2usage(); } 
    4646 
    4747my $otype = 'user'; 

  • LATMOS-Accounts/bin/la-search

    r655 r656  
    7676) or pod2usage(); 
    7777 
    78 if (!$ARGV[0]) {print "You must specify 'filter', aborting\n"; pod2usage(); } 
     78if (!$ARGV[0]) {warn "You must specify 'filter', aborting\n"; pod2usage(); } 
    7979 
    8080$otype ||= 'user'; 
Note: See TracChangeset for help on using the changeset viewer.