Rev 330 | Rev 332 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 330 | Rev 331 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | #!/usr/bin/perl -w
|
1 | #!/usr/bin/perl -w
|
2 | use strict; |
2 | use strict; |
3 | # $Id: inventory.pl 330 2008-12-29 19:49:46Z agaran $
|
3 | # $Id: inventory.pl 331 2008-12-29 20:05:13Z 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 | ||
Line 71... | Line 71... | ||
71 | print "Basic help\n\t--showrc|showconf shows current configuration\n". |
71 | print "Basic help\n\t--showrc|showconf shows current configuration\n". |
72 | "\t--docdir|-d <dir> tells script where information.txt files should be searched\n". |
72 | "\t--docdir|-d <dir> tells script where information.txt files should be searched\n". |
73 | "\t--define <something>=<somethingelseornot> defines some configration value\n". |
73 | "\t--define <something>=<somethingelseornot> defines some configration value\n". |
74 | "\t--verbose|-v [level] sets verbosity level\nOrder of options DOES matter\n". |
74 | "\t--verbose|-v [level] sets verbosity level\nOrder of options DOES matter\n". |
75 | "\t--bomdir|-b <dir> tells script where boms should be searched\n". |
75 | "\t--bomdir|-b <dir> tells script where boms should be searched\n". |
76 | "\t--output|-o <file> tells where script shall save output data\n". |
76 | "\t--outfile|-o <file> tells where script shall save output data\n". |
77 | "\t--force|-f forces script to save data even if file exist already\n"; |
77 | "\t--force|-f forces script to save data even if file exist already\n"; |
78 | 78 | ||
79 | print "\t\e[0;31mThis Help Is created especially for \e[0;33mJelle\e[0;29m\n". |
79 | print "\t\e[0;31mThis Help Is created especially for \e[0;33mJelle\e[0;29m\n". |
80 | "\tThis script search all directories below specified ones to find interesting files\n"; |
80 | "\tThis script search all directories below specified ones to find interesting files\n"; |
81 | return; |
81 | return; |