33 414 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
#
# Add a flag to indicate slice is hosed and needs human attention.
#
use strict;
use GeniDB;

sub DoUpdate($$$)
{
    my ($dbhandle, $dbname, $version) = @_;

    DBSetDefault($dbhandle);

    if (!DBSlotExists("geni_slices", "hosed")) {
	DBQueryFatal("alter table geni_slices add ".
		     "    `hosed` tinyint(1) default 0 after stitch_locked");
    }
    return 0;
}
1;

# Local Variables:
# mode:perl
# End: