Rev 325 | Rev 327 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 325 | Rev 326 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | #!/usr/bin/perl -w
|
1 | #!/usr/bin/perl -w
|
2 | use strict; |
2 | use strict; |
3 | # $Id: inventory.pl 325 2008-12-29 15:38:59Z agaran $
|
3 | # $Id: inventory.pl 326 2008-12-29 17:18:46Z agaran $
|
4 | # Thu, 13 Nov 2008 21:06:23 +0100
|
4 | # Thu, 13 Nov 2008 21:06:23 +0100
|
5 | # Maciej 'agaran' Pijanka <agaran@pld-linux.org>
|
5 | # Maciej 'agaran' Pijanka <agaran@pld-linux.org>
|
6 | # for OpenARM SBC Project
|
6 | # for OpenARM SBC Project
|
7 | # license: gpl v3
|
7 | # license: gpl v3
|
8 | 8 | ||
9 | 9 | ||
10 | use Getopt::Long qw//; |
10 | use Getopt::Long qw//; |
11 | use File::Basename qw/basename/; |
11 | use File::Basename qw/basename/; |
12 | use IO::Dir; |
12 | use IO::Dir; |
13 | use IO::File; |
13 | use IO::File; |
14 | use Text::Table; |
- | |
15 | 14 | ||
16 | use lib File::Basename::dirname($0).'/lib'; |
15 | use lib File::Basename::dirname($0).'/lib'; |
- | 16 | use Text::Table; |
|
17 | 17 | ||
18 | 18 | ||
19 | my %Config; |
19 | my %Config; |
20 | 20 | ||
21 | # ==================================================
|
21 | # ==================================================
|