474 1.01 KB
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
27
28
29
30
31
use strict;
use libdb;

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

    if (!DBTableExists("apt_instance_failures")) {
	DBQueryFatal("CREATE TABLE `apt_instance_failures` ( ".
	     "  `uuid` varchar(40) NOT NULL default '', ".
	     "  `name` varchar(16) default NULL, ".
	     "  `profile_id` int(10) unsigned NOT NULL default '0', ".
	     "  `profile_version` int(10) unsigned NOT NULL default '0', ".
	     "  `slice_uuid` varchar(40) default NULL, ".
	     "  `creator` varchar(8) NOT NULL default '', ".
	     "  `creator_idx` mediumint(8) unsigned NOT NULL default '0', ".
	     "  `creator_uuid` varchar(40) NOT NULL default '', ".
	     "  `pid` varchar(48) default NULL, ".
	     "  `pid_idx` mediumint(8) unsigned default NULL, ".
	     "  `created` datetime default NULL, ".
	     "  `exitcode` int(10) default '0', ".
	     "  `exitmessage` mediumtext, ".
	     "  PRIMARY KEY (`uuid`) ".
	     ") ENGINE=MyISAM DEFAULT CHARSET=latin1");
    }
    return 0;
}

# Local Variables:
# mode:perl
# End: