gBootRoot pronounced "bOOtrOOt"
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

84 lines
2.6 KiB

############################################################################
##
## Options.pm
## Copyright (C) 2000, 2001, 2002, 2003 by Jonathan Rosenbaum
## <freesource@users.sourceforge.net>
##
## This program is free software; you may redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
##
##############################################################################
package BootRoot::Options;
use vars qw(@ISA @EXPORT %EXPORT_TAGS);
use Exporter;
use Getopt::Long;
@ISA = qw(Exporter);
@EXPORT = qw(option %option);
sub option {
Getopt::Long::config("bundling","no_auto_abbrev");
GetOptions (
\%option,
22 years ago
"h",
"help",
"root-filename=s",
"uml-kernel=s",
"method=s",
"template=s", # The only required argument
"filesystem-size=s",
"filesystem-command=s",
"uml-exclusively=s", # on/off
"preserve-ownership=s",
"kernel=s",
"kernel-version=s",
22 years ago
"genext2fs-dir=s", # /usr/lib/bootroot/
"no-stdout",
"uml-options=s",
# hidden options - well, sort of - for package making or for
# people who read the source Luke. Path's relative to `pwd`.
# home by itself allows the GUI to be tested in it's
# immediate directory, this overcomes the need to always
# install stuff locally to test it.
# It translates to gui_mode and lets the program know that
# Initrd.gz, genext2fs, linuxbr, and root_fs_helper
# be used in the directory specified.
# So "perl -I . ./gbootroot --home ." will test in the
# immediate directory. Good for CVS development, and
# testing for those who don't want to install.
# Also output will go to stdout which is cool.
# "home" with "template" needs the additional options to
# choose immediate dir., for instance, genext2fs.
22 years ago
"home=s", # by itself = GUI
# path relative to `pwd` usually "."
"root-fs-helper=s", # full path or rel path
# in Yard $ubd0
"expect-program=s", # i.e. ./expect_uml
);
}
1;