48,38 → 48,6 |
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. |