#!/usr/local/bin/perl
##############################################################################
#
# mysql_restore.pl
#
# replace <database name> <user name> and <password> with the
# correct values.  Make sure the correct name is in $updatefile
#
##############################################################################
$database="<database name>";
$user="<user name>";
$password="<password>";

$updatefile="$ENV{'DOCUMENT_ROOT'}/cgi-bin/restore.sql";

$command = "/usr/bin/cat $updatefile | /usr/local/mysql/bin/mysql -f --password=$password -u $user $database";

$|=1;
print "Content-type: text/html\n\n";
print "<TITLE> Update of $database database</TITLE>\n";
print "Output from: $command<br>\n";
print "<hr><pre>";

system "$command";

print "</pre><br>\n";
print "<HR><B>Done</b>\n";
exit 1;