offerToBlacklistModule() - Network Wizard - Puppylinux

# A function that gives a dialog offering to blabklist a just-removed module
# $1: the modules
offerToBlacklistModule(){
    AMODULE="$1"
    # see if not already blacklisted
    . /etc/rc.d/MODULESCONFIG
    case $SKIPLIST in *" $AMODULE "*|*" ${AMODULE//_/-} "*) return ;; esac

    export NETWIZ_Blacklist_Module_Dialog="<window title=\"$L_TITLE_Puppy_Network_Wizard\" icon-name=\"gtk-network\" window-position=\"1\">
 <vbox>
  <pixmap icon_size=\"6\">
      <input file stock=\"gtk-dialog-question\"></input>
    </pixmap>
  <text>
    <label>\"$L_TEXT_Blacklist_Module_p1 $AMODULE $L_TEXT_Blacklist_Module_p2\"</label>
  </text>
  <hbox>
    <button>
      <label>$L_BUTTON_Blacklist</label>
      <input file stock=\"gtk-yes\"></input>
      <action>EXIT:Blacklist</action>
    </button>
    <button>
      <label>$L_BUTTON_No</label>
      <input file stock=\"gtk-no\"></input>
      <action>EXIT:cancel</action>
    </button>
  </hbox>
 </vbox>
</window>"

    I=$IFS; IFS=""
    for STATEMENT in  $(gtkdialog3 --program NETWIZ_Blacklist_Module_Dialog); do
        eval $STATEMENT
    done
    IFS=$I
    clean_up_gtkdialog NETWIZ_Blacklist_Module_Dialog
    unset NETWIZ_Blacklist_Module_Dialog

    case $EXIT in Blacklist)
        #echo "$AMODULE" >> "$BLACKLIST_FILE"
        blacklist_module "$AMODULE"
        ;;
    esac
} # end offerToBlacklistModule