368 430 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 sitevar for PLC URL. Bogus.
#
use strict;
use libdb;

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

    DBQueryFatal("INSERT INTO sitevariables VALUES ".
		 " ('protogeni/plc_url',NULL, ".
		 "  'https://www.planet-lab.org:12345', ".
		 "  'PlanetLab does not put a URL in their certificates.',0)")
	if (!TBSiteVarExists("protogeni/plc_url"));

    return 0;
}
1;

# Local Variables:
# mode:perl
# End: