Rev 6 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 6 | Rev 13 | ||
|---|---|---|---|
| Line 46... | Line 46... | ||
| 46 | # First things first - figure out how we need to be configured. |
46 | # First things first - figure out how we need to be configured. |
| 47 | 47 | ||
| 48 | use Getopt::Long qw(:config pass_through); |
48 | use Getopt::Long qw(:config pass_through); |
| 49 | use DebPool::Config qw(:functions :vars); |
49 | use DebPool::Config qw(:functions :vars); |
| 50 | 50 | ||
| - | 51 | my($help); |
|
| - | 52 | GetOptions('help!' => \$help);
|
|
| - | 53 | if (defined($help)) {
|
|
| - | 54 | #23456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 | |
|
| - | 55 | print "Usage: debpool [Options] |
|
| - | 56 | Pool-based Debian package archive manager |
|
| - | 57 | ||
| - | 58 | --config=configfile May be issued multiple times; each time it is used, it will |
|
| - | 59 | add the named config file to the list which DebPool will |
|
| - | 60 | load (later config files override earlier ones, in case of |
|
| - | 61 | any conflicts). |
|
| - | 62 | --daemon Run debpool as a daemon. |
|
| - | 63 | --debug Run debpool in debug mode. Identical to daemon mode but |
|
| - | 64 | remains in foreground. |
|
| - | 65 | --help Displays this help text. |
|
| - | 66 | --dumpdb Dumps the debpool database. |
|
| - | 67 | --log_file=filename Send logging output to the specified filename. |
|
| - | 68 | --rebuild-files Forces all of the distribution files (Packages and Sources) |
|
| - | 69 | to be rebuilt. |
|
| - | 70 | --rebuild-dbs Forces all of the metadata files to be rebuilt from scratch. |
|
| - | 71 | WARNING: This feature is not yet implemented |
|
| - | 72 | --rebuild-all Turn on all other rebuild options (currently --rebuild-files |
|
| - | 73 | and --rebuild-dbs). |
|
| - | 74 | WARNING: This feature depends on rebuild-dbs, which is not |
|
| - | 75 | yet implemented; only the --rebuild-files section will be |
|
| - | 76 | triggered. |
|
| - | 77 | ||
| - | 78 | "; |
|
| - | 79 | ||
| - | 80 | exit(0); |
|
| - | 81 | } |
|
| - | 82 | ||
| 51 | # First, grab --config and --nodefault options if they exist. We |
83 | # First, grab --config and --nodefault options if they exist. We |
| 52 | # don't want these in the %Options hash, and they affect what we do when |
84 | # don't want these in the %Options hash, and they affect what we do when |
| 53 | # loading it. |
85 | # loading it. |
| 54 | 86 | ||
| 55 | my(@config_files); |
87 | my(@config_files); |