if [ ! "$_SCRIPT_SUBR" ]; then _SCRIPT_SUBR=1 # # Copyright (c) 2012-2014 Devin Teske # All rights reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in the # documentation and/or other materials provided with the distribution. # # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # # $FreeBSD$ # ############################################################ INCLUDES BSDCFG_SHARE="/usr/share/bsdconfig" . $BSDCFG_SHARE/common.subr || exit 1 f_dprintf "%s: loading includes..." script.subr f_include $BSDCFG_SHARE/device.subr f_include $BSDCFG_SHARE/media/any.subr f_include $BSDCFG_SHARE/media/tcpip.subr f_include $BSDCFG_SHARE/mustberoot.subr f_include $BSDCFG_SHARE/networking/services.subr f_include $BSDCFG_SHARE/packages/packages.subr f_include $BSDCFG_SHARE/usermgmt/group.subr f_include $BSDCFG_SHARE/usermgmt/user.subr f_include $BSDCFG_SHARE/variable.subr ############################################################ GLOBALS RESWORDS= ############################################################ FUNCTIONS # f_resword_new $resword $function # # Create a new `reserved' word for scripting purposes. Reswords call pre- # defined functions but differ from those functions in the following ways: # # + Unless noError is set (must be non-NULL), if calling the resword # results in failure, the application will terminate prematurely. # + noError is unset after each/every resword is called. # # Reswords should not be used in bsdconfig itself (hence the name `reserved # word') but instead only in scripts loaded through f_script_load(). # f_resword_new() { local resword="$1" func="$2" [ "$resword" ] || return $FAILURE f_dprintf "script.subr: New resWord %s -> %s" "$resword" "$func" eval $resword\(\){ f_dispatch $func $resword \"\$@\"\; } RESWORDS="$RESWORDS${RESWORDS:+ }$resword" } # f_dispatch $func $resword # # Wrapper function used by `reserved words' (reswords) to call other functions. # If $noError is set and non-NULL, a failure result from $func is ignored, # otherwise the application is prematurely terminated using f_die(). # # NOTE: $noError is unset after every call. # f_dispatch() { local func="$1" resword="$2" shift 2 # func resword f_dprintf "f_dispatch: calling resword \`%s'" "$resword" eval $func "$@" local retval=$? if [ $retval -ne $SUCCESS ]; then local _ignore_this_error f_getvar $VAR_NO_ERROR _ignore_this_error [ "$_ignore_this_error" ] || f_die $retval \ "$msg_command_failed_rest_of_script_aborted" "$resword" fi unset $VAR_NO_ERROR } # f_script_load [$file] # # Load a script (usually filled with reswords). If $file is missing or NULL, # use one of the following instead (in order): # # $configFile (global) # install.cfg # /stand/install.fg # /tmp/install.cfg # # Unknown/unregistered reswords will generate sh(1) syntax errors but not cause # premature termination. # # Returns success if a script was loaded and itself returned success. # f_script_load() { local funcname=f_script_load local script="$1" config_file retval=$SUCCESS f_dprintf "$funcname: script=[%s]" "$script" if [ ! "$script" ]; then f_getvar $VAR_CONFIG_FILE config_file for script in \ $config_file \ install.cfg \ /stand/install.cfg \ /tmp/install.cfg \ ; do [ -e "$script" ] && break done fi local old_interactive= f_getvar $VAR_NONINTERACTIVE old_interactive # save a copy # Hint to others that we're running from a script, should they care setvar $VAR_NONINTERACTIVE yes if [ "$script" = "-" ]; then f_dprintf "$funcname: Loading script from stdin" eval "$( cat )" retval=$? else f_dprintf "$funcname: Loading script \`%s'" "$script" if [ ! -e "$script" ]; then f_show_msg "$msg_unable_to_open" "$script" return $FAILURE fi . "$script" retval=$? fi [ "$old_interactive" ] && setvar $VAR_NONINTERACTIVE "$old_interactive" return $retval } ############################################################ MAIN # # Reserved words meant for scripting # # this file f_resword_new loadConfig f_script_load # device.subr f_resword_new deviceRescan f_device_rescan # media/common.subr f_resword_new mediaOpen f_media_open f_resword_new mediaClose f_media_close # media includes f_resword_new mediaGetType f_media_get_type # media/any.subr f_resword_new mediaSetCDROM f_media_set_cdrom # media/cdrom.subr f_resword_new mediaSetDOS f_media_set_dos # media/dos.subr f_resword_new mediaSetDirectory f_media_set_directory # media/directory.subr f_resword_new mediaSetFloppy f_media_set_floppy # media/floppy.subr f_resword_new mediaSetNFS f_media_set_nfs # media/nfs.subr f_resword_new mediaSetUFS f_media_set_ufs # media/ufs.subr f_resword_new mediaSetUSB f_media_set_usb # media/usb.subr f_resword_new optionsEditor f_media_options_menu # media/options.subr f_resword_new tcpMenuSelect f_dialog_menu_select_tcp # media/tcp.subr # media/ftp.subr f_resword_new mediaSetFTP f_media_set_ftp f_resword_new mediaSetFTPActive f_media_set_ftp_active f_resword_new mediaSetFTPPassive f_media_set_ftp_passive f_resword_new mediaSetFTPUserPass f_media_set_ftp_userpass # media/http.subr f_resword_new mediaSetHTTP f_media_set_http # media/httpproxy.subr f_resword_new mediaSetHTTPProxy f_media_set_http_proxy # networking/services.subr f_resword_new configPCNFSD f_config_pcnfsd # packages/packages.subr f_resword_new configPackages f_package_config f_resword_new packageAdd f_package_add f_resword_new packageDelete f_package_delete f_resword_new packageReinstall f_package_reinstall # usermgmt/group.subr f_resword_new addGroup f_group_add f_resword_new deleteGroup f_group_delete f_resword_new editGroup f_group_edit # usermgmt/user.subr f_resword_new addUser f_user_add f_resword_new deleteUser f_user_delete f_resword_new editUser f_user_edit # variable.subr f_resword_new installVarDefaults f_variable_set_defaults f_resword_new dumpVariables f_dump_variables f_dprintf "%s: Successfully loaded." script.subr fi # ! $_SCRIPT_SUBR