bike
/
gbootroot
mirror of https://github.com/fspc/gbootroot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

This properly deals with differening mconsole locations.

master
freesource 23 years ago
parent
802f6eef91
commit
bf98923042
1 changed files with 33 additions and 38 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 59
      BootRoot/BootRoot.pm

59
BootRoot/BootRoot.pm
View File

@ -1281,7 +1281,7 @@ sub uml_box {
$main_vbox->show();
##my $table_uml = Gtk::Table->new( 4, 3, $true );
my $table_uml = Gtk::Table->new( 5, 4, $false );
my $table_uml = Gtk::Table->new( 5, 6, $false );
##$main_vbox->pack_start( $table_uml, $true, $true, 0 );
$main_vbox->pack_start( $table_uml, $true, $false, 0 );
$table_uml->show();
@ -1356,18 +1356,6 @@ sub uml_box {
[14]);
# Figure out whether it's an old mconsole location
# or new.
my $umid_location = "/tmp/uml//mconsole";
if ( -S "/tmp/uml/$umid/mconsole" ) {
$umid_location = "/tmp/uml/$umid/mconsole";
}
elsif ( -S "$ENV{HOME}/.uml/$umid/mconsole" ) {
$umid_location = "$ENV{HOME}/.uml/$umid/mconsole";
}
# cad
if ( $entry_advanced[14] &&
$entry_advanced[14] =~ m,cad, ) {
@ -1378,7 +1366,7 @@ sub uml_box {
{
sys(
"uml_mconsole " .
$umid_location .
$umid .
" cad");
}
@ -1398,7 +1386,7 @@ sub uml_box {
{
sys(
"uml_mconsole " .
$umid_location .
$umid .
" help");
}
@ -1419,7 +1407,7 @@ sub uml_box {
{
sys(
"uml_mconsole " .
$umid_location .
$umid .
" version");
}
@ -1440,7 +1428,7 @@ sub uml_box {
{
system
"uml_mconsole " .
$umid_location .
$umid .
" reboot&";
}
@ -1459,7 +1447,7 @@ sub uml_box {
{
system
"uml_mconsole " .
$umid_location .
$umid .
" halt&";
}
@ -1482,13 +1470,13 @@ sub uml_box {
^m$ | ^p$ | ^r$ | ^s$ | ^t$ | ^u$,x ) {
system
"uml_mconsole " .
$umid_location .
$umid .
" sysrq $command_parts[$co + 1]&";
}
else {
system
"uml_mconsole " .
$umid_location .
$umid .
" sysrq&";
}
@ -1510,7 +1498,7 @@ sub uml_box {
sys(
"uml_mconsole " .
$umid_location .
$umid .
" switch $command_parts[$co + 1]");
$umid = $command_parts[$co + 1];
@ -1533,7 +1521,7 @@ sub uml_box {
{
system
"uml_mconsole " .
$umid_location .
$umid .
" config " .
"$command_parts[$co + 1]&";
@ -1554,7 +1542,7 @@ sub uml_box {
{
system
"uml_mconsole " .
$umid_location .
$umid .
" remove " .
"$command_parts[$co + 1]&";
@ -1581,11 +1569,19 @@ sub uml_box {
"Append with ubd?=.",
"" );
#_______________________________________
# MTD
#label_advanced("MTD:",0,1,3,4,$table_uml);
#label_advanced("MTD:",0,1,4,5,$table_uml);
$table_uml->set_row_spacing( 2, 4);
#_______________________________________
# Submit Button
my $submit_b = button_advanced(0,1,3,4,"Submit",$table_uml);
my $submit_b = button_advanced(0,1,5,6,"Submit",$table_uml);
$tooltips->set_tip( $submit_b,
"Start uml kernel processes.",
"" );
@ -1655,7 +1651,7 @@ sub uml_box {
# This is the hard kill when all else fails, it also cleans up
# lingering processess, but is considered a last resort, and
# can be dangerous, it has even taken down a WM.
my $abort_b = button_advanced(3,4,3,4,"Abort",$table_uml);
my $abort_b = button_advanced(3,4,5,6,"Abort",$table_uml);
$tooltips->set_tip( $abort_b,
"Abort uml kernel processes." .
"This serves three purposes:\n" .
@ -1685,7 +1681,7 @@ sub uml_box {
#_______________________________________
# Reboot Button - mconsole
my $reboot_b = button_advanced(1,2,3,4,"Reboot",$table_uml);
my $reboot_b = button_advanced(1,2,5,6,"Reboot",$table_uml);
$tooltips->set_tip( $reboot_b,
"Passes the reboot command to the mconsole.",
"" );
@ -1696,15 +1692,14 @@ sub uml_box {
m,\s*umid=([\w\d-]+)\s*,;
$umid = $1 if !$umid;
system
"uml_mconsole /tmp/uml/$umid/mconsole" .
"uml_mconsole $umid" .
" reboot&";
} );
#_______________________________________
# Halt Button - mconsole
my $halt_b = button_advanced(2,3,3,4,"Halt",$table_uml);
my $halt_b = button_advanced(2,3,5,6,"Halt",$table_uml);
$tooltips->set_tip( $halt_b,
"Passes the halt command to the mconsole. " .
"If this fails use the Abort button.",
@ -1716,13 +1711,13 @@ sub uml_box {
m,\s*umid=([\w\d-]+)\s*,;
$umid = $1 if !$umid;
system
"uml_mconsole /tmp/uml/$umid/mconsole" .
"uml_mconsole $umid" .
" halt&";
} );
#_______________________________________
# Cancel button also kills UML kernel if still open
my $cancel_b = button_advanced(4,5,3,4,"Close",$table_uml);
my $cancel_b = button_advanced(4,5,5,6,"Close",$table_uml);
$tooltips->set_tip( $cancel_b,
"Close uml box.",
"" );
@ -1738,7 +1733,7 @@ sub uml_box {
$uml_window->destroy;
}
}
} # sub uml_box
# Someday .. like today .. this will be switched to using mconsole as the
# first means of cleaning processes:

Write Preview
Loading…
Cancel
Save