diff --git a/gBootRoot b/gBootRoot index 511d515..0317da3 100644 --- a/gBootRoot +++ b/gBootRoot @@ -114,10 +114,14 @@ my $version = "1.2.2"; my $date = "09.03.2000"; my $gtk_perl_version = "0.7002"; my $pwd = `pwd`; chomp $pwd; -my $template_dir = "./"; my $home_rootfs = "$home/root_filesystem/"; my $home_uml_kernel = "$home/uml_kernel/"; +# Yard Stuff +my $home_yard = "$home/yard"; +my $template_dir = "$home_yard/templates"; +my $home_yard_replacements = "$home_yard/replacements"; + my $initrd; my $compress; my $false = 0; @@ -246,6 +250,7 @@ home_builder($home_rootfs); # $HOME/.gbootroot/uml_kernel home_builder($home_uml_kernel); +symlink_builder("/usr/bin/linux","$home_uml_kernel/linux"); if (!-e "$home_uml_kernel/.options") { open(OPTIONS,">$home_uml_kernel/.options") or die "Couldn't write $home_uml_kernel/.options at $?\n"; @@ -253,6 +258,27 @@ if (!-e "$home_uml_kernel/.options") { close(OPTIONS); } +# $HOME/.gbootroot/yard/templates +home_builder($template_dir); + +# $HOME/.gbootroot/yard/replacements +home_builder($home_yard_replacements); + +# Basically so different users get the same things in +# their personal directories. +sub symlink_builder { + + my ($oldfile,$newfile) = @_; + + if (!-e $newfile && !-l $newfile) { + my $error; + symlink($oldfile,$newfile) or + ($error = error("Can not make symlink to $oldfile + from $newfile.\n")); + } + +} + sub home_builder { my ($home_builder) = @_;