302 602 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 24 25 26
#
# Add external_wire slot to wires table and external_manager to
# external_networks table.
#
use strict;
use libdb;

my $impotent = 0;

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

    if (!DBSlotExists("wires", "external_wire")) {
        DBQueryFatal("alter table wires add ".
                     "  `external_wire` tinytext NULL default NULL");
    }
    if (!DBSlotExists("external_networks", "external_manager")) {
        DBQueryFatal("alter table external_networks add ".
                     "  `external_manager` tinytext NULL default NULL");
    }

    return 0;
}

1;