equal
deleted
inserted
replaced
34 exit main @ARGV; |
34 exit main @ARGV; |
35 |
35 |
36 #---- |
36 #---- |
37 |
37 |
38 sub main { |
38 sub main { |
|
39 my @opt_ignore; |
39 |
40 |
40 GetOptions( |
41 GetOptions( |
|
42 'i|ignore=s@' => \@opt_ignore, |
41 'h|help' => sub { pod2usage(-verbose => 1, -exit => 0) }, |
43 'h|help' => sub { pod2usage(-verbose => 1, -exit => 0) }, |
42 'm|man' => sub { pod2usage(-verbose => 2, -exit => 0) }, |
44 'm|man' => sub { pod2usage(-verbose => 2, -exit => 0) }, |
43 ) or pod2usage; |
45 ) or pod2usage; |
44 |
|
45 |
46 |
46 # test needs to be run as root:* or as backup:backup |
47 # test needs to be run as root:* or as backup:backup |
47 my $USER = 'backup'; |
48 my $USER = 'backup'; |
48 my $CFDIR = '/etc/amanda'; |
49 my $CFDIR = '/etc/amanda'; |
49 |
50 |
232 |
233 |
233 =head1 OPTIONS |
234 =head1 OPTIONS |
234 |
235 |
235 =over |
236 =over |
236 |
237 |
|
238 =item B<-i>|B<--ignore> I<filesystem> |
|
239 |
|
240 The name of a filesystem to be ignored. |
|
241 |
237 =item B<-h>|B<--help> |
242 =item B<-h>|B<--help> |
238 |
243 |
239 Show a short description and help text. |
244 Show a short description and help text. |
240 |
245 |
241 =item B<-m>|B<--man> |
246 =item B<-m>|B<--man> |