289 599 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#
# Add key to node_history.
#
use strict;
use libdb;

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

    if (!DBKeyExists("node_history", "exptidx")) {
	DBQueryFatal("alter table node_history add " .
		     "  INDEX exptidx (exptidx)");
    }
    if (!DBKeyExists("node_history", "stamp")) {
	DBQueryFatal("alter table node_history add " .
		     "  INDEX stamp (stamp)");
    }
19
20
    if (!DBKeyExists("node_history", "cnet_ip")) {
	DBQueryFatal("alter table node_history add " .
Leigh B Stoller's avatar
Leigh B Stoller committed
21
		     "  INDEX cnet_IP (cnet_IP)");
22
    }
23
24
25
26
27
28
29
30
    return 0;
}

1;

# Local Variables:
# mode:perl
# End: