94 lines
3.9 KiB
PHP
94 lines
3.9 KiB
PHP
|
<?php
|
||
|
|
# -- BEGIN LICENSE BLOCK ----------------------------------
|
||
|
|
# This file is part of kUtRL, a plugin for Dotclear 2.
|
||
|
|
#
|
||
|
|
# Copyright (c) 2009-2011 JC Denis and contributors
|
||
|
|
# jcdenis@gdwd.com
|
||
|
|
#
|
||
|
|
# Licensed under the GPL version 2.0 license.
|
||
|
|
# A copy of this license is available in LICENSE file or at
|
||
|
|
# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
|
||
|
|
# -- END LICENSE BLOCK ------------------------------------
|
||
|
|
|
||
|
|
if (!defined('DC_CONTEXT_ADMIN')){return;}
|
||
|
|
|
||
|
|
# Get new version
|
||
|
|
$new_version = $core->plugins->moduleInfo('kUtRL','version');
|
||
|
|
$old_version = $core->getVersion('kUtRL');
|
||
|
|
|
||
|
|
# Compare versions
|
||
|
|
if (version_compare($old_version,$new_version,'>=')) {return;}
|
||
|
|
|
||
|
|
# Install or update
|
||
|
|
try
|
||
|
|
{
|
||
|
|
if (version_compare(str_replace("-r","-p",DC_VERSION),'2.2-alpha','<'))
|
||
|
|
{
|
||
|
|
throw new Exception('kUtRL requires Dotclear 2.2');
|
||
|
|
}
|
||
|
|
|
||
|
|
# Table
|
||
|
|
$t = new dbStruct($core->con,$core->prefix);
|
||
|
|
$t->kutrl
|
||
|
|
->kut_id('bigint',0,false)
|
||
|
|
->blog_id('varchar',32,false)
|
||
|
|
->kut_service('varchar',32,false,"'kUtRL'")
|
||
|
|
->kut_type('varchar',32,false)
|
||
|
|
->kut_hash('varchar',32,false)
|
||
|
|
->kut_url('text',0,false)
|
||
|
|
->kut_dt('timestamp',0,false,'now()')
|
||
|
|
->kut_password('varchar',32,true)
|
||
|
|
->kut_counter('bigint',0,false,0)
|
||
|
|
|
||
|
|
->primary('pk_kutrl','kut_id')
|
||
|
|
->index('idx_kut_blog_id','btree','blog_id')
|
||
|
|
->index('idx_kut_hash','btree','kut_hash')
|
||
|
|
->index('idx_kut_service','btree','kut_service')
|
||
|
|
->index('idx_kut_type','btree','kut_type');
|
||
|
|
|
||
|
|
$ti = new dbStruct($core->con,$core->prefix);
|
||
|
|
$changes = $ti->synchronize($t);
|
||
|
|
|
||
|
|
# Settings
|
||
|
|
$core->blog->settings->addNamespace('kUtRL');
|
||
|
|
$s = $core->blog->settings->kUtRL;
|
||
|
|
$s->put('kutrl_active',false,'boolean','Enabled kutrl plugin',false,true);
|
||
|
|
$s->put('kutrl_plugin_service','default','string','Service to use to shorten links on third part plugins',false,true);
|
||
|
|
$s->put('kutrl_admin_service','local','string','Service to use to shorten links on admin',false,true);
|
||
|
|
$s->put('kutrl_tpl_service','local','string','Service to use to shorten links on template',false,true);
|
||
|
|
$s->put('kutrl_wiki_service','local','string','Service to use to shorten links on contents',false,true);
|
||
|
|
$s->put('kutrl_allow_external_url',true,'boolean','Limited short url to current blog\'s url',false,true);
|
||
|
|
$s->put('kutrl_tpl_passive',true,'boolean','Return long url on kutrl tags if kutrl is unactivate',false,true);
|
||
|
|
$s->put('kutrl_tpl_active',false,'boolean','Return short url on dotclear tags if kutrl is active',false,true);
|
||
|
|
$s->put('kutrl_admin_entry_default',true,'boolean','Create short link an new entry by default',false,true);
|
||
|
|
# Settings for "local" service
|
||
|
|
$local_css =
|
||
|
|
".shortenkutrlwidget input { border: 1px solid #CCCCCC; }\n".
|
||
|
|
".dc-kutrl input { border: 1px solid #CCCCCC; margin: 10px; }";
|
||
|
|
$s->put('kutrl_srv_local_protocols','http:,https:,ftp:,ftps:,irc:','string','Allowed kutrl local service protocols',false,true);
|
||
|
|
$s->put('kutrl_srv_local_public',false,'boolean','Enabled local service public page',false,true);
|
||
|
|
$s->put('kutrl_srv_local_css',$local_css,'string','Special CSS for kutrl local service',false,true);
|
||
|
|
$s->put('kutrl_srv_local_404_active',false,'boolean','Use special 404 page on unknow urls',false,true);
|
||
|
|
# Settings for "bilbolinks" service
|
||
|
|
$s->put('kutrl_srv_bilbolinks_base','http://tux-pla.net/','string','URL of bilbolinks service',false,true);
|
||
|
|
# Settings for "YOURLS" service
|
||
|
|
$s->put('kutrl_srv_yourls_base','','string','URL of YOURLS service',false,true);
|
||
|
|
$s->put('kutrl_srv_yourls_username','','string','User name to YOURLS service',false,true);
|
||
|
|
$s->put('kutrl_srv_yourls_password','','string','User password to YOURLS service',false,true);
|
||
|
|
|
||
|
|
# Version
|
||
|
|
$core->setVersion('kUtRL',$new_version);
|
||
|
|
|
||
|
|
# Get dcMiniUrl records as this plugin do the same
|
||
|
|
if ($core->plugins->moduleExists('dcMiniUrl'))
|
||
|
|
{
|
||
|
|
require_once dirname(__FILE__).'/inc/patch.dcminiurl.php';
|
||
|
|
}
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
catch (Exception $e)
|
||
|
|
{
|
||
|
|
$core->error->add($e->getMessage());
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
?>
|