bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-22 08:33:24 -05:00
Code Issues Projects Releases Wiki Activity

Added an abort button, but will have to watch for unwanted async replies.

Browse Source
This commit is contained in:
freesource 2001-07-29 06:45:27 +00:00
parent f0c6a667fa
commit fdd9a07616
1 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gBootRoot
View File

@ -1064,7 +1064,7 @@ sub uml_box {
#_______________________________________
# Submit Button
my $submit_b = button_advanced(0,2,3,4,"Submit",$table_uml);
my $submit_b = button_advanced(0,1,3,4,"Submit",$table_uml);
$submit_b->signal_connect("clicked",
sub {
# UML kernel = $entry_advanced[5]
@ -1082,14 +1082,26 @@ sub uml_box {
# sys ("perl -e 'system \"$entry_advanced[8] $entry_advanced[5] $entry_advanced[9] $entry_advanced[10]\";'");
} );
#_______________________________________
# Cancel button also kills UML kernel if still open
my $abort_b = button_advanced(1,2,3,4,"Abort",$table_uml);
$abort_b->signal_connect("clicked",
sub {
if ($entry_advanced[10]) {
# Most stuff
remove_matching_process($entry_advanced[10]);
# Debian
remove_matching_process("Virtual Console");
remove_matching_process($entry_advanced[10]);
}
} );
#_______________________________________
# Cancel button also kills UML kernel if still open
my $cancel_b = button_advanced(2,3,3,4,"Cancel",$table_uml);
$cancel_b->signal_connect("clicked",
sub {
# This has to be improved .. don't
# want other processes killed
# remove_matching_process("linux");
$uml_window->destroy() if $uml_window;
} );
@ -1100,10 +1112,20 @@ sub uml_box {
sub remove_matching_process {
my ($match_word) = @_;
if ($match_word =~ m,/,) {
$match_word =~ s,/,\\/,g;
}
my $ps = "ps auxw|";
open(P,"$ps");
while(<P>) {
if (/$match_word/) {
# friendly approach
if (m,$match_word,) {
my $process = (split(/\s+/,$_,))[1];
system "kill $process";
}
# no so friendly approach
if (m,$match_word,) {
my $process = (split(/\s+/,$_,))[1];
system "kill -9 $process";
}