# emoddy plugin for Movable Type
# 2007/6/7 Version 1.0
# Copyright (c) 2007, emoddy
# Author: Atsushi IMAKI & Takashi Hirasawa & Masato Mannen

package MT::Plugin::emoddy;
use base 'MT::Plugin';

use strict;

use MT;
use MT::Template::Context;
use MT::Plugin;


my $plugin = MT::Plugin::emoddy->new({
    name => 'emoddy',
    version => '1.0',
    doc_link => 'http://css-happylife.com/log/movabletype-plugin/000158.shtml',
    author_name => 'emoddy',
    author_link => 'http://css-happylife.com/log/movabletype-plugin/000158.shtml',
    description => 'Displays the EMOJI to your blog.',
    settings => new MT::PluginSettings([
        ['dir_emoji'],
        ['url_emoji'],
        ['tag_emoji']
    ]),
    config_template => \&config_template
});
MT->add_plugin($plugin);


MT::Template::Context->add_global_filter(emoddy => \&emoddy);

MT->add_callback('bigpapi::template::edit_entry', 9, $plugin, \&list_icon);
if (MT->version_number >= 3.3) {
    MT->add_callback('MT::App::CMS::AppTemplateSource.edit_entry', 9, $plugin, \&list_icon);
}


sub config_template {
	my $plugin = shift;
    my ($param, $scope) = @_;
    
    my $val_tag_system = $plugin->get_config_value('tag_emoji', 'system');

    if ($scope eq 'system') {
    	return <<HERE;
<div class="setting">
<div class="field">
<p>
ICON SITE URL<br />
<input type="text" size="60" name="url_emoji" id="url_emoji" value="<TMPL_VAR NAME=URL_EMOJI>" /><br />
ex: http://www.example.com/emoddy_icons/
</p>
<p>
ICON SITE PATH<br />
<input type="text" size="60" name="dir_emoji" id="dir_emoji" value="<TMPL_VAR NAME=DIR_EMOJI>" /><br />
ex: /home/melody/public_html/emoddy_icons
</p>
<p>
<input type="checkbox" name="tag_emoji" id="tag_emoji" value="1" <TMPL_IF NAME=TAG_EMOJI>checked="checked"</TMPL_IF> /> Use emoddy tag
</p>
</div>
</div>
HERE
	}
	else {
		my $code_tag;
		if (!$val_tag_system) {
			$code_tag = '<input type="checkbox" name="tag_emoji" id="tag_emoji" value="1" <TMPL_IF NAME=TAG_EMOJI>checked="checked"</TMPL_IF> /> ';
		}
		
    	return <<HERE;
<div class="setting">
<div class="field">
<p>
ICON PATH<br />
<input type="text" size="60" name="dir_emoji" id="dir_emoji" value="<TMPL_VAR NAME=DIR_EMOJI>" /><br />
ex: img/emoddy_icons/
</p>
<p>
${code_tag}Use emoddy tag
</p>
</div>
</div>
HERE
	}
}


# list_icon
sub list_icon {
	my ($cb, $app, $template) = @_;
	
	my $blog_id = $app->param('blog_id');
	
	my $dir_emoddy = $plugin->get_config_value('dir_emoji', 'blog:' . $blog_id);
	
	my ($dir_icon,$url_icon);
	if (!$dir_emoddy) { 
		$dir_icon = $plugin->get_config_value('dir_emoji', 'system');
		$url_icon = $plugin->get_config_value('url_emoji', 'system');
		
		if (!$dir_icon) { return; }
		if (!$url_icon) { return; }
		
		$dir_icon .= '/';
	}
	else {
		my $blog = MT::Blog->load($blog_id);
		my $dir_blog = $blog->site_path;
		$dir_icon = $dir_blog.'/'.$dir_emoddy;
		
		my $url_blog = $blog->site_url;
		$url_icon = $url_blog.$dir_emoddy;
	}
	
	unless(-e $dir_icon.'bn_emoddy.gif') { return; }
	
	opendir(DIR, $dir_icon);
	my @files_icon = readdir(DIR);
	closedir(DIR);
	
	@files_icon = sort @files_icon;
	
	my $pict_emoddy = $url_icon.'bn_emoddy.gif';
	
	my $list_icon;
	my $list_icon_more;
	foreach (@files_icon) {
		if (($_ ne 'bn_emoddy.gif') && ($_ =~ /(.+)(.gif)/)) {
			$_ =~ s/(.+)(\.\w+)/$1$2/;
			$list_icon .= '<img src="'.$url_icon.$_.'" onClick="EmoddyIconInsert(\\\'text\\\',\\\''.$1.'\\\')" />';
			$list_icon_more .= '<img src="'.$url_icon.$_.'" onClick="EmoddyIconInsert(\\\'text_more\\\',\\\''.$1.'\\\')" />';
		}
    }
    
    if (!$list_icon) { return; }
    
    
    my $val_tag_system = $plugin->get_config_value('tag_emoji', 'system');
    
    my $js_input_tag;
    if ($val_tag_system == 1) {
    	$js_input_tag = "'<Emoddy:' + v + '>'";
    }
    else {
    	my $val_tag_blog = $plugin->get_config_value('tag_emoji', 'blog:' . $blog_id);
    	
    	if ($val_tag_blog) {
    		$js_input_tag = "'<Emoddy:' + v + '>'";
    	}
    	else {
    		$js_input_tag = '\'<img src="'.$url_icon.'\' + v + \'.gif" alt="icon:\' + v + \'">\'';
    	}
    }


    my $old = <<HTMLOLD;
<div class="field-buttons-resizing">
<script type="text/javascript">
with (document) {
HTMLOLD

	$old = quotemeta($old);

    my $new = <<HTMLNEW;
<div class="field-buttons-resizing" id="chk">
<script type="text/javascript">
var timerid;

function EmoddyIconShow( IdEmoddy ) {
	document.getElementById(IdEmoddy).style.display = 'block';
	clearTimeout(timerid);
}

function EmoddyIconHide( IdEmoddy ) {
	document.getElementById(IdEmoddy).style.display = 'none';
}

function EmoddyIconInsert( id, v ) {
	var ValIcon = $js_input_tag;

	var e = document.getElementById( id );

    if (document.selection) {
        e.focus();
        var range = document.selection.createRange();
        range.text = ValIcon;
    } else {
        var length = e.textLength;
        var start = e.selectionStart;
        var end = e.selectionEnd;
        if (end == 1 || end == 2) end = length;
        e.value = e.value.substring(0, start) + ValIcon + e.value.substr(end, length);
        e.selectionStart = start + ValIcon.length;
        e.selectionEnd = start + ValIcon.length;
    }
    e.focus();
}

with (document) {
    write('<img title="Insert Emoddy tag" src="$pict_emoddy" alt="Insert Emoddy tag" width="26" height="19" onmouseover="EmoddyIconShow(\\'emoddy_icons\\')" onmouseout="timerid = setTimeout(\\'EmoddyIconHide(\\\\\\'emoddy_icons\\\\\\')\\', 1000)" />');
HTMLNEW
    
    $$template =~ s/$old/$new/;

    $old = <<HTMLOLD;
</div>
<div class="textarea-wrapper">
HTMLOLD

	$old = quotemeta($old);

    $new = <<HTMLNEW;
</div>
<div id="emoddy_icons" style="cursor: pointer; width:150px; padding:1px; left:600px; display:none; position:absolute; background:#fff; border:1px solid #8FAEBE;" onmouseover="EmoddyIconShow('emoddy_icons')" onmouseout="timerid = setTimeout('EmoddyIconHide(\\'emoddy_icons\\')', 1000)">
<script type="text/javascript">
with (document) {
    write('$list_icon');
}
</script>
</div>
<div class="textarea-wrapper" id="chk">
HTMLNEW

    $$template =~ s/$old/$new/;

	$old = <<HTMLOLD;
<div class="field-buttons-resizing">
<script type="text/javascript">
with (document) {
HTMLOLD

	$old = quotemeta($old);

    $new = <<HTMLNEW;
<div class="field-buttons-resizing">
<script type="text/javascript">
with (document) {
    write('<img title="Insert Emoddy tag" src="$pict_emoddy" alt="Insert Emoddy tag" width="26" height="19" onmouseover="EmoddyIconShow(\\'emoddy_icons_more\\')" onmouseout="timerid = setTimeout(\\'EmoddyIconHide(\\\\\\'emoddy_icons_more\\\\\\')\\', 1000)" />');
HTMLNEW
    
    $$template =~ s/$old/$new/;

    $old = <<HTMLOLD;
</div>
<div class="textarea-wrapper">
HTMLOLD

	$old = quotemeta($old);

    $new = <<HTMLNEW;
</div>
<div id="emoddy_icons_more" style="cursor: pointer; width:150px; padding:1px; left:600px; display:none; position:absolute; background:#fff; border:1px solid #8FAEBE;" onmouseover="EmoddyIconShow('emoddy_icons_more')" onmouseout="timerid = setTimeout('EmoddyIconHide(\\'emoddy_icons_more\\')', 1000)">
<script type="text/javascript">
with (document) {
    write('$list_icon_more');
}
</script>
</div>
<div class="textarea-wrapper">
HTMLNEW

    $$template =~ s/$old/$new/;

	$old = <<HTMLOLD;
<div class="field-buttons-resizing" id="chk">
HTMLOLD

	$new = <<HTMLNEW;
<div class="field-buttons-resizing">
HTMLNEW

	$$template =~ s/$old/$new/;

	$old = <<HTMLOLD;
<div class="textarea-wrapper" id="chk">
HTMLOLD

	$new = <<HTMLNEW;
<div class="textarea-wrapper">
HTMLNEW

	$$template =~ s/$old/$new/;
}



# Emoddy icon show
sub emoddy {
    my ($text, $arg, $ctx) = @_;
    
    if ($arg != 1) { return $text; }
    
    my $blog = $ctx->stash('blog');
	my $dir_emoddy = $plugin->get_config_value('dir_emoji', 'blog:' . $blog->id);
	
	my $url_icon;
	if (!$dir_emoddy) { 
		$url_icon = $plugin->get_config_value('url_emoji', 'system');
		
		if (!$url_icon) { return $text; }
	}
	else {
		my $url_blog = $blog->site_url;
		$url_icon = $url_blog.$dir_emoddy;
	}

	
	$text =~ s/<Emoddy:(\w+)?>/<img src="$url_icon$1.gif" alt="icon:$1" \/>/gs;
	
	$text;
}



1;