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); |