source: LATMOS-Accounts/bin/la-acls @ 315

Last change on this file since 315 was 315, checked in by nanardon, 15 years ago
  • add script to test acls and eventually dump it
File size: 489 bytes
Line 
1#!env perl
2
3use strict;
4use warnings;
5use LATMOS::Accounts::Acls;
6use Getopt::Long;
7use Pod::Usage;
8
9=head1 NAME
10
11    la-acls - Test acls file
12
13=head1 SYNOPSIS
14
15    la-acls [-d] acl_file
16
17=cut
18
19GetOptions(
20    'd|dump' => \my $dump,
21    'help'       => sub { pod2usage(0) },
22) or pod2usage();
23
24=head1 OPTIONS
25
26=over 4
27
28=item -d: dump the acl list content
29
30=back
31
32=cut
33
34if(my $acls = LATMOS::Accounts::Acls->new($ARGV[0])) {
35    $acls->dump if ($dump);
36    exit 0;
37} else {
38    exit 1;
39}
40
41
Note: See TracBrowser for help on using the repository browser.