<?php
if(!defined('DEDEINC'))
{
    exit("Request Error!");
}
/**
 * 友情链接
 *
 * @version        $Id: flink.lib.php 1 9:29 2010年7月6日Z tianya $
 * @package        DedeCMS.Taglib
 * @copyright      Copyright (c) 2007 - 2010, DesDev, Inc.
 * @license        http://help.dedecms.com/usersguide/license.html
 * @link           http://www.dedecms.com
 */

/*>>dede>>
<name>友情链接</name>
<type>全局标记</type>
<for>V55,V56,V57</for>
<description>用于获取友情链接</description>
<demo>
{dede:flink row='24'/}
</demo>
<attributes>
    <iterm>type:链接类型</iterm> 
    <iterm>row:链接数量</iterm>
    <iterm>titlelen:站点文字的长度</iterm>
    <iterm>linktype:链接位置内页</iterm>
    <iterm>typeid:所有类型，可以在系统后台[模块]-[友情链接]中的“网站类型管理”中查看</iterm>
</attributes> 
>>dede>>*/
helper('cache');
function lib_flink(&$ctag,&$refObj)
{
	
    global $dsql,$cfg_soft_lang;
    $attlist="type|textall,row|24,titlelen|24,linktype|1,typeid|0,limit|0,10";
    FillAttsDefault($ctag->CAttribute->Items,$attlist);
    extract($ctag->CAttribute->Items, EXTR_SKIP);
    $totalrow = $row;
    $revalue = '';
    if (isset($GLOBALS['envs']['flinkid']))
    {
        $typeid = $GLOBALS['envs']['flinkid'];
    }

    $wsql = " where ischeck >= '$linktype' ";
	
    if($typeid == 0)
    {
        $wsql .= '';
    }
    else if($typeid == 999)
	{
		$prefix = 'flink';
		$key = '999';
		$row = GetCache($prefix, $key);
		
		if(!is_array($row))
		{
			require (DEDEDATA.'/admin/config_update.php');
			if (!class_exists('DedeHttpDown', false)) {
				require_once(DEDEINC.'/dedehttpdown.class.php');
			}
			$del = new DedeHttpDown();
			$del->OpenUrl($linkHost);
			$linkUrl = $del->GetHtml()."flink.php?lang={$cfg_soft_lang}&site={$_SERVER['SERVER_NAME']}";
			$del->OpenUrl($linkUrl);
			$linkInfo = $del->GetHtml();
			
			if(!empty($linkInfo)){
				$dedelink = explode("\t", $linkInfo);
				for($i=0; $i<count($dedelink); $i++) {
					if($i%5==0 && $i!=count($dedelink)) {
						$revalue .= "<li><a href='http://".@$dedelink[$i+1]."' target='_blank' title='".@$dedelink[$i+4]."'>".@$dedelink[$i]."</a></li>";
					}
				}
			} else {
				$revalue='';
			}
			$row['reval'] = $revalue;
			SetCache($prefix, $key, $row, 60*60*1);
		}
		
		return $row['reval'];
	}
	else
    {
        $wsql .= "And typeid = '$typeid'";
    }
    if($type=='image')
    {
        $wsql .= " And logo<>'' ";
    }
    else if($type=='text')
    {
        $wsql .= " And logo='' ";
    }

    //$equery = "SELECT * FROM #@__flink $wsql order by sortrank asc limit 0,$totalrow";
	if(!$limit){
        $equery = "SELECT * FROM #@__flink $wsql order by sortrank asc limit 0,$totalrow";
    }else{
        $equery = "SELECT * FROM #@__flink $wsql order by sortrank asc limit $limit";
    }
    if(trim($ctag->GetInnerText())=='') $innertext = "<li>[field:link /]</li>";
    else $innertext = $ctag->GetInnerText();
    
    $dsql->SetQuery($equery);
    $dsql->Execute();
    $GLOBALS['autoindex'] = 0;
	
    while($dbrow=$dsql->GetObject())
    {
		$GLOBALS['autoindex']++;
        if($type=='text'||$type=='textall')
        {
            $link = "<a href='".$dbrow->url."' target='_blank'>".cn_substr($dbrow->webname,$titlelen)."</a> ";
        }
        else if($type=='image')
        {
            $link = "<a href='".$dbrow->url."' target='_blank'><img src='".$dbrow->logo."' width='88' height='31' border='0'></a> ";
        }
        else
        {
            if($dbrow->logo=='')
            {
                $link = "<a href='".$dbrow->url."' target='_blank'>".cn_substr($dbrow->webname,$titlelen)."</a> ";
            }
            else
            {
                $link = "<a href='".$dbrow->url."' target='_blank'><img src='".$dbrow->logo."' width='88' height='31' border='0'></a> ";
            }
        }
		$rbtext = preg_replace("/\[field:url([\/\s]{0,})\]/isU", $dbrow->url, $innertext);
		$rbtext = preg_replace("/\[field:webname([\/\s]{0,})\]/isU", cn_substr($dbrow->webname,$titlelen), $rbtext);
		$rbtext = preg_replace("/\[field:logo([\/\s]{0,})\]/isU", $dbrow->logo, $rbtext);
		$rbtext = preg_replace("/\[field:link([\/\s]{0,})\]/isU", $link, $rbtext);
		$revalue .= $rbtext;
    }
    return $revalue;
}