Quote |
#!/usr/bin/perl -w # Author John Andrews `killall -9 fluxter &>/dev/null`; system("fluxter -w &"); my $vars = `ps ax &`; unless ( $vars =~/xtdesk/) { system("xtdesk &>/dev/null &"); } `killall -9 xtdesk &>/dev/null`; <-- add this one line which kills the command unless ( $vars =~/wmcpuload/) { system("wmcpuload &>/dev/null &" ) } unless ( $vars =~/wmnet/) { system("wmnet -w &>/dev/null &" ) } unless ( $vars =~/mount.app/) { system("mount.app &>/dev/null &" ) } unless ( $vars =~/asmem/) { system("asmem -withdrawn -bg black -fg white &>/dev/null &" ) } unless ( $vars =~/wmix/) { system("wmix &>/dev/null &" ) } exit; |