芝麻web文件管理V1.00

编辑当前文件:/home/p/r/i/prismawe/clients/canaldegap.fr/modules/TruetypeText/method.install.php

<?php
if (!isset($gCms)) exit;

// Typical Database Initialization
$db = &$this->cms->GetDb();

// mysql-specific, but ignored by other database
$taboptarray = array('mysql' => 'TYPE=MyISAM');
$dict = NewDataDictionary($db);

// table schema description
$flds = "
	id I KEY,
	name C(80) NOT NULL,
	backgroundcolor C(7),
	format C(3),
	fulllineheight L,
	maxwidth I,
	pictureperword L,
	transparent L,
	elements C(511)
	";

// create it. This should do error checking, but I'm a lazy sod.
$sqlarray = $dict->CreateTableSQL(cms_db_prefix()."module_truetypetext_styles",
		$flds, $taboptarray);
$dict->ExecuteSQLArray($sqlarray);
$db->Execute("ALTER TABLE ".$db_prefix."module_truetypetext_styles ADD INDEX (name)");

$db->CreateSequence(cms_db_prefix()."module_truetypetext_styles_seq");

// table schema description
$flds = "
	id I KEY,
	tag C(20),
	additional C(255),
	style I
	";

// create it. This should do error checking, but I'm a lazy sod.
$sqlarray = $dict->CreateTableSQL(cms_db_prefix()."module_truetypetext_replacements",
		$flds, $taboptarray);
$dict->ExecuteSQLArray($sqlarray);
$db->CreateSequence(cms_db_prefix()."module_truetypetext_replacements_seq");

// preferences
$this->SetPreference('replacefunction', 'ContentPostCompile');

// permissions
$this->CreatePermission('Use TruetypeText','Use TruetypeText');

// put mention into the admin log
$this->Audit( 0, $this->Lang('friendlyname'), $this->Lang('installed',$this->GetVersion()));

?>