Mysql lock, show master, backup, and unlock

#!/usr/bin/expect -f
#Created by Will 22 Mar 06
#
#this script is designed to log onto the mysql
#client, read lock tables, show master status,
#bounce out to the shell and dump databases
#to gzipped sql files, then unlock the tables.
#
#these files are then backed up using veritas
#over smb.
#
#

set force_conservative 0  ;# set to 1 to force conservative mode even if
;# script wasn't run conservatively originally
if {$force_conservative} {
set send_slow {1 .1}
proc send {ignore arg} {
sleep .1
exp_send -s -- $arg
}
}
set timeout -1
spawn mysql -u root -p
match_max 100000
expect -exact "Enter password: "
send -- "password\r"
expect "mysql> "
send -- "FLUSH TABLES WITH READ LOCK;\r"
expect "mysql> "
send -- "show master status;\r"
expect "mysql> "

send -- "system mysqldump --add-locks -Fq -u root -ppassword -B mysql | gzip > /var/lib/mysqlbackup/mysql.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B tapemanagement | gzip > /var/lib/mysqlbackup/tapemanagement.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B DPMAIN | gzip > /var/lib/mysqlbackup/DPMAIN.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_ADVENTIST | gzip > /var/lib/mysqlbackup/CLIENT_ADVENTIST.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_AMC | gzip > /var/lib/mysqlbackup/CLIENT_AMC.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_ANG | gzip > /var/lib/mysqlbackup/CLIENT_ANG.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_BPA | gzip > /var/lib/mysqlbackup/CLIENT_BPA.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_CDS | gzip > /var/lib/mysqlbackup/CLIENT_CDS.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_CSA | gzip > /var/lib/mysqlbackup/CLIENT_CSA.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_EBS | gzip > /var/lib/mysqlbackup/CLIENT_EBS.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_MIDWEST | gzip > /var/lib/mysqlbackup/CLIENT_MIDWEST.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_REY | gzip > /var/lib/mysqlbackup/CLIENT_REY.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_ULTRAB | gzip > /var/lib/mysqlbackup/CLIENT_ULTRAB.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B DPAUTOTASK | gzip > /var/lib/mysqlbackup/DPAUTOTASK.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B DPGATEWAY | gzip > /var/lib/mysqlbackup/DPGATEWAY.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B DPREPORT | gzip > /var/lib/mysqlbackup/DPREPORT.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B Network_BEACON | gzip > /var/lib/mysqlbackup/Network_BEACON.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B Network_TRPN | gzip > /var/lib/mysqlbackup/Network_TRPN.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B WEBPROV | gzip > /var/lib/mysqlbackup/WEBPROV.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B DPMAIN_ARCHIVE | gzip > /var/lib/mysqlbackup/DPMAIN_ARCHIVE.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B DPAUTOTASK_ARCHIVE | gzip > /var/lib/mysqlbackup/DPAUTOTASK_ARCHIVE.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_OSG | gzip > /var/lib/mysqlbackup/CLIENT_OSG.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_TML | gzip > /var/lib/mysqlbackup/CLIENT_TML.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_MORRIS | gzip > /var/lib/mysqlbackup/CLIENT_MORRIS.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_CBA | gzip > /var/lib/mysqlbackup/CLIENT_CBA.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_CCMSI | gzip > /var/lib/mysqlbackup/CLIENT_CCMSI.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_TWN | gzip > /var/lib/mysqlbackup/CLIENT_TWN.sql.gz\r"
expect "mysql> "
send -- "system mysqldump --add-locks -Fq -u root -ppassword -B CLIENT_PRE | gzip > /var/lib/mysqlbackup/CLIENT_PRE.sql.gz\r"
expect "mysql> "

send -- "unlock tables;\r"
expect "mysql> "
send -- "quit\r"
expect eof