| #!/bin/bash |
| # |
| # dhclient-script for Linux. |
| # |
| # This program is free software; you can redistribute it and/or |
| # modify it under the terms of the GNU General Public License |
| # as published by the Free Software Foundation; either version |
| # 2 of the License, or (at your option) any later version. |
| # |
| # Authors: Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru> |
| # |
| # Probably, I did not understand, what this funny feature as "alias" |
| # means exactly. For now I suppose, that it is a static address, which |
| # we should install and preserve. |
| # |
| |
| exec >> /var/log/DHS.log 2>&1 |
| |
| echo dhc-script $* reason=$reason |
| set | grep "^\(old_\|new_\|check_\)" |
| |
| LOG () { |
| echo LOG $* ; |
| } |
| |
| # convert 8bit mask to length |
| # arg: $1 = mask |
| # |
| Mask8ToLen() { |
| local l=0; |
| |
| while [ $l -le 7 ]; do |
| if [ $[ ( 1 << $l ) + $1 ] -eq 256 ]; then |
| return $[ 8 - $l ] |
| fi |
| l=$[ $l + 1 ] |
| done |
| return 0; |
| } |
| |
| # convert inet dotted quad mask to length |
| # arg: $1 = dotquad mask |
| # |
| MaskToLen() { |
| local masklen=0 |
| local mask8=$1 |
| |
| case $1 in |
| 0.0.0.0) |
| return 0; |
| ;; |
| 255.*.0.0) |
| masklen=8 |
| mask8=${mask8#255.} |
| mask8=${mask8%.0.0} |
| ;; |
| 255.255.*.0) |
| masklen=16 |
| mask8=${mask8#255.255.} |
| mask8=${mask8%.0} |
| ;; |
| 255.255.255.*) |
| masklen=24 |
| mask8=${mask8#255.255.255.} |
| ;; |
| *) |
| return 255 |
| ;; |
| esac |
| Mask8ToLen $mask8 |
| return $[ $? + $masklen ] |
| } |
| |
| # calculate ABC "natural" mask |
| # arg: $1 = dotquad address |
| # |
| ABCMask () { |
| local class; |
| |
| class=${1%%.*} |
| |
| if [ "$1" = "255.255.255.255" ]; then |
| echo $1 |
| elif [ "$1" = "0.0.0.0" ]; then |
| echo $1 |
| elif [ $class -ge 224 ]; then |
| echo 240.0.0.0 |
| elif [ $class -ge 192 ]; then |
| echo 255.255.255.0 |
| elif [ $class -ge 128 ]; then |
| echo 255.255.0.0 |
| else |
| echo 255.0.0.0 |
| fi |
| } |
| |
| # calculate ABC "natural" mask length |
| # arg: $1 = dotquad address |
| # |
| ABCMaskLen () { |
| local class; |
| |
| class=${1%%.*} |
| |
| if [ "$1" = "255.255.255.255" ]; then |
| return 32 |
| elif [ "$1" = "0.0.0.0" ]; then |
| return 0 |
| elif [ $class -ge 224 ]; then |
| return 4; |
| elif [ $class -ge 192 ]; then |
| return 24; |
| elif [ $class -ge 128 ]; then |
| return 16; |
| else |
| return 8; |
| fi |
| } |
| |
| # Delete IP address |
| # args: $1 = interface |
| # $2 = address |
| # $3 = mask |
| # $4 = broadcast |
| # $5 = label |
| # |
| DelINETAddr () { |
| local masklen=32 |
| local addrid=$1 |
| |
| LOG DelINETAddr $* |
| |
| if [ "$5" ]; then |
| addrid=$addrid:$5 |
| fi |
| LOG ifconfig $addrid down |
| ifconfig $addrid down |
| } |
| |
| # Add IP address |
| # args: $1 = interface |
| # $2 = address |
| # $3 = mask |
| # $4 = broadcast |
| # $5 = label |
| # |
| AddINETAddr () { |
| local mask_arg |
| local brd_arg |
| local addrid=$1 |
| |
| LOG AddINETAddr $* |
| |
| if [ "$5" ]; then |
| addrid=$addrid:$5 |
| fi |
| if [ "$3" ]; then |
| mask_arg="netmask $3" |
| fi |
| if [ "$4" ]; then |
| brd_arg="broadcast $4" |
| fi |
| |
| LOG ifconfig $addrid $2 $mask_arg $brd_arg up |
| ifconfig $addrid $2 $mask_arg $brd_arg up |
| } |
| |
| # Add default routes |
| # args: $1 = routers list |
| # |
| AddDefaultRoutes() { |
| local router |
| |
| if [ "$1" ]; then |
| LOG AddDefaultRoutes $* |
| for router in $1; do |
| LOG route add default gw $router |
| route add default gw $router |
| done ; |
| fi |
| } |
| |
| # Delete default routes |
| # args: $1 = routers list |
| # |
| DelDefaultRoutes() { |
| local router |
| |
| if [ "$1" ]; then |
| LOG DelDefaultRoutes $* |
| |
| for router in $1; do |
| LOG route del default gw $router |
| route del default gw $router |
| done |
| fi |
| } |
| |
| # ping a host |
| # args: $1 = dotquad address of the host |
| # |
| PingNode() { |
| LOG PingNode $* |
| if ping -q -c 1 -w 2 $1 ; then |
| return 0; |
| fi |
| return 1; |
| } |
| |
| # Check (and add route, if alive) default routers |
| # args: $1 = routers list |
| # returns: 0 if at least one router is alive. |
| # |
| CheckRouterList() { |
| local router |
| local succeed=1 |
| |
| LOG CheckRouterList $* |
| |
| for router in $1; do |
| if PingNode $router ; then |
| succeed=0 |
| route add default gw $router |
| fi |
| done |
| return $succeed |
| } |
| |
| # Delete/create static routes. |
| # args: $1 = operation (del/add) |
| # $2 = routes list in format "dst1 nexthop1 dst2 ..." |
| # |
| # BEWARE: this feature of DHCP is obsolete, because does not |
| # support subnetting. |
| # |
| X-StaticRouteList() { |
| local op=$1 |
| local lst="$2" |
| local masklen |
| |
| LOG X-StaticRouteList $* |
| |
| if [ "$lst" ]; then |
| set $lst |
| while [ $# -gt 1 ]; do |
| route $op -net $1 netmask `ABCMask "$1"` gw $2 |
| shift; shift; |
| done |
| fi |
| } |
| |
| # Create static routes. |
| # arg: $1 = routes list in format "dst1 nexthop1 dst2 ..." |
| # |
| AddStaticRouteList() { |
| LOG AddStaticRouteList $* |
| X-StaticRouteList add "$1" |
| } |
| |
| # Delete static routes. |
| # arg: $1 = routes list in format "dst1 nexthop1 dst2 ..." |
| # |
| DelStaticRouteList() { |
| LOG DelStaticRouteList $* |
| X-StaticRouteList del "$1" |
| } |
| |
| # Broadcast unsolicited ARP to update neighbours' caches. |
| # args: $1 = interface |
| # $2 = address |
| # |
| UnsolicitedARP() { |
| if [ -f /sbin/arping ]; then |
| /sbin/arping -A -c 1 -I "$1" "$2" & |
| (sleep 2 ; /sbin/arping -U -c 1 -I "$1" "$2" ) & |
| fi |
| } |
| |
| # Duplicate address detection. |
| # args: $1 = interface |
| # $2 = test address |
| # returns: 0, if DAD succeeded. |
| DAD() { |
| if [ -f /sbin/arping ]; then |
| /sbin/arping -c 2 -w 3 -D -I "$1" "$2" |
| return $? |
| fi |
| return 0 |
| } |
| |
| |
| # Setup resolver. |
| # args: NO |
| # domain and nameserver list are passed in global variables. |
| # |
| # NOTE: we try to be careful and not to break user supplied resolv.conf. |
| # The script mangles it, only if it has dhcp magic signature. |
| # |
| UpdateDNS() { |
| local nameserver |
| local idstring="#### Generated by DHCPCD" |
| |
| LOG UpdateDNS $* |
| |
| if [ "$new_domain_name" = "" -a "$new_domain_name_servers" = "" ]; then |
| return 0; |
| fi |
| |
| echo $idstring > /etc/resolv.conf.dhcp |
| if [ "$new_domain_name" ]; then |
| echo search $new_domain_name >> /etc/resolv.conf.dhcp |
| fi |
| echo options ndots:1 >> /etc/resolv.conf.dhcp |
| |
| if [ "$new_domain_name_servers" ]; then |
| for nameserver in $new_domain_name_servers; do |
| echo nameserver $nameserver >> /etc/resolv.conf.dhcp |
| done |
| else |
| echo nameserver 127.0.0.1 >> /etc/resolv.conf.dhcp |
| fi |
| |
| if [ -f /etc/resolv.conf ]; then |
| if [ "`head -1 /etc/resolv.conf`" != "$idstring" ]; then |
| return 0 |
| fi |
| if [ "$old_domain_name" = "$new_domain_name" -a |
| "$new_domain_name_servers" = "$old_domain_name_servers" ]; then |
| return 0 |
| fi |
| fi |
| mv /etc/resolv.conf.dhcp /etc/resolv.conf |
| } |
| |
| case $reason in |
| NBI) |
| exit 1 |
| ;; |
| |
| MEDIUM) |
| exit 0 |
| ;; |
| |
| PREINIT) |
| ifconfig $interface:dhcp down |
| ifconfig $interface:dhcp1 down |
| if [ -d /proc/sys/net/ipv4/conf/$interface ]; then |
| ifconfig $interface:dhcp 10.10.10.10 netmask 255.255.255.255 |
| ifconfig $interface:dhcp down |
| if [ -d /proc/sys/net/ipv4/conf/$interface ]; then |
| LOG The interface $interface already configured. |
| fi |
| fi |
| ifconfig $interface:dhcp up |
| exit 0 |
| ;; |
| |
| ARPSEND) |
| exit 0 |
| ;; |
| |
| ARPCHECK) |
| if DAD "$interface" "$check_ip_address" ; then |
| exit 0 |
| fi |
| exit 1 |
| ;; |
| |
| BOUND|RENEW|REBIND|REBOOT) |
| if [ "$old_ip_address" -a "$alias_ip_address" -a \ |
| "$alias_ip_address" != "$old_ip_address" ]; then |
| DelINETAddr "$interface" "$alias_ip_address" "$alias_subnet_mask" "$alias_broadcast_address" dhcp1 |
| fi |
| if [ "$old_ip_address" -a "$old_ip_address" != "$new_ip_address" ]; then |
| DelINETAddr "$interface" "$old_ip_address" "$old_subnet_mask" "$old_broadcast_address" dhcp |
| DelDefaultRoutes "$old_routers" |
| DelStaticRouteList "$old_static_routes" |
| fi |
| if [ "$old_ip_address" = "" -o "$old_ip_address" != "$new_ip_address" -o \ |
| "$reason" = "BOUND" -o "$reason" = "REBOOT" ]; then |
| AddINETAddr "$interface" "$new_ip_address" "$new_subnet_mask" "$new_broadcast_address" dhcp |
| AddStaticRouteList "$new_static_routes" |
| AddDefaultRoutes "$new_routers" |
| UnsolicitedARP "$interface" "$new_ip_address" |
| fi |
| if [ "$new_ip_address" != "$alias_ip_address" -a "$alias_ip_address" ]; then |
| AddINETAddr "$interface" "$alias_ip_address" "$alias_subnet_mask" "$alias_broadcast_address" dhcp1 |
| fi |
| UpdateDNS |
| exit 0 |
| ;; |
| |
| EXPIRE|FAIL) |
| if [ "$alias_ip_address" ]; then |
| DelINETAddr "$interface" "$alias_ip_address" "$alias_subnet_mask" "$alias_broadcast_address" dhcp1 |
| fi |
| if [ "$old_ip_address" ]; then |
| DelINETAddr "$interface" "$old_ip_address" "$old_subnet_mask" "$old_broadcast_address" dhcp |
| DelDefaultRoutes "$old_routers" |
| DelStaticRouteList "$old_static_routes" |
| fi |
| if [ "$alias_ip_address" ]; then |
| AddINETAddr "$interface" "$alias_ip_address" "$alias_subnet_mask" "$alias_broadcast_address" dhcp1 |
| fi |
| exit 0 |
| ;; |
| |
| TIMEOUT) |
| if [ "$alias_ip_address" ]; then |
| DelINETAddr "$interface" "$alias_ip_address" "$alias_subnet_mask" "$alias_broadcast_address" dhcp1 |
| fi |
| # Seems, <null address> means, that no more old leases found. |
| # Or does it mean bug in dhcpcd? 8) Fail for now. |
| if [ "$new_ip_address" = "<null address>" ]; then |
| if [ "$old_ip_address" ]; then |
| DelINETAddr "$interface" "$old_ip_address" "$old_subnet_mask" "$old_broadcast_address" dhcp |
| fi |
| if [ "$alias_ip_address" ]; then |
| AddINETAddr "$interface" "$alias_ip_address" "$alias_subnet_mask" "$alias_broadcast_address" dhcp1 |
| fi |
| exit 1 |
| fi |
| if DAD "$interface" "$new_ip_address" ; then |
| AddINETAddr "$interface" "$new_ip_address" "$new_subnet_mask" "$new_broadcast_address" dhcp |
| UnsolicitedARP "$interface" "$new_ip_address" |
| if [ "$alias_ip_address" -a "$alias_ip_address" != "$new_ip_address" ]; then |
| AddINETAddr "$interface" "$alias_ip_address" "$alias_subnet_mask" "$alias_broadcast_address" dhcp1 |
| UnsolicitedARP "$interface" "$alias_ip_address" |
| fi |
| if CheckRouterList "$new_routers" ; then |
| AddStaticRouteList "$new_static_routes" |
| UpdateDNS |
| exit 0 |
| fi |
| fi |
| DelINETAddr "$interface" "$new_ip_address" "$new_subnet_mask" "$new_broadcast_address" dhcp |
| DelDefaultRoutes "$old_routers" |
| DelStaticRouteList "$old_static_routes" |
| if [ "$alias_ip_address" ]; then |
| AddINETAddr "$interface" "$alias_ip_address" "$alias_subnet_mask" "$alias_broadcast_address" dhcp1 |
| fi |
| exit 1 |
| ;; |
| esac |
| |
| exit 0 |