25

    26

LOG=y

    27

LOG_INFO=

    28

LOG_DEBUG=

    29

LOG_CMD=

    30

    32

UPDATE_NOOP=

    33

UPDATE_DIFF=

    43

    44

    -q      quiet

    45

    -v      verbose

    46

    -D      debug

    47

    48

    -d      show changes

    49

    51

    -n      no-op/mock-update; do not actually change anything; implies -S

    59

    while getopts 'hqvDdFnS' opt "$@"; do

    66

            q)  LOG= ;;

    67

            v)  LOG_INFO=y ;;

    68

            D)  

    69

                LOG_DEBUG=y 

    70

                LOG_CMD=y

    71

    72

                ;;

    73

    74

            d)  UPDATE_DIFF=y ;;

    77

    78

            n)  

    79

                # implies -S

    80

                UPDATE_NOOP=y 

    81

                SERIAL_NOUPDATE=y

    82

                ;;

    83

    84

   113

    [ $LOG ] && log_msg "$*" || true

   117

    [ $LOG_INFO ] && log_color 36 "  $*" || true

   121

    [ $LOG_DEBUG ] && log_color 32 "    $*" || true

   125

    [ $LOG_CMD ] && log_color 35 "        \$ $*" || true

   126

}

   127

   128

# XXX: broken

   129

function log_stack {

   130

    local level=1

   131

   132

    while info=$(caller $level); do

   133

        echo $info | read line sub file

   134

   135

        log_msg "$file:$lineno $sub()"

   136

   137

        level=$(($level + 1))

   138

    done

   139

}

   140

   141

function fail {

   142

    func=$(caller 1 | cut -d ' ' -f 2)

   143

   144

    log_error "$func: $*"

   145

   146

    exit 2

   169

    local indent=$1; shift

   170

   173

            echo "$indent$line"

   184

function check_update {

   185

    # target

   186

    local dst=$1; shift

   187

   188

    log_debug "$dst:"

   189

   190

    # need update?

   191

    local update=

   192

   193

    if [ ! -e $dst ] || [ $UPDATE_FORCE ]; then

   194

        log_debug "  update forced"

   195

        update=y

   196

    fi

   197

   198

    # check deps

   199

    for dep in "$@"; do

   200

        # don't bother checking if already figured out

   201

        [ $update ] && continue

   202

   203

        # check

   204

   205

        if [ $dst -ot $dep ]; then

   206

            log_debug "  changed: $dep"

   207

            update=y

   208

        fi

   209

    done

   210

   211

    [ ! $update ] && log_debug "  up-to-date"

   212

   213

    # return

   214

    [ $update ]

   215

}

   216

   217

function do_update {

   218

    local dst=$1; shift

   221

    log_debug "  update: $dst"

   222

    cmd "$@" > $tmp

   224

    # compare

   225

    if [ -e $dst ] && [ $UPDATE_DIFF ]; then

   226

        log_debug "  changes:"

   227

   228

        # terse

   229

        indent "        " diff --unified=1 $dst $tmp

   230

    fi

   231

   232

    if [ $UPDATE_NOOP ]; then

   233

        # cleanup

   234

        log_debug "  no-op:"

   235

   236

        cmd rm $tmp

   237

    else

   238

        # commit

   239

        log_debug "  done:"

   240

   241

        cmd mv $tmp $dst

   242

    fi

   243

}

   244

   245

function update {

   246

    local dst=$1; shift;

   247

   248

    local sep=

   249

    local dep=()

   250

    local cmd=()

   251

   252

    for arg in "$@"; do

   253

        if [ $arg == '--' ]; then

   254

            sep=y

   257

        if [ $sep ]; then

   258

            cmd=("${cmd[@]:-}" "$arg")

   259

        else

   260

            dep=("${dep[@]:-}" "$arg")

   261

        fi

   262

    done

   263

   264

    [ ! $sep ] && fail "Invalid args given: $@"

   265

   266

    check_update $dst "${dep[@]}" && do_update $dst "${cmd[@]}" || true

   271

    local serial=$1; shift

   272

    local old=$(cat $serial)

   273

   274

    log_info "Updating serial: $serial"

   275

   276

    cmd $UPDATE_SERIAL $* $serial

   277

   278

    local new=$(cat $serial)

   279

   280

    log_debug "  $old -> $new"

   293

    check_update $output $src && update $output $PROCESS_ZONE $PROCESS_ARGS "$@" $src

   302

    local src=$SETTINGS/$name

   303

    local dst=$ZONES/$name

   306

    if check_update $dst $src; then

   307

        log_info "Copying zone $zone.$part..."

   308

   309

        do_update $output cat $src

   310

    else

   311

        log_info "Copying zone $zone.$part: not changed"

   312

    fi

   317

   320

    local out=$ZONES/$name

   321

    local in=$SETTINGS/$zone.zone

   322

    local serial=$SERIALS/$zone.serial

   324

    if check_update $out $in $serial; then

   325

        log_info "Generating $zone zone headers..." 

   326

   327

        do_update $out \

   328

            $EXPAND_ZONE $SETTINGS/$zone.zone   \

   329

                --serial $SERIALS/$zone.serial  \

   330

                --expand zones=$ROOT/$ZONES

   331

    else

   332

        log_info "Generating $zone zone headers: not changed" 

   333

    fi

   342

    local out=$ZONES/$name

   343

    local in=$SETTINGS/$zone.zone

   344

    local serial=$SERIALS/$zone.serial

   346

    if check_update $out $in $serial; then

   347

        log_info "Generating $zone:$view zone headers..."

   348

   349

        do_update $out \

   350

            $EXPAND_ZONE $SETTINGS/$zone.zone   \

   351

                --serial $SERIALS/$zone.serial  \

   352

                --expand zones=$ROOT/$ZONES     \

   353

                --expand view=$view

   354

    else

   355

        log_info "Generating $zone:$view zone headers: not changed"

   356

    fi

   357

}

   358

   359

function update_hosts {

   360

    local dst=$1; shift

   361

    local src=$1; shift

   362

   363

   364

    if check_update $dst $src; then

   365

        log_info "Generating $dst..."

   366

   367

        do_update $dst $PROCESS_ZONE $PROCESS_ARGS $src "$@"

   368

    else

   369

        log_info "Generating $dst: not changed"

   370

    fi

   379

    log "Updating serials..."

   380

   382

        log_debug "skipping"

   384

        update_serial   $SERIALS/paivola.serial

   385

        update_serial   $SERIALS/paivola-reverse.serial

   389

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

   390

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

   391

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

   399

    log "Updating zones headers..."