Subversion Repositories OpenARM Single-board Computer

Rev

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