]>
Commit | Line | Data |
---|---|---|
5b20e43a MT |
1 | #!/bin/bash |
2 | ############################################################################### | |
3 | # # | |
4 | # IPFire.org - A linux based firewall # | |
1848564d | 5 | # Copyright (C) 2010 Michael Tremer & Christian Schmidt # |
5b20e43a MT |
6 | # # |
7 | # This program is free software: you can redistribute it and/or modify # | |
8 | # it under the terms of the GNU General Public License as published by # | |
9 | # the Free Software Foundation, either version 3 of the License, or # | |
10 | # (at your option) any later version. # | |
11 | # # | |
12 | # This program is distributed in the hope that it will be useful, # | |
13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of # | |
14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # | |
15 | # GNU General Public License for more details. # | |
16 | # # | |
17 | # You should have received a copy of the GNU General Public License # | |
18 | # along with this program. If not, see <http://www.gnu.org/licenses/>. # | |
19 | # # | |
20 | ############################################################################### | |
21 | ||
1848564d MT |
22 | # Parse the command line |
23 | while [ $# -gt 0 ]; do | |
24 | case "${1}" in | |
25 | -d|--debug) | |
26 | DEBUG=1 | |
5b20e43a | 27 | ;; |
1848564d MT |
28 | *) |
29 | action=${1} | |
5b20e43a | 30 | ;; |
5b20e43a | 31 | esac |
5b20e43a | 32 | shift |
1848564d | 33 | [ -n "${action}" ] && break |
5b20e43a MT |
34 | done |
35 | ||
3647b19f MT |
36 | . /usr/lib/network/functions |
37 | ||
e9df08ad MT |
38 | # Read network settings |
39 | network_settings_read | |
fe52c5e0 | 40 | |
1c6a4e30 | 41 | cli_settings() { |
9111eb72 | 42 | if cli_help_requested $@; then |
e9df08ad | 43 | cli_show_man network-settings |
9111eb72 MT |
44 | exit ${EXIT_OK} |
45 | fi | |
46 | ||
47 | if [ -n "${1}" ]; then | |
cfa738f1 | 48 | network_settings_set $@ |
e9df08ad | 49 | network_settings_write |
9111eb72 | 50 | else |
e9df08ad | 51 | network_settings_print |
9111eb72 MT |
52 | fi |
53 | } | |
54 | ||
1c6a4e30 | 55 | cli_device() { |
6c74a64c MT |
56 | if cli_help_requested $@; then |
57 | cli_show_man network-device | |
58 | exit ${EXIT_OK} | |
59 | fi | |
60 | ||
f90dd58c MT |
61 | local action="${1}" |
62 | shift | |
ec63256a | 63 | |
9111eb72 | 64 | case "${action}" in |
f90dd58c MT |
65 | list) |
66 | cli_device_list $@ | |
5cf0edf9 | 67 | ;; |
9111eb72 | 68 | *) |
f90dd58c MT |
69 | local device="${action}" |
70 | action="${1}" | |
71 | shift | |
72 | ||
73 | if ! isset device; then | |
74 | cli_show_man network-device | |
75 | return ${EXIT_ERROR} | |
76 | fi | |
77 | ||
78 | assert device_exists ${device} | |
79 | ||
80 | case "${action}" in | |
81 | discover) | |
82 | cli_device_discover ${device} $@ | |
83 | ;; | |
f5ee091e MT |
84 | identify) |
85 | device_identify "${device}" $@ | |
86 | ;; | |
f90dd58c MT |
87 | monitor) |
88 | cli_device_monitor "${device}" $@ | |
89 | ;; | |
90 | status) | |
91 | cli_device_status ${device} | |
92 | ;; | |
93 | unlock) | |
94 | cli_device_serial_unlock ${device} $@ | |
95 | ;; | |
96 | ussd) | |
97 | cli_device_send_ussd_command "${device}" $@ | |
98 | ;; | |
99 | *) | |
100 | cli_show_man network-device | |
101 | ;; | |
102 | esac | |
9111eb72 MT |
103 | ;; |
104 | esac | |
ec63256a MT |
105 | |
106 | return ${EXIT_OK} | |
107 | } | |
108 | ||
1c6a4e30 | 109 | cli_device_status() { |
f90dd58c MT |
110 | local device="${1}" |
111 | assert isset device | |
ec63256a | 112 | |
6c74a64c MT |
113 | # Disable debugging output here. |
114 | local log_disable_stdout=${LOG_DISABLE_STDOUT} | |
115 | LOG_DISABLE_STDOUT="true" | |
116 | ||
ec63256a MT |
117 | # Save the type of the device for later. |
118 | local type=$(device_get_type ${device}) | |
119 | ||
120 | cli_headline 1 "Device status: ${device}" | |
121 | cli_print_fmt1 1 "Name" "${device}" | |
122 | ||
f90dd58c MT |
123 | # Handle special devices |
124 | case "${type}" in | |
125 | phy) | |
126 | cli_device_status_phy "${device}" | |
127 | return $? | |
128 | ;; | |
129 | serial) | |
130 | cli_device_status_serial "${device}" | |
131 | return $? | |
132 | ;; | |
133 | esac | |
6c74a64c | 134 | |
ec63256a MT |
135 | # Print the device status. |
136 | device_is_up ${device} &>/dev/null | |
137 | local status=$? | |
138 | ||
139 | case "${status}" in | |
140 | ${EXIT_TRUE}) | |
fcbf6823 | 141 | status="${CLR_GREEN_B}UP${CLR_RESET}" |
ec63256a MT |
142 | ;; |
143 | ${EXIT_FALSE}) | |
fcbf6823 | 144 | status="${CLR_RED_B}DOWN${CLR_RESET}" |
ec63256a MT |
145 | ;; |
146 | esac | |
147 | ||
148 | cli_print_fmt1 1 "Status" "${status}" | |
149 | cli_print_fmt1 1 "Type" "${type}" | |
a4f7ad26 MT |
150 | |
151 | # Ethernet-compatible? | |
152 | device_is_ethernet_compatible "${device}" &>/dev/null | |
153 | cli_print_fmt1 1 "Ethernet-compatible" "$(cli_print_bool $?)" | |
154 | ||
ec63256a MT |
155 | cli_print_fmt1 1 "Address" "$(device_get_address ${device})" |
156 | cli_space | |
157 | ||
158 | # Print the link speed for ethernet devices. | |
245dffc9 | 159 | if device_is_up ${device} &>/dev/null; then |
657540d8 MT |
160 | local link="$(device_get_link_string "${device}")" |
161 | if isset link; then | |
162 | cli_print_fmt1 1 "Link" "${link}" | |
163 | fi | |
245dffc9 | 164 | fi |
ec63256a MT |
165 | |
166 | cli_print_fmt1 1 "MTU" "$(device_get_mtu ${device})" | |
167 | cli_space | |
168 | ||
3cb2fc42 MT |
169 | # Print device statistics. |
170 | cli_device_stats 2 ${device} | |
ec63256a MT |
171 | |
172 | # Print some more information. | |
173 | device_has_carrier ${device} &>/dev/null | |
174 | cli_print_fmt1 1 "Has carrier?" "$(cli_print_bool $?)" | |
175 | ||
176 | device_is_promisc ${device} &>/dev/null | |
177 | cli_print_fmt1 1 "Promisc" "$(cli_print_bool $?)" | |
6529dfaa MT |
178 | |
179 | # Supports multiqueue? | |
180 | if device_supports_multiqueue ${device}; then | |
181 | cli_print_fmt 1 "Multiqueue" "Supported" | |
182 | fi | |
ec63256a MT |
183 | cli_space |
184 | ||
6529dfaa MT |
185 | cli_device_show_queues 2 ${device} |
186 | ||
7951525a MT |
187 | # Print all vlan devices. |
188 | local vlans=$(device_get_vlans ${device}) | |
189 | if [ -n "${vlans}" ]; then | |
190 | cli_headline 2 "VLAN devices" | |
191 | ||
192 | local vlan | |
193 | for vlan in ${vlans}; do | |
194 | cli_print 2 "* %-6s - %s" "${vlan}" "$(device_get_address ${vlan})" | |
ec63256a MT |
195 | done |
196 | cli_space | |
197 | fi | |
198 | ||
f90dd58c MT |
199 | case "${type}" in |
200 | wireless*) | |
201 | local phy="$(device_get_phy "${device}")" | |
202 | if isset phy; then | |
203 | cli_headline 2 "PHY" | |
204 | cli_print_fmt1 2 "Name" "${phy}" | |
205 | cli_print_fmt1 2 "Address" "$(phy_get_address "${phy}")" | |
206 | cli_space | |
207 | fi | |
208 | ;; | |
209 | esac | |
210 | ||
6c74a64c MT |
211 | # Reset the logging level. |
212 | LOG_DISABLE_STDOUT=${log_disable_stdout} | |
213 | } | |
214 | ||
1c6a4e30 | 215 | cli_device_status_serial() { |
6c74a64c MT |
216 | local device=${1} |
217 | assert device_is_serial ${device} | |
218 | ||
219 | serial_is_locked ${device} &>/dev/null | |
220 | local locked=$? | |
221 | ||
222 | cli_print_fmt1 1 "Locked" "$(cli_print_bool ${locked})" | |
223 | cli_space | |
224 | ||
225 | # Cannot go on when the device is locked. | |
226 | [ ${locked} -eq ${EXIT_TRUE} ] && return ${EXIT_OK} | |
227 | ||
228 | cli_print_fmt1 1 "Manufacturer" \ | |
229 | "$(modem_get_manufacturer ${device})" | |
230 | cli_print_fmt1 1 "Model" \ | |
231 | "$(modem_get_model ${device})" | |
232 | cli_print_fmt1 1 "Software version" \ | |
233 | "$(modem_get_software_version ${device})" | |
234 | ||
36aeb387 MT |
235 | # Mobile |
236 | if modem_is_mobile "${device}"; then | |
6c74a64c MT |
237 | cli_print_fmt1 1 "IMEI" \ |
238 | "$(modem_get_device_imei ${device})" | |
6c74a64c MT |
239 | fi |
240 | cli_space | |
36aeb387 MT |
241 | |
242 | if modem_is_mobile "${device}"; then | |
243 | modem_mobile_network_status "${device}" 2 | |
244 | cli_space | |
245 | fi | |
9111eb72 MT |
246 | } |
247 | ||
1c6a4e30 | 248 | cli_device_status_phy() { |
f90dd58c MT |
249 | local phy="${1}" |
250 | assert phy_exists "${phy}" | |
251 | ||
252 | local address="$(phy_get_address "${phy}")" | |
253 | cli_print_fmt1 1 "Address" "${address}" | |
254 | cli_space | |
255 | ||
256 | local devices="$(phy_get_devices "${phy}")" | |
257 | if isset devices; then | |
258 | cli_headline 2 "Soft interfaces" | |
259 | ||
260 | local device | |
261 | for device in ${devices}; do | |
262 | cli_print 2 "* %s" "${device}" | |
263 | done | |
264 | cli_space | |
265 | fi | |
266 | ||
267 | return ${EXIT_OK} | |
268 | } | |
269 | ||
1c6a4e30 | 270 | cli_device_discover() { |
9111eb72 MT |
271 | local device=${1} |
272 | shift | |
273 | ||
5dfc94a8 MT |
274 | # This can only be executed for ethernet (or compatible) devices |
275 | if ! device_is_ethernet_compatible "${device}"; then | |
9111eb72 MT |
276 | return ${EXIT_OK} |
277 | fi | |
278 | ||
279 | local raw | |
280 | ||
281 | while [ $# -gt 0 ]; do | |
282 | case "${1}" in | |
283 | --raw) | |
284 | raw=1 | |
285 | ;; | |
286 | esac | |
287 | shift | |
288 | done | |
289 | ||
290 | local up | |
291 | device_is_up ${device} && up=1 | |
292 | device_set_up ${device} | |
293 | ||
294 | enabled raw || echo "${device}" | |
295 | ||
296 | local hook | |
297 | local out | |
298 | local ret | |
299 | for hook in $(hook_zone_get_all); do | |
300 | out=$(hook_zone_exec ${hook} discover ${device}) | |
301 | ret=$? | |
302 | ||
303 | [ ${ret} -eq ${DISCOVER_NOT_SUPPORTED} ] && continue | |
304 | ||
305 | if enabled raw; then | |
306 | case "${ret}" in | |
307 | ${DISCOVER_OK}) | |
308 | echo "${hook}: OK" | |
309 | local line | |
310 | while read line; do | |
311 | echo "${hook}: ${line}" | |
312 | done <<<"${out}" | |
313 | ;; | |
314 | ||
315 | ${DISCOVER_ERROR}) | |
316 | echo "${hook}: FAILED" | |
317 | ;; | |
318 | esac | |
319 | else | |
320 | case "${ret}" in | |
321 | ${DISCOVER_OK}) | |
322 | echo " ${hook} was successful." | |
323 | local line | |
324 | while read line; do | |
325 | echo " ${line}" | |
326 | done <<<"${out}" | |
327 | ;; | |
328 | ||
329 | ${DISCOVER_ERROR}) | |
330 | echo " ${hook} failed." | |
331 | ;; | |
332 | esac | |
333 | fi | |
334 | done | |
335 | ||
336 | echo # New line | |
337 | ||
338 | [ "${up}" = "1" ] || device_set_down ${device} | |
339 | } | |
340 | ||
1c6a4e30 | 341 | cli_device_serial_unlock() { |
6c74a64c MT |
342 | if cli_help_requested $@; then |
343 | cli_show_man network-device | |
344 | exit ${EXIT_OK} | |
345 | fi | |
346 | ||
347 | local device=${1} | |
348 | assert isset device | |
349 | ||
350 | if ! device_is_serial ${device}; then | |
351 | error "${device} is not a serial device." | |
352 | error "Unlocking is only supported for serial devices." | |
353 | exit ${EXIT_ERROR} | |
354 | fi | |
355 | ||
356 | # Read the current state of the SIM card. | |
357 | modem_sim_status ${device} &>/dev/null | |
358 | local sim_status_code=$? | |
359 | ||
360 | # If the SIM card is already unlocked, we don't need to do anything. | |
361 | if [ ${sim_status_code} -eq ${EXIT_SIM_READY} ]; then | |
362 | print "The SIM card is already unlocked." | |
363 | exit ${EXIT_OK} | |
364 | ||
365 | # If the SIM card is in an unknown state, we cannot do anything. | |
366 | elif [ ${sim_status_code} -eq ${EXIT_SIM_UNKNOWN} ]; then | |
367 | error "The SIM card is in an unknown state." | |
368 | exit ${EXIT_ERROR} | |
369 | fi | |
370 | ||
371 | # Ask for the code. | |
372 | local code=${2} | |
373 | local require_new_pin="false" | |
374 | local new_pin | |
375 | ||
376 | while ! isinteger code; do | |
377 | local message | |
378 | case "${sim_status_code}" in | |
379 | ${EXIT_SIM_PIN}) | |
380 | message="Please enter PIN:" | |
381 | ;; | |
382 | ${EXIT_SIM_PUK}) | |
383 | message="Please enter PUK:" | |
384 | require_new_pin="true" | |
385 | ;; | |
386 | esac | |
387 | assert isset message | |
388 | ||
389 | echo -n "${message} " | |
390 | read -s code | |
391 | echo # Print newline. | |
392 | ||
393 | if enabled require_new_pin; then | |
394 | local i new_pin2 | |
395 | for i in 0 1; do | |
396 | case "${i}" in | |
397 | 0) | |
398 | message="Please enter a new PIN code:" | |
399 | ;; | |
400 | 1) | |
401 | message="Please confirm the new PIN code:" | |
402 | ;; | |
403 | esac | |
404 | ||
405 | echo -n "${message} " | |
406 | read -s new_pin2 | |
407 | echo # Print newline. | |
408 | ||
409 | if [ -n "${new_pin}" ]; then | |
410 | if [ "${new_pin}" != "${new_pin2}" ]; then | |
411 | error "The entered PIN codes did not match." | |
412 | exit ${EXIT_ERROR} | |
413 | fi | |
414 | else | |
415 | new_pin=${new_pin2} | |
416 | fi | |
417 | done | |
418 | fi | |
419 | done | |
420 | ||
421 | # Trying to unlock the SIM card. | |
422 | modem_sim_unlock ${device} ${code} ${new_pin} | |
423 | ||
424 | exit $? | |
425 | } | |
426 | ||
1c6a4e30 | 427 | cli_device_send_ussd_command() { |
5cf0edf9 MT |
428 | local device="${1}" |
429 | assert isset device | |
430 | shift | |
431 | ||
432 | local command | |
433 | local timeout | |
434 | ||
435 | while [ $# -gt 0 ]; do | |
436 | case "${1}" in | |
437 | --timeout=*) | |
438 | timeout="$(cli_get_val "${1}")" | |
439 | ;; | |
440 | *) | |
441 | if isset command; then | |
442 | warning "Unrecognized argument: ${1}" | |
443 | else | |
444 | command="${1}" | |
445 | fi | |
446 | ;; | |
447 | esac | |
448 | shift | |
449 | done | |
450 | ||
451 | assert device_is_serial "${device}" | |
452 | ||
453 | local args | |
454 | if isset timeout; then | |
455 | args="${args} --timeout=${timeout}" | |
456 | fi | |
457 | ||
458 | modem_ussd_send_command "${device}" "${command}" ${args} | |
459 | exit $? | |
460 | } | |
461 | ||
1c6a4e30 | 462 | cli_device_monitor() { |
5a38ea84 MT |
463 | local device="${1}" |
464 | assert isset device | |
465 | ||
466 | if ! device_is_wireless "${device}"; then | |
467 | error "This action only works with wireless devices. Exiting." | |
468 | exit ${EXIT_ERROR} | |
469 | fi | |
470 | ||
471 | wireless_monitor "${device}" | |
472 | exit $? | |
473 | } | |
474 | ||
1c6a4e30 | 475 | cli_device_list() { |
f90dd58c MT |
476 | local device |
477 | for device in $(device_list); do | |
478 | cli_device_status "${device}" | |
479 | done | |
480 | ||
481 | exit ${EXIT_OK} | |
482 | } | |
483 | ||
1c6a4e30 | 484 | cli_hostname() { |
9111eb72 MT |
485 | if cli_help_requested $@; then |
486 | cli_show_man network | |
487 | exit ${EXIT_OK} | |
488 | fi | |
489 | ||
490 | local hostname=${1} | |
491 | ||
492 | if [ -n "${hostname}" ]; then | |
493 | config_hostname ${hostname} | |
494 | log INFO "Hostname was set to '${hostname}'." | |
495 | log INFO "Changes do only take affect after reboot." | |
496 | exit ${EXIT_OK} | |
497 | fi | |
498 | ||
499 | echo "$(config_hostname)" | |
500 | exit ${EXIT_OK} | |
501 | } | |
502 | ||
1c6a4e30 | 503 | cli_port() { |
9111eb72 MT |
504 | if cli_help_requested $@; then |
505 | cli_show_man network-port | |
506 | exit ${EXIT_OK} | |
507 | fi | |
508 | ||
509 | local action | |
510 | local port | |
511 | ||
512 | if port_exists ${1}; then | |
513 | port=${1} | |
514 | action=${2} | |
515 | shift 2 | |
516 | ||
9111eb72 | 517 | case "${action}" in |
f5ee091e | 518 | edit|create|remove|up|down|status|identify) |
1ba6a2bb | 519 | port_${action} "${port}" $@ |
9111eb72 | 520 | ;; |
8de0a49f JS |
521 | color) |
522 | color_cli "port" "${port}" $@ | |
523 | ;; | |
ba348e4b JS |
524 | description) |
525 | description_cli "port" "${port}" $@ | |
526 | ;; | |
9111eb72 MT |
527 | *) |
528 | error "Unrecognized argument: ${action}" | |
529 | exit ${EXIT_ERROR} | |
530 | ;; | |
531 | esac | |
532 | else | |
533 | action=${1} | |
534 | shift | |
535 | ||
536 | case "${action}" in | |
1ba6a2bb | 537 | new|destroy) |
9111eb72 MT |
538 | port_${action} $@ |
539 | ;; | |
540 | *) | |
541 | error "Unrecognized argument: ${action}" | |
542 | exit ${EXIT_ERROR} | |
543 | ;; | |
544 | esac | |
545 | fi | |
546 | } | |
547 | ||
1c6a4e30 | 548 | cli_zone() { |
9111eb72 MT |
549 | if cli_help_requested $@; then |
550 | cli_show_man network-zone | |
551 | exit ${EXIT_OK} | |
552 | fi | |
553 | ||
554 | local action | |
555 | local zone | |
556 | ||
557 | if zone_name_is_valid ${1}; then | |
558 | zone=${1} | |
559 | action=${2} | |
560 | shift 2 | |
561 | ||
562 | # Action aliases | |
563 | case "${action}" in | |
e6fd23fd | 564 | start|reload) |
9111eb72 MT |
565 | action="up" |
566 | ;; | |
567 | stop) | |
568 | action="down" | |
569 | ;; | |
570 | show) | |
571 | action="status" | |
572 | ;; | |
573 | esac | |
574 | ||
575 | case "${action}" in | |
ac694a6a MT |
576 | port) |
577 | cli_zone_port "${zone}" $@ | |
578 | ;; | |
2bb20bbd SS |
579 | rename) |
580 | cli_zone_rename "${zone}" $@ | |
581 | ;; | |
f5ee091e | 582 | config|disable|down|edit|enable|identify|status|up) |
9111eb72 MT |
583 | zone_${action} ${zone} $@ |
584 | ;; | |
8de0a49f JS |
585 | color) |
586 | color_cli "zone" "${zone}" $@ | |
587 | ;; | |
ba348e4b JS |
588 | description) |
589 | description_cli "zone" ${zone} $@ | |
590 | ;; | |
9111eb72 MT |
591 | *) |
592 | error "Unrecognized argument: ${action}" | |
593 | cli_show_man network-zone | |
594 | exit ${EXIT_ERROR} | |
595 | ;; | |
596 | esac | |
597 | else | |
598 | action=${1} | |
599 | shift | |
600 | ||
601 | case "${action}" in | |
cf0fc8ab | 602 | new) |
2c37b88b | 603 | cli_zone_new $@ |
9111eb72 | 604 | ;; |
cf0fc8ab MT |
605 | destroy) |
606 | cli_zone_destroy $@ | |
9111eb72 | 607 | ;; |
9111eb72 MT |
608 | ""|*) |
609 | if [ -n "${action}" ]; then | |
610 | error "Unrecognized argument: '${action}'" | |
611 | echo | |
612 | fi | |
613 | ||
614 | cli_show_man network-zone | |
615 | exit ${EXIT_ERROR} | |
616 | ;; | |
617 | esac | |
618 | fi | |
619 | } | |
620 | ||
2c37b88b MT |
621 | cli_zone_new() { |
622 | if cli_help_requested $@ || [ $# -lt 2 ]; then | |
623 | cli_show_man network-zone-new | |
624 | exit ${EXIT_OK} | |
625 | fi | |
626 | ||
627 | zone_new $@ | |
628 | } | |
629 | ||
9111eb72 MT |
630 | # Removes a zone either immediately, if it is currently down, |
631 | # or adds a tag that the removal will be done when the zone | |
632 | # is brought down the next time. | |
1c6a4e30 | 633 | cli_zone_destroy() { |
9111eb72 MT |
634 | if cli_help_requested $@; then |
635 | cli_show_man network-zone | |
636 | exit ${EXIT_OK} | |
637 | fi | |
638 | ||
cf0fc8ab MT |
639 | local zone="${1}" |
640 | assert zone_exists "${zone}" | |
9111eb72 MT |
641 | |
642 | if zone_is_up ${zone}; then | |
643 | echo "Zone '${zone}' is up and will be removed when it goes down the next time." | |
cf0fc8ab | 644 | zone_destroy "${zone}" |
9111eb72 MT |
645 | else |
646 | echo "Removing zone '${zone}' now..." | |
cf0fc8ab | 647 | zone_destroy_now "${zone}" |
9111eb72 MT |
648 | fi |
649 | ||
650 | exit ${EXIT_OK} | |
651 | } | |
652 | ||
1c6a4e30 | 653 | cli_zone_port() { |
ac694a6a MT |
654 | if cli_help_requested $@; then |
655 | cli_show_man network-zone-port | |
656 | exit ${EXIT_OK} | |
657 | fi | |
658 | ||
659 | local zone="${1}" | |
660 | assert zone_exists "${zone}" | |
661 | ||
662 | if port_exists "${2}"; then | |
663 | local port="${2}" | |
664 | local action="${3}" | |
665 | shift 3 | |
666 | ||
667 | case "${action}" in | |
668 | edit) | |
669 | zone_port_edit "${zone}" "${port}" $@ | |
670 | ;; | |
671 | *) | |
672 | error "Unrecognised argument: ${action}" | |
673 | exit ${EXIT_ERROR} | |
674 | ;; | |
675 | esac | |
676 | else | |
677 | local action="${2}" | |
678 | shift 2 | |
679 | ||
680 | case "${action}" in | |
681 | attach) | |
682 | zone_port_attach "${zone}" $@ | |
683 | ;; | |
684 | detach) | |
685 | zone_port_detach "${zone}" $@ | |
686 | ;; | |
687 | *) | |
688 | error "Unrecognised argument: ${action}" | |
689 | exit ${EXIT_ERROR} | |
690 | ;; | |
691 | esac | |
692 | fi | |
693 | ||
694 | exit ${EXIT_OK} | |
695 | } | |
696 | ||
2bb20bbd SS |
697 | cli_zone_rename() { |
698 | if cli_help_requested $@; then | |
699 | cli_show_man network-zone | |
700 | exit ${EXIT_OK} | |
701 | fi | |
702 | ||
703 | local zone="${1}" | |
704 | local name="${2}" | |
705 | shift 2 | |
706 | ||
707 | if ! isset name; then | |
708 | error "You need to pass a new name" | |
709 | exit ${EXIT_ERROR} | |
710 | fi | |
711 | ||
712 | if ! zone_name_is_valid "${name}"; then | |
713 | error "Invalid new zone name: ${name}" | |
714 | exit ${EXIT_ERROR} | |
715 | fi | |
716 | ||
717 | # Check if the zone exists | |
718 | if ! zone_exists "${zone}"; then | |
719 | error "Zone ${zone} does not exist" | |
720 | exit ${EXIT_ERROR} | |
721 | fi | |
722 | ||
723 | # Destroyed zones cannot be renamed | |
724 | if zone_has_destroy_tag "${zone}"; then | |
725 | error "Zone ${zone} is about to be destroyed and cannot be renamed" | |
726 | exit ${EXIT_ERROR} | |
727 | fi | |
728 | ||
729 | # Check if a zone with the new name already exists | |
730 | if zone_exists "${name}"; then | |
731 | error "Zone ${name} already exists" | |
732 | exit ${EXIT_ERROR} | |
733 | fi | |
734 | ||
735 | # Rename | |
736 | if ! zone_rename "${zone}" "${name}"; then | |
737 | error "Could not rename zone ${zone} to ${name}" | |
738 | exit ${EXIT_ERROR} | |
739 | fi | |
740 | ||
741 | exit ${EXIT_OK} | |
742 | } | |
743 | ||
1c6a4e30 | 744 | cli_list_hooks() { |
9111eb72 MT |
745 | local type=${1} |
746 | shift | |
747 | ||
748 | if cli_help_requested $@; then | |
749 | cli_show_man network-zone | |
750 | exit ${EXIT_OK} | |
751 | fi | |
752 | ||
753 | local hook_dir=$(hook_dir ${type}) | |
754 | local hook | |
755 | ||
756 | for hook in ${hook_dir}/*; do | |
757 | hook=$(basename ${hook}) | |
758 | if hook_exists ${type} ${hook}; then | |
759 | echo "${hook}" | |
760 | fi | |
761 | done | sort -u | |
762 | } | |
763 | ||
1c6a4e30 | 764 | cli_route() { |
cb965348 MT |
765 | if cli_help_requested $@; then |
766 | cli_show_man network-route | |
767 | exit ${EXIT_OK} | |
768 | fi | |
769 | ||
770 | local action=${1} | |
771 | shift | |
772 | ||
240367ba JS |
773 | case "${action}" in |
774 | static) | |
775 | cli_route_static $@ | |
776 | ;; | |
777 | *) | |
778 | error "Unrecognized action: ${action}" | |
779 | cli_run_help network route | |
780 | ||
781 | exit ${EXIT_ERROR} | |
782 | ;; | |
783 | esac | |
784 | ||
785 | exit ${EXIT_OK} | |
786 | ||
787 | ||
788 | } | |
789 | ||
790 | cli_route_static() { | |
791 | if cli_help_requested $@; then | |
792 | cli_show_man network-route-static | |
793 | exit ${EXIT_OK} | |
794 | fi | |
795 | ||
796 | local action=${1} | |
797 | shift | |
798 | ||
cb965348 MT |
799 | case "${action}" in |
800 | # Add a new route. | |
801 | add) | |
802 | route_add $@ | |
803 | ;; | |
804 | # Remove an existing route. | |
805 | remove) | |
806 | route_remove $@ | |
807 | ;; | |
808 | # List all routes. | |
809 | list) | |
810 | route_list $@ | |
d2021e87 | 811 | return ${EXIT_OK} |
cb965348 | 812 | ;; |
86c225b8 JS |
813 | # Reload all routes. |
814 | reload) | |
815 | route_apply $@ | |
816 | ;; | |
cb965348 MT |
817 | *) |
818 | error "Unrecognized action: ${action}" | |
819 | cli_run_help network route | |
820 | ||
821 | exit ${EXIT_ERROR} | |
822 | ;; | |
823 | esac | |
824 | ||
d2021e87 MT |
825 | # Applying all routes. |
826 | route_apply | |
827 | ||
cb965348 MT |
828 | exit ${EXIT_OK} |
829 | } | |
830 | ||
1c6a4e30 | 831 | cli_dhcpd() { |
6c07160e MT |
832 | local proto=${1} |
833 | shift | |
834 | ||
835 | if cli_help_requested $@; then | |
836 | cli_show_man network-dhcp | |
837 | exit ${EXIT_OK} | |
838 | fi | |
839 | ||
840 | local action=${1} | |
841 | shift | |
842 | ||
843 | case "${action}" in | |
844 | edit) | |
845 | dhcpd_edit ${proto} $@ | |
846 | ;; | |
847 | start) | |
848 | dhcpd_start ${proto} | |
849 | ;; | |
850 | stop) | |
851 | dhcpd_stop ${proto} | |
852 | ;; | |
853 | restart|reload) | |
854 | dhcpd_reload ${proto} | |
855 | ;; | |
856 | subnet) | |
857 | cli_dhcpd_subnet ${proto} $@ | |
858 | ;; | |
859 | show|"") | |
860 | cli_dhcpd_show ${proto} $@ | |
861 | ;; | |
862 | *) | |
863 | error "Unrecognized action: ${action}" | |
864 | cli_run_help network dhcpvN | |
865 | ||
866 | exit ${EXIT_ERROR} | |
867 | ;; | |
868 | esac | |
869 | ||
870 | exit ${EXIT_OK} | |
871 | } | |
872 | ||
1c6a4e30 | 873 | cli_dhcpd_show() { |
6c07160e MT |
874 | local proto=${1} |
875 | assert isset proto | |
876 | ||
877 | local settings=$(dhcpd_settings ${proto}) | |
878 | assert isset settings | |
879 | ||
880 | local ${settings} | |
881 | dhcpd_global_settings_read ${proto} | |
882 | ||
883 | cli_headline 1 "Dynamic Host Configuration Protocol Daemon for ${proto/ip/IP}" | |
884 | ||
885 | case "${proto}" in | |
886 | ipv6) | |
887 | cli_headline 2 "Lease times" | |
888 | if isinteger VALID_LIFETIME; then | |
d13929d4 | 889 | cli_print_fmt1 2 "Valid lifetime" "$(format_time ${VALID_LIFETIME})" |
6c07160e MT |
890 | fi |
891 | ||
892 | if isinteger PREFERRED_LIFETIME; then | |
d13929d4 | 893 | cli_print_fmt1 2 "Preferred lifetime" "$(format_time ${PREFERRED_LIFETIME})" |
6c07160e MT |
894 | fi |
895 | ||
896 | cli_space | |
897 | ;; | |
898 | ipv4) | |
899 | cli_print_fmt1 1 "Authoritative" $(cli_print_enabled AUTHORITATIVE) | |
900 | cli_space | |
901 | ||
902 | cli_headline 2 "Lease times" | |
d13929d4 MT |
903 | cli_print_fmt1 2 "Default lease time" "$(format_time ${DEFAULT_LEASE_TIME})" |
904 | cli_print_fmt1 2 "Max. lease time" "$(format_time ${MAX_LEASE_TIME})" | |
6c07160e MT |
905 | |
906 | if isset MIN_LEASE_TIME; then | |
d13929d4 | 907 | cli_print_fmt1 2 "Min. lease time" "$(format_time ${MIN_LEASE_TIME})" |
6c07160e MT |
908 | fi |
909 | ||
910 | cli_space | |
911 | ;; | |
912 | esac | |
913 | ||
914 | # Read the options. | |
915 | local -A options | |
6a9a9ea6 | 916 | dhcpd_global_options_read ${proto} |
6c07160e MT |
917 | |
918 | # Print the options if any. | |
919 | if [ ${#options[*]} -gt 0 ]; then | |
920 | cli_headline 2 "Options" | |
921 | ||
922 | local option | |
923 | for option in $(dhcpd_options ${proto}); do | |
924 | [ -n "${options[${option}]}" ] || continue | |
925 | ||
926 | cli_print_fmt1 2 \ | |
927 | "${option}" "${options[${option}]}" | |
928 | done | |
929 | cli_space | |
930 | fi | |
931 | ||
932 | # Subnets. | |
933 | local subnets=$(dhcpd_subnet_list ${proto}) | |
934 | if [ -n "${subnets}" ]; then | |
935 | cli_headline 2 "Subnets" | |
6a9a9ea6 MT |
936 | local subnet |
937 | for subnet in ${subnets}; do | |
938 | cli_dhcpd_subnet_show ${proto} ${subnet} 2 | |
6c07160e MT |
939 | done |
940 | fi | |
941 | } | |
942 | ||
1c6a4e30 | 943 | cli_dhcpd_subnet() { |
6a9a9ea6 MT |
944 | assert [ $# -ge 1 ] |
945 | ||
6c07160e MT |
946 | local proto=${1} |
947 | shift | |
948 | ||
949 | if cli_help_requested $@; then | |
950 | cli_show_man network-dhcp-subnet | |
951 | exit ${EXIT_OK} | |
952 | fi | |
953 | ||
954 | local action=${1} | |
955 | shift | |
956 | ||
957 | case "${action}" in | |
958 | new) | |
959 | dhcpd_subnet_new ${proto} $@ | |
960 | ;; | |
961 | remove) | |
962 | dhcpd_subnet_remove ${proto} $@ | |
963 | ;; | |
6a9a9ea6 MT |
964 | *:*/*|*.*.*.*/*) |
965 | local subnet=${action} | |
6c07160e | 966 | |
6a9a9ea6 MT |
967 | if ! dhcpd_subnet_exists ${proto} ${subnet}; then |
968 | error "Subnet ${subnet} does not exist" | |
6c07160e MT |
969 | return ${EXIT_ERROR} |
970 | fi | |
971 | ||
972 | # Update the action. | |
973 | action=${1} | |
974 | shift | |
975 | ||
976 | case "${action}" in | |
977 | edit) | |
6a9a9ea6 | 978 | dhcpd_subnet_edit ${proto} ${subnet} $@ |
6c07160e MT |
979 | local ret=$? |
980 | ||
981 | if [ ${ret} -eq ${EXIT_OK} ]; then | |
982 | dhcpd_reload ${proto} | |
983 | fi | |
984 | exit ${ret} | |
985 | ;; | |
986 | range) | |
6a9a9ea6 | 987 | cli_dhcpd_subnet_range ${proto} ${subnet} $@ |
6c07160e MT |
988 | exit $? |
989 | ;; | |
990 | show) | |
6a9a9ea6 | 991 | cli_dhcpd_subnet_show ${proto} ${subnet} $@ |
6c07160e MT |
992 | exit $? |
993 | ;; | |
994 | options) | |
6a9a9ea6 | 995 | cli_dhcpd_subnet_options ${proto} ${subnet} $@ |
6c07160e MT |
996 | exit $? |
997 | ;; | |
998 | *) | |
999 | error "Unrecognized action: ${action}" | |
1000 | cli_run_help network dhcpvN subnet | |
1001 | exit ${EXIT_ERROR} | |
1002 | ;; | |
1003 | esac | |
1004 | ;; | |
1005 | show) | |
6a9a9ea6 MT |
1006 | local subnet |
1007 | for subnet in $(dhcpd_subnet_list ${proto}); do | |
1008 | cli_dhcpd_subnet_show ${proto} ${subnet} | |
6c07160e MT |
1009 | done |
1010 | ;; | |
1011 | *) | |
1012 | error "Unrecognized action: ${action}" | |
1013 | cli_run_help network dhcpvN subnet | |
1014 | ||
1015 | exit ${EXIT_ERROR} | |
1016 | ;; | |
1017 | esac | |
1018 | ||
1019 | exit ${EXIT_OK} | |
1020 | } | |
1021 | ||
1c6a4e30 | 1022 | cli_dhcpd_subnet_range() { |
6a9a9ea6 | 1023 | assert [ $# -ge 2 ] |
6c07160e | 1024 | |
6a9a9ea6 MT |
1025 | local proto=${1} |
1026 | local subnet=${2} | |
1027 | local action=${3} | |
1028 | shift 3 | |
6c07160e MT |
1029 | |
1030 | case "${action}" in | |
1031 | new) | |
6a9a9ea6 | 1032 | dhcpd_subnet_range_new ${proto} ${subnet} $@ || exit ${EXIT_ERROR} |
6c07160e MT |
1033 | ;; |
1034 | remove) | |
6a9a9ea6 | 1035 | dhcpd_subnet_range_remove ${proto} ${subnet} $@ || exit ${EXIT_ERROR} |
6c07160e MT |
1036 | ;; |
1037 | *) | |
1038 | error "Unrecognized action: ${action}" | |
1039 | cli_run_help network dhcpvN subnet range | |
1040 | exit ${EXIT_ERROR} | |
1041 | ;; | |
1042 | esac | |
90b63fca MT |
1043 | |
1044 | dhcpd_reload ${proto} | |
1045 | return ${EXIT_OK} | |
6c07160e MT |
1046 | } |
1047 | ||
1c6a4e30 | 1048 | cli_dhcpd_subnet_show() { |
6a9a9ea6 | 1049 | assert [ $# -ge 2 -a $# -le 3 ] |
6c07160e | 1050 | |
6a9a9ea6 MT |
1051 | local proto=${1} |
1052 | local subnet=${2} | |
6c07160e MT |
1053 | |
1054 | local level=${3} | |
1055 | isset level || level=0 | |
1056 | ||
1057 | local $(dhcpd_subnet_settings ${proto}) | |
1058 | ||
1059 | # Read in configuration settings. | |
6a9a9ea6 | 1060 | dhcpd_subnet_read ${proto} ${subnet} |
6c07160e | 1061 | |
94784eb9 | 1062 | cli_headline $(( ${level} + 1 )) "DHCP Subnet Declaration" |
6c07160e MT |
1063 | cli_print_fmt1 $(( ${level} + 1 )) \ |
1064 | "Subnet" "${ADDRESS}/${PREFIX}" | |
1065 | cli_space | |
1066 | ||
1067 | # Read the options. | |
1068 | local -A options | |
6a9a9ea6 | 1069 | dhcpd_subnet_options_read "${proto}" "${subnet}" |
6c07160e MT |
1070 | |
1071 | # Print the options if any. | |
1072 | if [ ${#options[*]} -gt 0 ]; then | |
1073 | cli_headline $(( ${level} + 2 )) "Options" | |
1074 | ||
1075 | local option | |
cc02f6be | 1076 | for option in $(dhcpd_subnet_options_list ${proto}); do |
6c07160e MT |
1077 | [ -n "${options[${option}]}" ] || continue |
1078 | ||
1079 | cli_print_fmt1 $(( ${level} + 2 )) \ | |
1080 | "${option}" "${options[${option}]}" | |
1081 | done | |
1082 | cli_space | |
1083 | fi | |
1084 | ||
1085 | # Ranges. | |
1086 | cli_headline $(( ${level} + 2 )) "Ranges" | |
1087 | ||
6a9a9ea6 | 1088 | local ranges=$(dhcpd_subnet_range_list ${proto} ${subnet}) |
6c07160e | 1089 | if isset ranges; then |
f3ac1159 MT |
1090 | local range $(dhcpd_subnet_range_settings ${proto}) |
1091 | for range in ${ranges}; do | |
6a9a9ea6 | 1092 | dhcpd_subnet_range_read ${proto} ${subnet} ${range} |
6c07160e | 1093 | |
f3ac1159 | 1094 | cli_print $(( ${level} + 2 )) "%s - %s" ${START} ${END} |
6c07160e MT |
1095 | done |
1096 | else | |
1097 | cli_print $(( ${level} + 2 )) "No ranges have been defined." | |
1098 | fi | |
1099 | ||
1100 | cli_space | |
1101 | } | |
1102 | ||
1c6a4e30 | 1103 | cli_dhcpd_subnet_options() { |
6a9a9ea6 | 1104 | assert [ $# -eq 2 ] |
6c07160e | 1105 | |
6a9a9ea6 MT |
1106 | local proto=${1} |
1107 | local subnet=${2} | |
6c07160e | 1108 | |
6c07160e MT |
1109 | local key val |
1110 | while [ $# -gt 0 ]; do | |
1111 | case "${1}" in | |
1112 | *=*) | |
1113 | key=$(cli_get_key ${1}) | |
1114 | val=$(cli_get_val ${1}) | |
1115 | ||
6a9a9ea6 | 1116 | dhcpd_subnet_option_set ${proto} ${subnet} ${key} ${val} |
6c07160e MT |
1117 | esac |
1118 | done | |
1119 | } | |
1120 | ||
1c6a4e30 | 1121 | cli_start() { |
9111eb72 MT |
1122 | if cli_help_requested $@; then |
1123 | cli_show_man network | |
1124 | exit ${EXIT_OK} | |
1125 | fi | |
1126 | ||
1127 | local zones=$(zones_get $@) | |
1128 | ||
1129 | local zone | |
1130 | for zone in ${zones}; do | |
1131 | zone_start ${zone} & | |
1132 | done | |
1133 | ||
1134 | wait # until everything is settled | |
1135 | } | |
1136 | ||
1c6a4e30 | 1137 | cli_stop() { |
9111eb72 MT |
1138 | if cli_help_requested $@; then |
1139 | cli_show_man network | |
1140 | exit ${EXIT_OK} | |
1141 | fi | |
1142 | ||
1143 | local zones=$(zones_get $@) | |
1144 | ||
1145 | local zone | |
1146 | for zone in ${zones}; do | |
1147 | zone_stop ${zone} & | |
1148 | done | |
1149 | ||
1150 | wait # until everything is settled | |
1151 | } | |
1152 | ||
1c6a4e30 | 1153 | cli_restart() { |
9111eb72 MT |
1154 | if cli_help_requested $@; then |
1155 | cli_show_man network | |
1156 | exit ${EXIT_OK} | |
1157 | fi | |
1158 | ||
1159 | cli_stop $@ | |
1160 | ||
1161 | # Give the system some time to calm down | |
1162 | sleep ${TIMEOUT_RESTART} | |
1163 | ||
1164 | cli_start $@ | |
1165 | } | |
1166 | ||
1c6a4e30 | 1167 | cli_status() { |
9111eb72 MT |
1168 | if cli_help_requested $@; then |
1169 | cli_show_man network | |
1170 | exit ${EXIT_OK} | |
1171 | fi | |
1172 | ||
1173 | # When dumping status information, the debug | |
1174 | # mode clutters the console which is not what we want. | |
1175 | # Logging on the console is disabled for a short time. | |
1176 | local log_disable_stdout=${LOG_DISABLE_STDOUT} | |
1177 | LOG_DISABLE_STDOUT="true" | |
1178 | ||
1179 | local zones=$(zones_get $@) | |
1180 | ||
1181 | local zone | |
1182 | for zone in ${zones}; do | |
1183 | zone_status ${zone} | |
1184 | done | |
1185 | ||
1186 | # Reset logging. | |
1187 | LOG_DISABLE_STDOUT=${log_disable_stdout} | |
1188 | } | |
1189 | ||
1c6a4e30 | 1190 | cli_reset() { |
9111eb72 MT |
1191 | if cli_help_requested $@; then |
1192 | cli_show_man network | |
1193 | exit ${EXIT_OK} | |
1194 | fi | |
1195 | ||
1196 | warning_log "Will reset the whole network configuration!!!" | |
1197 | ||
1198 | # Force mode is disabled by default | |
1199 | local force=0 | |
1200 | ||
1201 | while [ $# -gt 0 ]; do | |
1202 | case "${1}" in | |
1203 | --force|-f) | |
1204 | force=1 | |
1205 | ;; | |
1206 | esac | |
1207 | shift | |
1208 | done | |
1209 | ||
1210 | # If we are not running in force mode, we ask the user if he does know | |
1211 | # what he is doing. | |
1212 | if ! enabled force; then | |
1213 | if ! cli_yesno "Do you really want to reset the whole network configuration?"; then | |
1214 | exit ${EXIT_ERROR} | |
1215 | fi | |
1216 | fi | |
1217 | ||
1218 | local zone | |
1219 | for zone in $(zones_get --all); do | |
cf0fc8ab | 1220 | zone_destroy_now "${zone}" |
9111eb72 MT |
1221 | done |
1222 | ||
1223 | local port | |
1224 | for port in $(ports_get --all); do | |
1ba6a2bb | 1225 | port_destroy "${port}" |
9111eb72 MT |
1226 | done |
1227 | ||
acc9efd5 MT |
1228 | # Flush all DNS servers. |
1229 | dns_server_flush | |
1230 | ||
9111eb72 MT |
1231 | # Re-run the initialization functions |
1232 | init_run | |
1233 | ||
1234 | exit ${EXIT_OK} | |
1235 | } | |
1236 | ||
85afd775 MT |
1237 | # Help function: will show the default man page to the user. |
1238 | # Optionally, there are two arguments taken, the type of hook | |
1239 | # and which hook should be shown. | |
1c6a4e30 | 1240 | cli_help() { |
6b7654eb MT |
1241 | local cmd=${1} |
1242 | shift | |
85afd775 | 1243 | |
6b7654eb MT |
1244 | case "${cmd}" in |
1245 | zone|port|config) | |
1246 | local type=${cmd} | |
1247 | local hook=${1} | |
1248 | ||
1249 | # List all hooks if requested | |
1250 | if [ "${hook}" = "list-hooks" ]; then | |
1251 | cli_list_hooks ${type} | |
1252 | return ${EXIT_OK} | |
1253 | fi | |
85afd775 | 1254 | |
6b7654eb MT |
1255 | if ! hook_exists ${type} ${hook}; then |
1256 | error "No hook with name '${hook}' could be found" | |
1257 | exit "${EXIT_ERROR}" | |
1258 | fi | |
85afd775 | 1259 | |
6b7654eb MT |
1260 | hook_exec ${type} ${hook} help |
1261 | ;; | |
1262 | ||
1263 | # In all other cases show the default man page | |
1264 | *) | |
1265 | cli_show_man network | |
1266 | return ${EXIT_OK} | |
1267 | ;; | |
1268 | esac | |
85afd775 | 1269 | |
6b7654eb | 1270 | return ${EXIT_ERROR} |
85afd775 MT |
1271 | } |
1272 | ||
1c6a4e30 | 1273 | cli_dns_server() { |
acc9efd5 | 1274 | if cli_help_requested $@; then |
6b34112f | 1275 | cli_show_man network-dns-server |
acc9efd5 MT |
1276 | exit ${EXIT_OK} |
1277 | fi | |
1278 | ||
1279 | # Get the command. | |
1280 | local cmd=${1}; shift | |
1281 | if [ -z "${cmd}" ]; then | |
6b34112f | 1282 | cli_show_man network-dns-server |
acc9efd5 MT |
1283 | exit ${EXIT_ERROR} |
1284 | fi | |
1285 | ||
6f923dac MT |
1286 | # Get the new server to process (if any). |
1287 | local server=${1} | |
1288 | local priority=${2} | |
1289 | ||
acc9efd5 MT |
1290 | case "${cmd}" in |
1291 | list) | |
8d1d2745 | 1292 | dns_server_show |
e5efaa6b | 1293 | exit ${EXIT_OK} |
acc9efd5 MT |
1294 | ;; |
1295 | add) | |
e5651e17 MT |
1296 | if dns_server_exists ${server}; then |
1297 | error "DNS server '${server}' already exists!" | |
1298 | exit ${EXIT_ERROR} | |
1299 | fi | |
1300 | ||
6f923dac MT |
1301 | log INFO "Adding new DNS server: ${server}" |
1302 | dns_server_add ${server} ${priority} | |
acc9efd5 MT |
1303 | ;; |
1304 | remove) | |
e5651e17 MT |
1305 | if ! dns_server_exists ${server}; then |
1306 | error "DNS server '${server}' does not exist!" | |
1307 | exit ${EXIT_ERROR} | |
1308 | fi | |
1309 | ||
6f923dac MT |
1310 | log INFO "Removing DNS server: ${server}" |
1311 | dns_server_remove ${server} ${priority} | |
acc9efd5 MT |
1312 | ;; |
1313 | update) | |
1314 | # Just run the update afterwards. | |
1315 | ;; | |
1316 | *) | |
1317 | error "No such command: ${cmd}" | |
1318 | exit ${EXIT_ERROR} | |
1319 | esac | |
1320 | ||
1321 | # Update the local DNS configuration after changes have been made. | |
bf98f6fc | 1322 | dns_server_update |
acc9efd5 MT |
1323 | |
1324 | exit ${EXIT_OK} | |
1325 | } | |
1326 | ||
1c6a4e30 | 1327 | cli_raw() { |
bae37360 MT |
1328 | local cmd="${1}" |
1329 | assert isset cmd | |
1330 | shift | |
1331 | ||
1332 | case "${cmd}" in | |
c041b631 MT |
1333 | db-dump) |
1334 | db_dump | |
1335 | ;; | |
bae37360 MT |
1336 | list-devices) |
1337 | device_list | |
1338 | ;; | |
cc02f6be MT |
1339 | list-dhcpd-ranges-of-subnet) |
1340 | dhcpd_subnet_range_list $@ | |
1341 | ;; | |
1342 | list-dhcpd-settings) | |
1343 | dhcpd_global_settings_list $@ | |
1344 | ;; | |
1345 | list-dhcpd-subnets) | |
1346 | dhcpd_subnet_list $@ | |
1347 | ;; | |
1348 | list-dhcpd-subnet-options) | |
1349 | dhcpd_subnet_options_list $@ | |
1350 | ;; | |
8d1d2745 MT |
1351 | list-dns-servers) |
1352 | dns_server_list | |
1353 | ;; | |
bae37360 MT |
1354 | list-free-ports) |
1355 | port_list_free | |
1356 | ;; | |
1357 | list-hooks) | |
1358 | hook_list $@ | |
1359 | ;; | |
1360 | list-ports) | |
1361 | port_list | |
1362 | ;; | |
1363 | list-ports-of-zone) | |
1364 | zone_get_ports $@ | |
1365 | ;; | |
1366 | list-settings) | |
1367 | network_settings_list | |
1368 | ;; | |
1369 | list-zones) | |
1370 | zones_get_all | |
1371 | ;; | |
1ca5fe9f JS |
1372 | list-next-free-zones) |
1373 | zones_get_next_free | |
1374 | ;; | |
1375 | zone-name-is-valid) | |
1376 | zone_name_is_valid $@ | |
1377 | ;; | |
bae37360 MT |
1378 | *) |
1379 | error "No such command: ${cmd}" | |
1380 | exit ${EXIT_ERROR} | |
1381 | ;; | |
1382 | esac | |
1383 | ||
1384 | exit ${EXIT_OK} | |
1385 | } | |
1386 | ||
1848564d MT |
1387 | # Process the given action |
1388 | case "${action}" in | |
b8357295 MT |
1389 | init) |
1390 | init_run | |
1391 | ;; | |
1392 | ||
e9df08ad | 1393 | settings|hostname|port|device|zone|start|stop|restart|status|reset|route) |
0a79ea02 | 1394 | cli_${action} $@ |
1848564d MT |
1395 | ;; |
1396 | ||
6c07160e MT |
1397 | # DHCP server configuration (automatically detects which protocol to use). |
1398 | dhcpv6|dhcpv4) | |
1399 | cli_dhcpd ${action/dhcp/ip} $@ | |
1400 | ;; | |
1401 | ||
6b34112f MT |
1402 | # DNS server configuration. |
1403 | dns-server) | |
1404 | cli_dns_server $@ | |
1405 | ;; | |
1406 | ||
fe4555b5 | 1407 | ""|help|--help|-h) |
85afd775 | 1408 | cli_help $@ |
1848564d | 1409 | ;; |
fe4555b5 | 1410 | |
bae37360 MT |
1411 | raw) |
1412 | cli_raw $@ | |
1413 | ;; | |
1414 | ||
1848564d | 1415 | *) |
fe4555b5 | 1416 | error "Invalid command given: ${action}" |
de28a630 | 1417 | cli_usage "network help" |
1848564d | 1418 | exit ${EXIT_CONF_ERROR} |
fe4555b5 | 1419 | ;; |
1848564d | 1420 | esac |
85afd775 MT |
1421 | |
1422 | exit ${EXIT_OK} |