Rev 318 | Rev 322 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 318 | Rev 319 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | #!/usr/bin/perl -w
|
1 | #!/usr/bin/perl -w
|
2 | use strict; |
2 | use strict; |
3 | # $Id: inventory.pl 318 2008-12-29 10:58:58Z agaran $
|
3 | # $Id: inventory.pl 319 2008-12-29 11:08:59Z 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 62... | Line 62... | ||
62 | printf "Help for %s\n----------------------------------------\n", basename($0); |
62 | printf "Help for %s\n----------------------------------------\n", basename($0); |
63 | unless (defined($_[1]) && length($_[1]) != 0) { |
63 | unless (defined($_[1]) && length($_[1]) != 0) { |
64 | print "Basic help\n\t--showrc|showconf shows current configuration\n". |
64 | print "Basic help\n\t--showrc|showconf shows current configuration\n". |
65 | "\t--docdir|-d <dir> tells script where information.txt files should be searched\n". |
65 | "\t--docdir|-d <dir> tells script where information.txt files should be searched\n". |
66 | "\t--define <something>=<somethingelseornot> defines some configration value\n". |
66 | "\t--define <something>=<somethingelseornot> defines some configration value\n". |
67 | "\t--verbose|-v [level] sets verbosity level\nOrder of options DOES matter\n"; |
67 | "\t--verbose|-v [level] sets verbosity level\nOrder of options DOES matter\n". |
- | 68 | "\t--bomdir|-b <dir> tells script where boms should be searched\n"; |
|
- | 69 | ||
- | 70 | print "\t\e[0;31mThis Help Is created especially for \e[0;33mJelle\e[0;29m\n". |
|
- | 71 | "\tThis script search all directories below specified ones to find interesting files\n"; |
|
68 | return; |
72 | return; |
69 | }
|
73 | }
|
70 | if ($_[1] =~ /^foo$/) { |
74 | if ($_[1] =~ /^foo$/) { |
71 | print "Noo, there is no foo's here\n"; |
75 | print "Noo, there is no foo's here\n"; |
72 | } else { |
76 | } else { |
Line 362... | Line 366... | ||
362 | return 0; |
366 | return 0; |
363 | }
|
367 | }
|
364 | 368 | ||
365 | Getopt::Long::Configure("bundling"); |
369 | Getopt::Long::Configure("bundling"); |
366 | 370 | ||
- | 371 | if (scalar @ARGV == 0) { |
|
- | 372 | Help_Show(); |
|
- | 373 | exit; |
|
- | 374 | }
|
|
- | 375 | ||
367 | my $result = Getopt::Long::GetOptions ( |
376 | my $result = Getopt::Long::GetOptions ( |
368 | "showrc|showconf" => sub { $show_conf = 1 }, |
377 | "showrc|showconf" => sub { $show_conf = 1 }, |
369 | "docdir|d=s" => sub { $Config{docdir} = $_[1]; }, |
378 | "docdir|d=s" => sub { $Config{docdir} = $_[1]; }, |
370 | # not sure if bomdir or SCH dir
|
379 | # not sure if bomdir or SCH dir
|
371 | "bomdir|b=s" => sub { $Config{$_[0]} = $_[1]; }, # $_[0] contain basename of option, so in few cases could be (ab)used |
380 | "bomdir|b=s" => sub { $Config{$_[0]} = $_[1]; }, # $_[0] contain basename of option, so in few cases could be (ab)used |
Line 441... | Line 450... | ||
441 | printf PARTMAP "%-35s|%s\n", shortstring($Inv[$id]{Description},35), join (', ', @{$BomData{$id}{RefDes}}); |
450 | printf PARTMAP "%-35s|%s\n", shortstring($Inv[$id]{Description},35), join (', ', @{$BomData{$id}{RefDes}}); |
442 | $cost += $icost; |
451 | $cost += $icost; |
443 | # %BomData{ById}{$id}{RefDes}
|
452 | # %BomData{ById}{$id}{RefDes}
|
444 | $n ++; |
453 | $n ++; |
445 | }
|
454 | }
|
446 | printf BOMOUT "|%s|\n| %-118s|\n|%s|\n", ("-" x 119), sprintf ("Total cost: %.3f", $cost), ("-" x 119); |
455 | printf BOMOUT "|%s|\n| %-118s|\n|%s|\n", ("-" x 119), sprintf ("Total cost: %.3f, generated at %s", $cost, scalar localtime(time())), ("-" x 119); |
447 | 456 | ||
448 | close BOMOUT; |
457 | close BOMOUT; |
449 | close PARTMAP; |
458 | close PARTMAP; |