1

#!/bin/bash

     2

# vim: set ft=sh :

     3

     4

set -ue

     5

     6

# resolve $0 -> bin/update

     7

self=$0

     8

while [ -L $self ]; do

     9

    tgt=$(readlink $self)

    10

    11

    if [ "${tgt:0:1}" == "/" ]; then

    12

        self=$tgt

    13

    else

    14

        self=$(dirname $self)/$tgt

    15

    fi

    16

done

    17

    18

# root dir

    19

ROOT=$(dirname $(dirname $self))

    20

    21

BIN=$ROOT/bin

    22

LIB=$ROOT/lib

    23

VAR=$ROOT/var

    24

    25

## Data paths

    26

# absolute path to data files; can be changed using -d

    27

ROOT=$(pwd)

    28

    29

DATA=settings

    30

ZONES=$VAR/zones

    31

SERIALS=$VAR/serials

    32

    33

DHCP=$VAR/dhcp

    34

DHCP_DATA=$DATA/dhcp

    35

    36

# global DHCP conf to test

    37

DHCPD=/usr/sbin/dhcpd

    38

DHCPD_CONF=/etc/dhcp/dhcpd.conf

    39

DHCPD_INIT=/etc/init.d/isc-dhcp-server

    40

    41

# hg repo to commit

    42

REPO=$DATA

    43

    44

## Settings used in lib

    45

# Hide files under repo in commit diff output..

    46

REPO_HIDE='*.serial'

    47

    48

# data input charsets; arguments to ./bin/... python scripts

    49

HOSTS_FILE_ARGS='--input-charset utf-8'

    50

DHCP_FILE_ARGS='--input-charset utf-8'

    51

    52

# External bins

    53

NAMED_CHECKZONE=/usr/sbin/named-checkzone

    54

    55

HG=/usr/bin/hg

    56

HG_ARGS=(--config trusted.users=root)

    57

    58

RNDC=/usr/sbin/rndc

    59

    60

# Path to rndc key, must be readable to run..

    61

RNDC_KEY=/etc/bind/rndc.key

    62

    63

## Library includes

    64

# Command-line argument handling

    65

source $LIB/update.args

    66

    67

# Logging

    68

source $LIB/update.logging

    69

    70

# Utility functions

    71

source $LIB/update.utils

    72

    73

# Dependency-based updates

    74

source $LIB/update.updates

    75

    76

# Operations; the functions called from run()

    77

source $LIB/update.operations

    78

    79

## Flags

    80

# set by do_reload_zone if zone data has actually been reloaded

    81

RELOAD_ZONES=

    82

    83

## Site settings, used as arguments to scripts

    84

# MX record to generate in hosts --forward-zone

    85

FORWARD_MX=mx0

    86

    87

# IP network to generate reverse records for in --reverse-zone

    88

REVERSE_ZONE=194.197.235

    89

    90

# Origin domain to generate reverse records for in --reverse-zone

    91

REVERSE_DOMAIN=paivola.fi

    92

    93

# Views used

    94

VIEWS=(internal external)

    95

    96

# Base domain zone for domains

    97

DOMAIN_BASE=paivola

    98

    99

# List of actual domains used; will be linked to $DOMAIN_BASE

   100

DOMAINS=(paivola.fi paivola.net paivola.org paivola.info paivola.mobi xn--pivl-load8j.fi)

   101

   102

# Names of dhcp conf file names

   103

DHCP_CONFS=( $(list_files $DHCP_DATA *.conf) )

   104

   105

## Operate!

   106

# these functions are all defined in lib/update.operations

   107

   108

# Update $ZONES/$DHCP host-files from $DATA

   109

function run_hosts {

   110

    ## Hosts

   111

    # test

   112

    log "Testing hosts..."

   113

        #                   data                            args...

   114

        check_hosts         $DATA/paivola.txt               --check-exempt ufc

   115

   116

    # update

   117

    log "Generating host zones..."

   118

        #                   hosts                           data                args...

   119

        update_hosts        $ZONES/hosts/paivola:internal   $DATA/paivola.txt   --forward-zone --forward-txt

   120

        update_hosts        $ZONES/hosts/paivola:external   $DATA/paivola.txt   --forward-zone

   121

        update_hosts        $ZONES/hosts/194.197.235        $DATA/paivola.txt   --reverse-zone $REVERSE_ZONE --reverse-domain $REVERSE_DOMAIN

   122

   123

   124

        update_hosts        $ZONES/hosts/10                 $DATA/pvl.txt       --reverse-zone 10 --reverse-domain pvl -q

   126

        update_hosts        $ZONES/hosts/192.168            $DATA/pvl.txt       --reverse-zone 192.168 --reverse-domain pvl -q

   127

   128

        # XXX: unsupported --forward-zone with pvl.txt

   129

        # update_hosts    $ZONES/hosts/pvl                    $DATA/pvl.txt      --forward-zone

   130

        copy_hosts          $ZONES/hosts/pvl                $DATA/pvl.txt

   132

}

   133

   134

# Update $ZONES files

   135

function run_zones {

   136

    ## Includes

   137

    log "Copying zone includes..."

   138

        #                   view            zone                    base

   139

        copy_zone           includes        paivola:internal        paivola.zone.internal

   140

        copy_zone           includes        paivola:external        paivola.zone.external

   141

        copy_zone           includes        paivola.auto            paivola.zone.auto

   142

        copy_zone           includes        paivola.services        paivola.zone.services

   143

        copy_zone           includes        paivola.aux             paivola.zone.aux

   144

   145

    ## Serials

   146

    log "Updating serials..."

   147

   148

        #                   zone            deps...

   149

        #   includes...

   150

        update_serial       pvl             $ZONES/hosts/pvl            $DATA/pvl.zone

   152

        update_serial       10              $ZONES/hosts/10             $DATA/10.zone

   155

        update_serial       192.168         $ZONES/hosts/192.168        $DATA/192.168.zone

   156

   157

        update_serial       paivola         $ZONES/hosts/paivola:*      $DATA/paivola.zone          \

   158

            $ZONES/includes/paivola:*       \

   159

            $ZONES/includes/paivola.*

   160

   161

        update_serial       194.197.235     $ZONES/hosts/194.197.235    $DATA/194.197.235.zone          

   162

   163

    ## Zones

   164

    log "Updating zones..."

   165

        #                   view        zone            base

   166

        update_zone         internal    pvl

   168

   169

        update_zone         internal    10

   172

        update_zone         internal    192.168

   173

   174

        update_zone         common      194.197.235

   175

        link_zone           internal    194.197.235

   176

        link_zone           external    194.197.235

   177

   178

    ## Test

   179

    log "Testing zones..."

   180

        #                   view        zone            origin

   181

        check_zone          internal    10              10.in-addr.arpa

   185

        check_zone          internal    192.168         192.168.in-addr.arpa

   186

        check_zone          common      194.197.235     235.197.194.in-addr.arpa

   187

   188

    ## Domains...

   189

    log "Linking domains..."

   190

        for view in "${VIEWS[@]}"; do

   191

            for zone in "${DOMAINS[@]}"; do

   192

                # choose input .zone to use

   193

                base=$(choose_zone $zone $DOMAIN_BASE)

   194

   195

                if [ $base != $DOMAIN_BASE ]; then

   196

                    # serial

   197

                    # XXX: not all zones use all these includes?

   198

                    update_serial   $base       $DATA/$base.zone    \

   199

                        $ZONES/hosts/paivola:*                      \

   200

                        $ZONES/includes/paivola:*                   \

   201

                        $ZONES/includes/paivola.*

   202

                fi

   203

   204

                # link

   205

                update_zone     $view       $zone           $base

   206

   207

                # test

   208

                check_zone      $view       $zone           $zone

   209

            done

   210

        done

   211

}

   212

   213

# Update $DHCP files from $DATA/dhcp

   214

function run_dhcp {

   215

    log_debug "DHCP_CONFS: ${DHCP_CONFS[*]}"

   216

   217

    log "Copying DHCP configs..."

   218

        for conf in "${DHCP_CONFS[@]}"; do

   219

            # XXX: ei toimi, koska conf:it riippuu toisistaan include:ien takia

   220

            # check_dhcp_conf     $conf

   221

   222

            #                   conf               base

   223

            copy_dhcp_conf      $conf

   224

        done

   225

   226

    log "Testing dhcp..."

   227

        # checks the whole dhcpd.conf, with all includes..

   228

        check_dhcp

   229

}

   230

   231

# Runs DHCP checks, once DNS hosts have been updated

   232

function run_dhcp_check {

   233

    log "Testing dhcp hosts..."

   234

        for conf in "${DHCP_CONFS[@]}"; do

   235

            check_dhcp_hosts    $DHCP/$conf.conf

   236

        done

   237

}

   238

   239

function run_deploy {

   240

    ## Reload zones

   241

    log "Reload zones..."

   242

        reload_zones

   243

   244

    ## DHCP

   245

    run_dhcp_check

   246

   247

    log "Reload dhcp..."

   248

        reload_dhcp

   249

   250

    ## Commit

   251

    log "Commit data..."

   252

        commit_data

   253

}

   254

   255

## Main entry point

   256

function main {

   257

    # test tty

   258

    [ -t 1 ] && IS_TTY=y

   259

   260

    parse_args "$@"

   261

   262

    ## Input dirs

   263

    [ -d $ROOT/$DATA ] || die "Missing data: $ROOT/$DATA"

   264

   265

    ## Output dirs

   266

    for dir in $VAR $DHCP $ZONES $SERIALS; do

   267

        ensure_dir  $dir

   268

    done

   269

   270

    # sub-$ZONES

   271

    for dir in "common" "hosts" "includes" "${VIEWS[@]}"; do

   272

        ensure_dir  $ZONES/$dir

   273

    done

   274

   275

    ## Go

   276

    run_hosts

   277

    run_zones

   278

    run_dhcp

   279

    run_deploy

   280

}

   281

   282

main "$@"