bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2026-09-14 07:31:41 -04:00
Code Issues Projects Releases Wiki Activity

Now gbootroot is functioning well as either a GUI or CLI in relation to whether or not arguments are added. Options.pm allows things to be checked before interpreting so that a determination can be made what mode to go in.

Browse Source
This commit is contained in:
freesource
2002-11-14 00:54:50 +00:00
parent 8db50ec6ac
commit 830a1c109a
4 changed files with 123 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BootRoot/BootRoot.pm
+28 -36
View File
@@ -31,13 +31,13 @@ use Exporter;
use strict;
use POSIX;
use Getopt::Long; # only here for convenience
use BootRoot::Yard;
use BootRoot::YardBox;
use BootRoot::Error;
use File::Basename;
use File::Find;
use File::Path;
use BootRoot::Options;
$SIG{__WARN__} =
sub { warn @_ unless $_[0] =~ /Subroutine [\w:]+ redefined/io
@@ -349,13 +349,16 @@ my $verbosity = 1; # info & sys use this as Global
$verbosefn = "$tmp/verbose"; # All verbosity
#my $verbosefn = "/tmp/verbose"; # Yard - always logged, but 0&1 = STDOUT
# Need this before everything.
Gtk::Rc->parse("/etc/gbootroot/gbootrootrc");
if ( !%option ) {
if ( !$::commandline ) {
# Need this before everything.
Gtk::Rc->parse("/etc/gbootroot/gbootrootrc");
verbosity_box();
start_logging_output($verbosefn,$verbosity); # Yard "tmp dir name"
# "verbosity level"
}
if ( !$::commandline ) {
verbosity_box();
start_logging_output($verbosefn,$verbosity); # Yard "tmp dir name"
# "verbosity level"
}
#-------------------------------
@@ -436,27 +439,30 @@ if ( -d $global_yard_replacements_arch_dep ) {
#-------------------------------
if ( !$::commandline ) {
if ( !%option ) {
if ( !$::commandline ) {
# Gtk::check_version expects different arguments than .7004 so will have
# to check for the version instead.
# Right now >= 0.7002 is o.k.
#if (Gtk::check_version(undef,"1","0","7") =~ /too old/) {
if (Gtk->major_version < 1) {
et();
}
elsif (Gtk->micro_version < 7) {
et();
}
elsif (Gtk->minor_version < 2) {
et();
if (Gtk->major_version < 1) {
et();
}
elsif (Gtk->micro_version < 7) {
et();
}
elsif (Gtk->minor_version < 2) {
et();
}
}
}
my $window;
if ( !$::commandline ) {
if ( !%option ) {
if ( !$::commandline ) {
$window = Gtk::Window->new("toplevel");
# special policy
@@ -721,6 +727,7 @@ $box2->show();
$window->show();
}
}
# Here we put the logic if the program is going to be run from the commandline.
@@ -792,32 +799,17 @@ else {
# Let's read in the ARGV
my %option;
Getopt::Long::config("bundling","no_auto_abbrev");
GetOptions (
%option,
"root-filename=s",
"uml-kernel=s",
"method=s",
"template=s", # The only required argument
"filesystem-size=s",
"filesytem-type=s",
"uml-exclusively=s",
"preserve-ownership=s",
"kernel-version=s",
);
start_logging_output($verbosefn,$verbosity); # Yard "tmp dir name"
# "verbosity level"
info(1, "hello there\n");
#info(1, "hello there\n");
my $it = kernel_version_check();
print $it;
# read_contents_file( "$template_dir$template", $tmp,
# $filesystem_size, \%uml_expect );