#!/usr/local/bin/perl
###############################################################################
#
# mysql_backup.pl
#
# replace <database name> <user name> and <password> with the
# correct values
#
###############################################################################
$database="<database name>";
$user="<user name>";
$password="<password>";

system "/usr/local/mysql/bin/mysqldump --password=$password -u $user $database > $database.sql";

$|=1;
print "Content-type: text/html\n\n";
print "<TITLE> Backup of $database database complete</TITLE>\n";
print "<B>The database has been backed up to
$ENV{'DOCUMENT_ROOT'}/cgi-bin/$database.sql</B><HR>\n";
open SQL,"$database.sql";
while (<SQL>) {
print;
print "<BR>\n";
}
close SQL;
exit 1;