Commit 40358a9e authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Forgot about this update script.

parent bbb73ca6
use strict;
use libdb;
use emdb;
sub DoUpdate($$$)
{
my ($dbhandle, $dbname, $version) = @_;
if (!DBSlotExists("future_reservations", "uuid")) {
DBQueryFatal("alter table future_reservations add ".
" `uuid` varchar(40) NOT NULL default ''");
}
my $query_result =
DBQueryFatal("select idx from future_reservations ".
"where uuid=''");
while (my ($idx) = $query_result->fetchrow_array()) {
DBQueryFatal("update future_reservations set ".
" uuid=uuid() ".
"where idx='$idx'");
sleep(1);
}
return 0;
}
# Local Variables:
# mode:perl
# End:
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment