mirror of
https://github.com/fspc/gbootroot.git
synced 2025-03-04 11:53:26 -05:00
Reiserfs is working now.
This commit is contained in:
parent
dac4e56455
commit
d4a264f475
21
expect_uml
21
expect_uml
@ -11,8 +11,27 @@ if ( !$ARGV[0] ) {
|
|||||||
|
|
||||||
my $arguments = "$ARGV[0] $ARGV[1] $ARGV[2]";
|
my $arguments = "$ARGV[0] $ARGV[1] $ARGV[2]";
|
||||||
my $mount_point = "$ARGV[3]";
|
my $mount_point = "$ARGV[3]";
|
||||||
my $filesystem = "$ARGV[4];
|
|
||||||
|
|
||||||
|
my $end = 5;
|
||||||
|
my $filesystem;
|
||||||
|
for ( 4 .. $end ) {
|
||||||
|
if ( $_ == 4 ) {
|
||||||
|
$filesystem = "$ARGV[4]";
|
||||||
|
# What to do with the rieserfs command
|
||||||
|
if ( $filesystem eq "mkreiserfs" ) {
|
||||||
|
$filesystem = $filesystem . " -f -f -q";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
if ( $ARGV[$end] ) {
|
||||||
|
$filesystem = $filesystem . " $ARGV[$end]";
|
||||||
|
$end++;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
my $uml =
|
my $uml =
|
||||||
BootRoot::UML->new( login_prompt => "bootroot login: ",
|
BootRoot::UML->new( login_prompt => "bootroot login: ",
|
||||||
|
Loading…
x
Reference in New Issue
Block a user