| 48,6 → 48,38 |
|---|
| use Getopt::Long qw(:config pass_through); |
| use DebPool::Config qw(:functions :vars); |
| |
| my($help); |
| GetOptions('help!' => \$help); |
| if (defined($help)) { |
| #23456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 | |
| print "Usage: debpool [Options] |
| Pool-based Debian package archive manager |
| |
| --config=configfile May be issued multiple times; each time it is used, it will |
| add the named config file to the list which DebPool will |
| load (later config files override earlier ones, in case of |
| any conflicts). |
| --daemon Run debpool as a daemon. |
| --debug Run debpool in debug mode. Identical to daemon mode but |
| remains in foreground. |
| --help Displays this help text. |
| --dumpdb Dumps the debpool database. |
| --log_file=filename Send logging output to the specified filename. |
| --rebuild-files Forces all of the distribution files (Packages and Sources) |
| to be rebuilt. |
| --rebuild-dbs Forces all of the metadata files to be rebuilt from scratch. |
| WARNING: This feature is not yet implemented |
| --rebuild-all Turn on all other rebuild options (currently --rebuild-files |
| and --rebuild-dbs). |
| WARNING: This feature depends on rebuild-dbs, which is not |
| yet implemented; only the --rebuild-files section will be |
| triggered. |
| |
| "; |
| |
| exit(0); |
| } |
| |
| # First, grab --config and --nodefault options if they exist. We |
| # don't want these in the %Options hash, and they affect what we do when |
| # loading it. |