#!/bin/sh
#
# Copyright (C) 2000-2021 Kern Sibbald
# Copyright (C) 2021-2026 Bacula Systems SA
# License: BSD 2-Clause; see file LICENSE-FOSS
#

#
#  Test errors
#

TestName="network-error-test"
JobName=backup

. scripts/functions

scripts/cleanup
copy_test_confs

rm -f ${cwd}/tmp/*.log
echo "${cwd}/build/po" >${cwd}/tmp/file-list

start_test

# Number of times the code should be in the log
nb_errors=7
nbsd_errors=7

$bperl -e 'add_attribute("$conf/bacula-dir.conf", "FdConnectTimeout", "1", "Director")'
$bperl -e 'add_attribute("$conf/bacula-dir.conf", "SdConnectTimeout", "1", "Director")'

cat <<EOF >> $conf/bacula-dir.conf
Client {
  Name = 127.0.0.12-fd
  Address = 127.0.0.1
  FDPort = 8100
  Catalog = MyCatalog
  Password = "xxx"          # password for FileDaemon
  File Retention = 30d                # 30 days
  Job Retention = 180d                # six months
  AutoPrune = yes                     # Prune expired Jobs/Files
  Maximum Concurrent Jobs = 10
} 
EOF

# make a backup
cp $conf/bacula-dir.conf $tmp/

$bperl -e 'add_attribute("$conf/bacula-dir.conf", "Password", "x", "Client", "$HOST-fd")'

cat <<END_OF_DATA >${cwd}/tmp/bconcmds
@output /dev/null
messages
label volume=xxx pool=Default storage=File
setdebug level=200 trace=1 dir

@$out $tmp/log-DE0064.out
status client=$HOST-fd
run job=NightlySave yes
wait
messages
llist jobid=1
setdebug level=1 client=$HOST-fd
cancel inactive client=$HOST-fd jobid=1
.ls client=$HOST-fd path=/
snapshot sync
1

@$out $tmp/log-DE0049.out
status client=127.0.0.12-fd
run job=NightlySave client=127.0.0.12-fd yes
wait
messages
llist jobid=2
setdebug level=1 client=127.0.0.12-fd
cancel inactive client=127.0.0.12-fd jobid=2
.ls client=127.0.0.12-fd path=/
snapshot sync
2

@$out $tmp/log3.out
@exec "cp $tmp/bacula-dir.conf $conf/"
reload
status client=$HOST-fd
run job=NightlySave yes
wait
messages
setdebug level=1 client=$HOST-fd
cancel inactive client=$HOST-fd jobid=1
llist jobid=3
.ls client=$HOST-fd path=/
snapshot sync
1

@exec "$bin/bacula-ctl-sd stop"
@$out $tmp/logsd-DE0049.out
status storage
setdebug level=1 storage
run job=NightlySave yes
wait
messages
llist jobid=4
cancel inactive client=$HOST-fd jobid=1
restore client=$HOST-fd select all done yes
wait
messages
llist jobid=5

quit
END_OF_DATA

run_bacula

sed -i s/$HOST-dir/xxx/ $conf/bacula-fd.conf

$bin/bacula-ctl-fd restart
$bin/bacula-ctl-sd start

cat <<END_OF_DATA >${cwd}/tmp/bconcmds
@$out $tmp/log-DE0065.out
status client=$HOST-fd
run job=NightlySave yes
wait
messages
llist jobid=6
setdebug level=1 client=$HOST-fd
cancel inactive client=$HOST-fd jobid=1
.ls client=$HOST-fd path=/
snapshot sync
1

@sleep 2
quit
END_OF_DATA

run_bconsole

stop_bacula

for i in $tmp/log-*out
do
    p=`echo $i | perl -ne '/log-(.*).out/ && print $1'`
    nb=`grep "\[$p\]" $i | wc -l`
    if [ $nb != $nb_errors ]; then
        print_debug "ERROR: should find $nb_errors $p in $i"
        estat=1
    fi
done


for i in $tmp/logsd-*out
do
    p=`echo $i | perl -ne '/logsd-(.*).out/ && print $1'`
    nb=`grep "\[$p\]" $i | wc -l`
    if [ $nb != $nbsd_errors ]; then
        print_debug "ERROR: should find $nbsd_errors $p in $i"
        estat=1
    fi
done

end_test
