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

# Our bin dir, with scripts

    19

BIN=$(dirname $self)

    20

    21

# code root

    22

CODE=$(dirname $BIN)

    23

    24

# library code

    25

LIB=$CODE/lib

    26

    27

## Data paths

    28

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

    29

ROOT=$(pwd)

    30

    31

DATA=settings

    32

ZONES=zones

    33

SERIALS=$DATA

    34

    35

DHCP=dhcp

    36

DHCP_DATA=$DATA/dhcp

    37

    38

# global DHCP conf to test

    39

DHCPD=/usr/sbin/dhcpd

    40

DHCPD_CONF=/etc/dhcp/dhcpd.conf

    41

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

    42

    43

# hg repo to commit

    44

REPO=$DATA

    45

    46

## Settings used in lib

    47

# Hide files under repo in commit diff output..

    48

REPO_HIDE='*.serial'

    49

    50

# XXX: hosts data input charset?

    51

PROCESS_ARGS='--input-charset latin-1'

    52

DHCP_FILE_ARGS='--input-charset latin-1'

    53

    54

# External bins

    55

NAMED_CHECKZONE=/usr/sbin/named-checkzone

    56

    57

HG=/usr/bin/hg

    58

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

    59

    60

RNDC=/usr/sbin/rndc

    61

    62

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

    63

RNDC_KEY=/etc/bind/rndc.key

    64

    65

## Library includes

    66

# Command-line argument handling

    67

source $LIB/update.args

    68

    69

# Logging

    70

source $LIB/update.logging

    71

    72

# Utility functions

    73

source $LIB/update.utils

    74

    75

# Dependency-based updates

    76

source $LIB/update.updates

    77

    78

# Operations; the functions called from run()

    79

source $LIB/update.operations

    80

    81

## Flags

    82

# set by do_reload_zone if zone data has actually been reloaded

    83

RELOAD_ZONES=

    84

    85

## Site settings, used as arguments to scripts

    86

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

    87

FORWARD_MX=mail

    88

    89

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

    90

REVERSE_ZONE=194.197.235

    91

    92

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

    93

REVERSE_DOMAIN=paivola.fi

    94

    95

# Views used

    96

VIEWS=(internal external)

    97

    98

# Base domain zone for domains

    99

DOMAIN_BASE=paivola

   100

   101

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

   102

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

   103

   104

# Names of dhcp conf file names

   105

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

   106

   107

## Operate!

   108

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

   109

   110

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

   111

function run_hosts {

   112

    ## Hosts

   113

    # test

   114

    log "Testing hosts..."

   115

        #                   data                            args...

   116

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

   117

   118

    # update

   119

    log "Generating host zones..."

   120

        #                   hosts                           data                args...

   121

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

   122

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

   123

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

   124

   125

   126

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

   127

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

   128

   129

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

   130

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

   131

        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

   144

    ## Serials

   145

    log "Updating serials..."

   146

   147

        #                   zone            deps...

   148

        #   includes...

   149

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

   150

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

   151

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

   152

   153

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

   154

            $ZONES/includes/paivola:*       \

   155

            $ZONES/includes/paivola.*

   156

   157

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

   158

   159

    ## Zones

   160

    log "Updating zones..."

   161

        #                   view        zone            base

   162

        update_zone         internal    pvl

   163

        update_zone         internal    paivola

   164

        update_zone         external    paivola

   165

   166

        update_zone         internal    10

   167

        update_zone         internal    192.168

   168

   169

        update_zone         common      194.197.235

   170

        link_zone           internal    194.197.235

   171

        link_zone           external    194.197.235

   172

   173

    ## Test

   174

    log "Testing zones..."

   175

        #                   view        zone            origin

   176

        check_zone          internal    paivola         paivola.fi

   177

        check_zone          external    paivola         paivola.fi

   178

   179

        check_zone          internal    10              10.in-addr.arpa

   180

        check_zone          internal    192.168         192.168.in-addr.arpa

   181

        check_zone          common      194.197.235     235.197.194.in-addr.arpa

   182

   183

    ## Domains...

   184

    log "Linking domains..."

   185

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

   186

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

   187

                # link

   188

                link_zone       $view       $zone           $DOMAIN_BASE

   189

   190

                # test

   191

                check_zone      $view       $zone           $zone

   192

            done

   193

        done

   194

}

   195

   196

# Update $DHCP files from $DATA/dhcp

   197

function run_dhcp {

   198

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

   199

   200

    log "Copying DHCP configs..."

   201

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

   205

            #                   conf               base

   206

            copy_dhcp_conf      $conf

   207

        done

   208

   209

    log "Testing dhcp..."

   211

        check_dhcp

   212

}

   213

   214

# Runs DHCP checks, once DNS hosts have been updated

   215

function run_dhcp_check {

   216

    log "Testing dhcp hosts..."

   217

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

   218

            check_dhcp_hosts    $DHCP/$conf.conf

   219

        done

   220

}

   221

   222

function run_deploy {

   223

    ## Reload zones

   224

    log "Reload zones..."

   225

        reload_zones

   226

   227

    ## DHCP

   228

    run_dhcp_check

   229

   230

    log "Reload dhcp..."

   231

        reload_dhcp

   232

   233

    ## Commit

   234

    log "Commit data..."

   235

        commit_data

   236

}

   237

   238

## Main entry point

   239

function main {

   240

    # test tty

   241

    [ -t 1 ] && IS_TTY=y

   242

   243

    parse_args "$@"

   244

   245

    ## Input dirs

   246

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

   247

   248

    ## Output dirs

   249

    for dir in $DHCP $ZONES; do

   250

        ensure_dir  $dir

   251

    done

   252

   253

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

   254

        ensure_dir  $ZONES/$dir

   255

    done

   256

   257

    ## Go

   258

    run_hosts

   259

    run_zones

   260

    run_dhcp

   261

    run_deploy

   262

}

   263

   264

main "$@"