|
@ -49,6 +49,7 @@ my $tmp1 = "/tmp"; # tmp should be default - Cristian |
|
|
my $lilo_conf = "/etc/lilo.conf"; |
|
|
my $lilo_conf = "/etc/lilo.conf"; |
|
|
my $pwd = `pwd`; chomp $pwd; |
|
|
my $pwd = `pwd`; chomp $pwd; |
|
|
my $home; |
|
|
my $home; |
|
|
|
|
|
$option{home} = $option{gui_mode} if $option{gui_mode}; |
|
|
$option{home} ? ($home = $pwd) : ($home = "$ENV{HOME}/.gbootroot"); |
|
|
$option{home} ? ($home = $pwd) : ($home = "$ENV{HOME}/.gbootroot"); |
|
|
my $uml_xterm = "xterm -e"; |
|
|
my $uml_xterm = "xterm -e"; |
|
|
|
|
|
|
|
@ -63,13 +64,16 @@ my $uml_xterm = "xterm -e"; |
|
|
# and to make sure modules are correct in Initrd.gz |
|
|
# and to make sure modules are correct in Initrd.gz |
|
|
# apply special patches |
|
|
# apply special patches |
|
|
|
|
|
|
|
|
my $version = "1.3.6"; |
|
|
my $version = "1.4.0"; |
|
|
my $date = "03.10.2002"; |
|
|
my $date = "11.19.2002"; |
|
|
my $gtk_perl_version = "0.7002"; |
|
|
my $gtk_perl_version = "0.7002"; |
|
|
my $home_rootfs = "$home/root_filesystem/"; |
|
|
my $home_rootfs = "$home/root_filesystem/"; |
|
|
my $home_uml_kernel = "$home/uml_kernel/"; |
|
|
my $home_uml_kernel = "$home/uml_kernel/"; |
|
|
my $modules_directory = "/lib/modules"; |
|
|
my $modules_directory = "/lib/modules"; |
|
|
my $Initrd = "/usr/lib/bootroot/root_filesystem/Initrd.gz"; |
|
|
my $Initrd; |
|
|
|
|
|
$option{gui_mode} ? |
|
|
|
|
|
($Initrd = $home_rootfs . "Initrd.gz") |
|
|
|
|
|
: ($Initrd = "/usr/lib/bootroot/root_filesystem/Initrd.gz"); |
|
|
|
|
|
|
|
|
# This is for experimental stuff .. basically so I can test |
|
|
# This is for experimental stuff .. basically so I can test |
|
|
# the boot fs as a normal user, since it's hard to create a boot disk |
|
|
# the boot fs as a normal user, since it's hard to create a boot disk |
|
@ -254,7 +258,6 @@ if ( $> != 0 && -e "/usr/lib/bootroot/genext2fs" ) { |
|
|
$main::makefs = "genext2fs -z -r0"; # -i8192 not a good idea |
|
|
$main::makefs = "genext2fs -z -r0"; # -i8192 not a good idea |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SIG{INT} = \&signal; |
|
|
$SIG{INT} = \&signal; |
|
|
$SIG{ABRT} = \&signal; |
|
|
$SIG{ABRT} = \&signal; |
|
|
$SIG{TERM} = \&signal; |
|
|
$SIG{TERM} = \&signal; |
|
@ -350,7 +353,7 @@ my $verbosity = 1; # info & sys use this as Global |
|
|
$verbosefn = "$tmp/verbose"; # All verbosity |
|
|
$verbosefn = "$tmp/verbose"; # All verbosity |
|
|
#my $verbosefn = "/tmp/verbose"; # Yard - always logged, but 0&1 = STDOUT |
|
|
#my $verbosefn = "/tmp/verbose"; # Yard - always logged, but 0&1 = STDOUT |
|
|
|
|
|
|
|
|
if ( !%option ) { |
|
|
if ( !%option || $option{gui_mode} ) { |
|
|
if ( !$::commandline ) { |
|
|
if ( !$::commandline ) { |
|
|
|
|
|
|
|
|
# Need this before everything. |
|
|
# Need this before everything. |
|
@ -367,6 +370,11 @@ if ( !%option ) { |
|
|
# /tmp |
|
|
# /tmp |
|
|
home_builder($tmp1); |
|
|
home_builder($tmp1); |
|
|
|
|
|
|
|
|
|
|
|
# gbootroot will need to be run at least once without options to make these |
|
|
|
|
|
# directories |
|
|
|
|
|
if ( !%option ) { |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# $HOME/.gbootroot/root_filesystem |
|
|
# $HOME/.gbootroot/root_filesystem |
|
|
home_builder($home_rootfs); |
|
|
home_builder($home_rootfs); |
|
|
|
|
|
|
|
@ -376,7 +384,8 @@ symlink_builder("/usr/bin/linux","$home_uml_kernel/linux"); |
|
|
if (!-e "$home_uml_kernel/.options") { |
|
|
if (!-e "$home_uml_kernel/.options") { |
|
|
open(OPTIONS,">$home_uml_kernel/.options") |
|
|
open(OPTIONS,">$home_uml_kernel/.options") |
|
|
or die "Couldn't write $home_uml_kernel/.options at $?\n"; |
|
|
or die "Couldn't write $home_uml_kernel/.options at $?\n"; |
|
|
# I removed mem=16M to make sure the optimal mem size was being chosen for the MTD Emulator |
|
|
# I removed mem=16M to make sure the optimal mem size was being |
|
|
|
|
|
# chosen for the MTD Emulator |
|
|
# in case the user didn't know any better. |
|
|
# in case the user didn't know any better. |
|
|
print OPTIONS "umid=bootroot root=/dev/ubd0\n"; |
|
|
print OPTIONS "umid=bootroot root=/dev/ubd0\n"; |
|
|
close(OPTIONS); |
|
|
close(OPTIONS); |
|
@ -437,10 +446,11 @@ if ( -d $global_yard_replacements_arch_dep ) { |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} # !%options |
|
|
|
|
|
|
|
|
#------------------------------- |
|
|
#------------------------------- |
|
|
|
|
|
|
|
|
if ( !%option ) { |
|
|
if ( !%option || $option{gui_mode} ) { |
|
|
if ( !$::commandline ) { |
|
|
if ( !$::commandline ) { |
|
|
|
|
|
|
|
|
# Gtk::check_version expects different arguments than .7004 so will have |
|
|
# Gtk::check_version expects different arguments than .7004 so will have |
|
@ -462,9 +472,10 @@ if ( !%option ) { |
|
|
|
|
|
|
|
|
my $window; |
|
|
my $window; |
|
|
|
|
|
|
|
|
if ( !%option ) { |
|
|
if ( !%option || $option{gui_mode} ) { |
|
|
if ( !$::commandline ) { |
|
|
if ( !$::commandline ) { |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$window = Gtk::Window->new("toplevel"); |
|
|
$window = Gtk::Window->new("toplevel"); |
|
|
# special policy |
|
|
# special policy |
|
|
$window->set_policy( $false, $true, $true ); |
|
|
$window->set_policy( $false, $true, $true ); |
|
@ -929,7 +940,7 @@ if ( $method eq "yard" ) { |
|
|
|
|
|
|
|
|
###################################################### |
|
|
###################################################### |
|
|
|
|
|
|
|
|
} # end if !$::commandline |
|
|
} # end if !$::commandline || $option{gui_mode} |
|
|
|
|
|
|
|
|
} # end start |
|
|
} # end start |
|
|
|
|
|
|
|
|