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 | # ==================================================
|