<?
define("TXT_NERA", 'nÄ—ra');

define("SRCTYPE_TEXT", 1);
define("SRCTYPE_AUK",  2);
define("SRCTYPE_KAI",  3);
define("SRCTYPE_PLO",  4);
define("SRCTYPE_GAR",  5);
define("SRCTYPE_PASK", 6);
define("SRCTYPE_TOP",  7);
define("SRCTYPE_KATE", 8);
define("SRCTYPE_PIR",  9);
define("SRCTYPE_RUS",  10);
define("SRCTYPE_ZID",  11);
define("SRCTYPE_STA",  12);
define("SRCTYPE_KMB",  13);
define("SRCTYPE_VRT",  14);
define("SRCTYPE_SNM",  15);
define("SRCTYPE_SLD",  16);
define("SRCTYPE_STG",  17);
define("SRCTYPE_STR",  18);
define("SRCTYPE_BAS",  19);
define("SRCTYPE_ADV",  20);


$svalues = array( SRCTYPE_PLO =>array(1=>'iki 100m&#178;',
                                      2=>'nuo 100m&#178; iki 150m&#178;',
                                      3=>'nuo 150m&#178; iki 200m&#178;',
                                      4=>'nuo 200m&#178; iki 300m&#178;',
                                      5=>'nuo 300m&#178; ir daugiau'),

                  SRCTYPE_KAI =>array(1=>'iki 2000Lt',
                                      2=>'nuo 2000Lt iki 4000Lt',
                                      3=>'nuo 4000Lt iki 8000Lt',
                                      4=>'nuo 8000Lt ir daugiau'),

                  SRCTYPE_TOP =>array(1=>'Naujausi',
                                      2=>'Geriausiai Ä¯vertinti',
                                      3=>'Populiariausi'),

                  SRCTYPE_GAR =>array(1=>'yra',
                                      2=>'nÄ—ra'),

                  SRCTYPE_PIR =>array(1=>'yra',
                                      2=>'nÄ—ra'),

                  SRCTYPE_RUS =>array(1=>'yra',
                                      2=>'nÄ—ra'),

                  SRCTYPE_ZID =>array(1=>'yra',
                                      2=>'nÄ—ra'),

                  SRCTYPE_KMB =>array(1=>'iki 3',
                                      2=>'4',
                                      3=>'5',
                                      4=>'6',
                                      5=>'7 ir daugiau'),

                  SRCTYPE_VRT =>array(1=>'1',
                                      2=>'2',
                                      3=>'3 ir daugiau'),

                  SRCTYPE_SNM =>array(1=>'1',
                                      2=>'2',
                                      3=>'3',
                                      4=>'4',
                                      5=>'5 ir daugiau'),

                  SRCTYPE_SLD =>array(1=>'yra',
                                      2=>'nÄ—ra'),

                  SRCTYPE_BAS =>array(1=>'yra',
                                      2=>'nÄ—ra')
                );
?><?
function setToSession($varid, $value, $sessid = 'global_sess') {
        global $_SESSION;
        $lines = (isset($_SESSION[$sessid])?$_SESSION[$sessid]:array()); 
        $lines[$varid] = $value;
        $_SESSION[$sessid] = $lines;
}

function getFromSession($varid, $def, $sessid = 'global_sess') {
        global $_SESSION;
        $lines = (isset($_SESSION[$sessid])?$_SESSION[$sessid]:array()); 
        return isset($lines[$varid])?$lines[$varid]:$def;
}

function _GETPOSTSESS($varid, $def='', $sessid = 'global_sess') {
        global $_SESSION;

        $sess = (isset($_SESSION[$sessid])?$_SESSION[$sessid]:array()); 
        $rez  = (isset($_GET[$varid])?$_GET[$varid]:(isset($_POST[$varid])?$_POST[$varid]:(isset($sess[$varid])?$sess[$varid]:$def)));
        return $rez;
}

function _GETPOST($varid, $def='') {
        return (isset($_GET[$varid])?($_GET[$varid]):(isset($_POST[$varid])?($_POST[$varid]):($def)));
}

function send_mail( $from, $to, $subject='', $Html_msg='', $Text_msg='' ) {
//        global $lng_attr_email ;

        $Html_msg = wordwrap($Html_msg);

        $Html = $Html_msg ;
        $Text = $Text_msg ;
        $OB="----=_OuterBoundary_000";
        $IB="----=_InnerBoundery_001";
        $Html=$Html?$Html:preg_replace("/\n/","{br}",$Text) 
          or die("nera html ir tekstines dalies");
          
        $Text=$Text?$Text:"See HTML message attached.";
        
        $from or die("nera siuntejo adreso");
        $to or die("nera gavejo adreso");
        
        $headers ="MIME-Version: 1.0\r\n"; 
        $headers.="From: <".$from.">\r\n"; 
        $headers.="Reply-To:  <".$from.">\r\n"; 
    //    $headers.="X-Priority: 1\n"; 
    //    $headers.="X-MSMail-Priority: Normal\n"; 
        $headers.="X-Mailer: My PHP Mailer\n"; 
        $headers.="Content-Type: multipart/mixed;\n\tboundary=\"".$OB."\"\n";
//                $headers.="bcc: ".$lng_attr_email ; 
        //Messages start with text/html alternatives in OB
        $Msg ="This is a multi-part message in MIME format.\n";
        $Msg.="\n--".$OB."\n";
        $Msg.="Content-Type: multipart/alternative;\n\tboundary=\"".$IB."\"\n\n";

        //plaintext section 
        $Msg.="\n--".$IB."\n";
        $Msg.="Content-Type: text/plain;\n\tcharset=\"UTF-8\"\n";
    //    $Msg.="Content-Transfer-Encoding: quoted-printable\n\n";
        $Msg.="Content-Transfer-Encoding: 8bit\n\n";
        // plaintext goes here
        $Msg.=$Text."\n\n";

        // html section 
        $Msg.="\n--".$IB."\n";
        $Msg.="Content-Type: text/html;\n\tcharset=\"UTF-8\"\n";
        $Msg.="Content-Transfer-Encoding: 8bit\n\n";
        // html goes here 
    //    $Msg.=chunk_split(base64_encode($Html))."\n\n";
        $Msg.=$Html."\n\n";

        // end of IB
        $Msg.="\n--".$IB."--\n";

        //message ends
        $Msg.="\n--".$OB."--\n";

//        print $headers;
        return mail($to, str_replace('&nbsp;',' ', $subject) ,$Msg, $headers); 
}

// This will remove HTML tags, javascript sections
// and white space. It will also convert some
// common HTML entities to their text equivalent.
function html2text($text){
    $search = array ("'<script[^>]*?>.*?</script>'si",  // Strip out javascript
                     "'<[\/\!]*?[^<>]*?>'si",           // Strip out html tags
//                     "'([\r\n])[\s]+'",                 // Strip out white space
                     "'&(quot|#34);'i",                 // Replace html entities
                     "'&(amp|#38);'i",
                     "'&(lt|#60);'i",
                     "'&(gt|#62);'i",
                     "'&(nbsp|#160);'i",
                     "'&(iexcl|#161);'i",
                     "'&(cent|#162);'i",
                     "'&(pound|#163);'i",
                     "'&(copy|#169);'i",
                     "'&#(\d+);'e");                    // evaluate as php

    $replace = array ("",
                      "",
//                      "\\1",                            // Strip out white space
                      "\"",
                      "&",
                      "<",
                      ">",
                      " ",
                      chr(161),
                      chr(162),
                      chr(163),
                      chr(169),
                      "chr(\\1)");

    return trim(preg_replace ($search, $replace, $text));
}

function remstyle($text){
        $text = preg_replace("/(?i)<font.*?(>)/", '', $text ); 
        $text = preg_replace('/(?i)<(\/)font>/', '', $text ); 

        $text = preg_replace("/(?i)<div.*?(>)/", '', $text ); 
        $text = preg_replace('/(?i)<(\/)div>/', '', $text ); 

        $text = preg_replace("/(?i)<span.*?(>)/", '', $text ); 
        $text = preg_replace('/(?i)<(\/)span>/', '', $text ); 

        $text = preg_replace('/(?i) style=.*?".*?"/', '', $text );
    return $text;
}

function getUserIp(){        
//       global $HTTP_SERVER_VARS;
//       return isset( $HTTP_SERVER_VARS["REMOTE_ADDR"] ) ? $HTTP_SERVER_VARS["REMOTE_ADDR"]:'unknown';

        if (getenv('HTTP_X_FORWARDED_FOR')) {
                $ip=getenv('HTTP_X_FORWARDED_FOR');
        }
        else {
                $ip=getenv('REMOTE_ADDR');
        }
//        $aIPs = explode(",", $ip);
//        return $aIPs[0];
        return $ip;
}

function toLithDate($s){
        return substr($s,0,10);
}

function dump($var){
        print "<pre>";
        var_dump($var);
        print "</pre>";
}

// ==== translate function ======
//  **** Example *******
//$body = 'Hi am {{name}}<BR>'.
//        '{{#BEGIN1}}'.
//        '{{preke}}-{{kaina}}<BR>'.
//        '{{#END1}}'.
//        'asdfsdf';
//$params = array('name'=>'saulius', '1'=>array('1'=>array('preke'=>'vaisiai', 'kaina'=>'120'), '2'=>array('preke'=>'darzoves','kaina'=>'111')));
function translate($body, $params){
        if (!is_array($params)) return $body;

        foreach($params as $key=>$value){
                if (is_array($value)) {
                        $begins = '<!--{#BEGIN'.$key.'}-->';
                        $ends   = '<!--{#END'.$key.'}-->';
                        $beginx = strpos($body, $begins);
                        $endx   = strpos($body, $ends);
       
                        if ($beginx===false) break;
                        if ($endx===false) break;
                        
                        $sub_body = substr($body, $beginx+strlen($begins), $endx-$beginx-strlen($begins));
                        
                        $sub_body_rez = '';
                        foreach($value as $sub_key=>$sub_value){
                            $tmp = $sub_body;
                            foreach($sub_value as $key_sub_sub=>$value_sub_sub){
                                $tmp = str_replace('{{'.$key_sub_sub.'}}', $value_sub_sub, $tmp);
                            }
                            $sub_body_rez = $sub_body_rez.$tmp;
                        }
                        
                        $body = substr($body, 0, $beginx).$sub_body_rez.substr($body, $endx+strlen($ends)); 
                } else {
                      $body = str_replace('{{'.$key.'}}', $value, $body);
                }
        }
        
        return  $body;
}

function checkEmail($email){
        return eregi("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$", $email);
}

function &cutText(&$txt, $len, $tail='...'){
        $_len = strlen($txt);
        if (!$_len || $_len<=$len) return $txt;

        $c = ord($txt[$len-1]);
        if ($c < 33 || $c > 126) 
            $r = rtrim(substr($txt,0,$len+1)).$tail;
        else
            $r = rtrim(substr($txt,0,$len)).$tail;

        return $r;
}


function &readConfig($fname){
        $a = '';
        $handle = fopen($fname, "r");
        $s = fread($handle, filesize($fname));
        $a = unserialize( $s );
        fclose( $handle );
        return $a;
}

function writeConfig($fname, $cfg){
        $handle = fopen($fname, "w");
        fwrite( $handle, serialize($cfg));
        fclose( $handle );
}

function &T(&$var, $id=''){
        $r = '';

        if (is_array($var)) {
                if (isset($var[$id])) $r = $var[$id];
        } elseif (isset($var)) 
                $r = $var;

        return $r;
}

function removeLith($var){
        $var = preg_replace('/(Ä…)/', 'a', $var);
        $var = preg_replace('/(Ä)/', 'c', $var);
        $var = preg_replace('/(Ä™)/', 'e', $var);
        $var = preg_replace('/(Ä—)/', 'e', $var);
        $var = preg_replace('/(Ä¯)/', 'i', $var);
        $var = preg_replace('/(Å¡)/', 's', $var);
        $var = preg_replace('/(Å³)/', 'u', $var);
        $var = preg_replace('/(Å«)/', 'u', $var);
        $var = preg_replace('/(Å¾)/', 'z', $var);
            
        $var = preg_replace('/(Ä„)/', 'A', $var);
        $var = preg_replace('/(ÄŒ)/', 'C', $var);
        $var = preg_replace('/(Ä˜)/', 'E', $var);
        $var = preg_replace('/(Ä–)/', 'E', $var);
        $var = preg_replace('/(Ä®)/', 'I', $var);
        $var = preg_replace('/(Å )/', 'S', $var);
        $var = preg_replace('/(Å²)/', 'U', $var);
        $var = preg_replace('/(Åª)/', 'U', $var);
        $var = preg_replace('/(Å½)/', 'Z', $var);
        return $var;
}

function remUnicode(&$body){
        $search = array(  "'Ä…'","'Ä'","'Ä™'","'Ä—'","'Ä¯'","'Å¡'","'Å³'","'Å«'","'Å¾'",
                          "'Ä„'","'ÄŒ'","'Ä˜'","'Ä–'","'Ä®'","'Å '","'Å²'","'Åª'","'Å½'",
                          "'&scaron;'","'&quot;'"); 
        $replace = array( "à","è","æ","ë","á","ð","ø","û","þ",
                          "À","È","Æ","Ë","Á","Ð","Ø","Û","Þ",
                          "ð",'"');
        return preg_replace($search, $replace, $body);
}


function findValue($lines, $field, $value) {
        $r = -1;
                                      
        foreach($lines as $key=>$line) {
                if (trim($line[$field])==trim($value)) {
                        $r = $key;
                        break;
                }
        }
        return $r;
}

function makePath($name){
        return strtolower(preg_replace( array( '/(?i)^[^a-zA-Z0-9]+/', '/(?i)[^a-zA-Z0-9]+/', '/(?i)[^a-zA-Z0-9]+$/' ), array('','_',''), removeLith($name)));
}
?>