One Hat Cyber Team

Edit File: functions_gen.php

<?php

$_locales = array("en" => "en_GB", "ru" => "ru_RU.UTF-8", "ua" => "uk_UA.UTF-8");
$_languages = array_keys($_locales);
$_sexes = array("unspecified" => "U", "male" => "M", "female" => "F");
$_max_file_size=10000000;
$_max_article_title_chars=50;
$_max_institution_title_chars=80;
$_max_country_name_chars=15;
$_number_of_person_titles=8;

$_journal = array ("email" => "nosc@imath.kiev.ua", 
		   "webpage" => "http://www.imath.kiev.ua/~nosc",
		   "loginpage"=> "http://www.imath.kiev.ua/~nosc/users", 
		   "name" => array("en" =>"Nonlinear Oscillations", 
				   "ru" => "Нелінійні коливання", "ua"=> "Нелінійні коливання"),
		   "start_year" => 1998,
		   "issues_per_year" => 4);

//compatibility 
$_start_year=$_journal['start_year'];
$_issues_per_year=$_journal['issues_per_year'];
//--------------------------------------------

function utf8_lastchar($string)
{
  return utf8_substr($string,utf8_strlen($string)-1,1);
}

function say_how_many_days($num,$l="",$small_nums_style="WAITING_FROM")
{global $lang;
 
 if(!is_valid_language($l)) 
   $l = languify($lang);

switch ($num)
   {
     case 0:
       
       if ($small_nums_style=="WAITING_FROM")
	 {
	   $t=enruua_var($l,"since today","от сегодняшнего дня","від сьогоднішнього дня");
	   break;
	 }
       else
	  {
	   $t=enruua_var($l,"0 days","0 дней","0 днів");
	   break;
	 }
       
   case 1:
     
     if ($small_nums_style=="WAITING_FROM")
       {
	 $t=enruua_var($l,"since yesterday","от вчерашнего дня","від вчорашнього дня");
	 break;
       }
     
   case 2:
     
     if ($small_nums_style=="WAITING_FROM")
       {
	 $t=enruua_var($l,"since the day before yesterday",
		       "от позавчерашнего дня","від позавчорашнього дня");
	 break;
       }

default:
     $t= say_like_ordinal(utf8_lastchar($num),
			  enruua("day","день","день"),
			  enruua("days","дня","дні"),
			  enruua("days","дней","дня"),$num);  
   }
 return $t;
}

function say_days_ago($num,$l="")
{global $lang;
 
 if(!is_valid_language($l)) 
   $l = languify($lang);

switch ($num)
   {
     case 0:
       $t=enruua_var($l,"today","сегодня","сьогодні");
       break;

case 1:
     $t = enruua_var($l,"yesterday","вчера","вчора");
     break;

case 2:
     $t = enruua_var($l,"the day before yesterday","позавчера","позавчора");
     break;
     
   default:
     $t= say_like_ordinal(utf8_lastchar($num),
			  enruua("day","день","день"),
			  enruua("days","дня","дні"),
			  enruua("days","дней","дня"),$num)
       . " ". enruua("ago","тому назад","тому");  
   }
 return $t;
}

function say_like_ordinal($num,$one,$two_four,$more,$num_alt="")
{
  if (!$num_alt)
    $num_alt = $num;

$r = "";
  
  if ($num==1)
    $r = $one;
  elseif (($num>1) && ($num <5))
    $r = $two_four;
  else
    $r = $more;

return $num_alt."&nbsp;".$r;
}

function languify($l)
{ global $lang;

$ll = $l;
  
  if (!is_valid_language($ll))
    {
      if (is_valid_language($lang))
	$ll=$lang;
      else
	$ll="en";
    }

return $ll;
}//languify

function article_title($article,$l="")
{
  global $lang;
  
  if(!is_valid_language($l)) 
    $l= languify($lang);
  
  $t = $article['title_'.$l];
  
  return $t;
}//article_title

function andify($array_of_strings,$l="")
{ global $lang;
  $l = languify($l);

$c = count($array_of_strings);
  $t = "";

foreach ($array_of_strings as $s)
    {
      $i++;
      if ($i>1)
	if ($i==$c)
	  if ($c>2)
	    $t = $t . enruua_var($l,", and"," и"," та")." ";
	  else
	    $t = $t . enruua_var($l," and"," и"," та")." ";
	else
	  $t = $t . ", ";
      
      $t = $t . $s;
    }

return $t;
}//andify

function article_authors($article,$l="")
{ global $lang;

if (!is_valid_language($l))
    $l = languify($lang);

$a = array();
   
  if ($article)
    {
      $res = mysql_query("SELECT * FROM AA LEFT JOIN Authors ON AA.author_id=Authors.id WHERE AA.article_id='".$article['id']."' ORDER BY AA.author_ambition");
      
      while($author = mysql_fetch_array($res))
	{ 
	  $a[] = plain_short_name($author['id'],FALSE,$l);
	  //print($author['id']);
	}
    }
  
return $a;

}//article_authors

function DmY_to_time ($dmy,$separator=".")
{
  $p = explode($separator,$dmy);
  //print_r($p);
  return mktime(0, 0, 0, $p[1], $p[0], $p[2]);
}

function guess_client_language()
{ 
  $c = GetCountryInfo($_SERVER["REMOTE_ADDR"]);
  switch ($c['a2'])
    { 
    case "ru":
    case "by":
      return "ru";
      
    case "ua":
      return "ua";
      
    default:
      return "en";
    }
}//guess_client_language

function quote($text,$l="",$type="TEXT")
{global $lang;

$l=languify($l);
  
  switch ($type)
    {
    case "HTML":
    case "html":
	$ql=enruua_var($l,"<em>","&laquo;","&laquo;");
	$qr=enruua_var($l,"</em>","&raquo;","&raquo;");
	break;
    default:
    	$ql=enruua_var($l,"","'","'");
	$qr=enruua_var($l,"","'","'");
    }
  
  return $ql.$text.$qr;
}

function webpage_link($url,$text="")
{
	if (!$text)
		$text = $url;
		
return "<a href=\"".$url."\">".$text."</a>";
}

//
if (is_valid_language($lang)) setlocale(LC_ALL,$_locales[$lang]);

function country_meaning($TLD,$l="")//????
{global $lang;
 
 if (!is_valid_language($l))
   $l = $lang;

$res = mysql_query("select TLD,Country_".$l." from _countries 
where TLD='".$TLD."'order by Country_".$l);
 $country = mysql_fetch_array($res); //should be unique
 
return $country["Country_".$l];
}

function post_redirect($location,$args="") //URL,"var=val","var=val",etc DOES NOT WORK!!!
{
  $num = func_num_args();
  if ($num>0)
    {    
    $args = func_get_args();
    $url = $args[0];
    $fid = "_redirect".gen_alpha_string(4);
    echo "<form name=\"".$fid."\" action=\"post_redirect.php\" method=\"post\">";
    echo "<input type=hidden name=\"location\" value=\"".$url."\">";
    while ($param=array_shift($args))
      {
	list($key,$val) = explode("=", $param);
	echo "<input type=hidden name=\"vars['".$key."']\" value=\"".$val."\">";
      }
    echo "<input type=submit value=\"".enruua("Continue","Далее","Далі")."\">";
    echo "</form>";

echo "<SCRIPT TYPE=\"text/javascript\">";
    echo "document.".$fid.".submit();";
    echo "</SCRIPT>";
    }
}//post_redirect

function is_cyrillic_language($l)
{
  return (($l=="ru") || ($l=="ua")) ? TRUE: FALSE;
}//is_cyrillic_language

/*-------------------------------------------------*/

function person($id)
{
  $res = mysql_query("SELECT * FROM Authors  WHERE id='$id'");
  if ($res) 
    return mysql_fetch_array($res);
  else 
    return NULL;
}//person

function check_publication_data($vol,$no,$ps,$pe,$l=NULL)
{ global $lang;

if (!is_valid_language($l))
   $l = $lang;

if (!$vol)
    {
      $msg[] = enruua_var($l, "the journal volume has not been specified",
"не указан том журнала","не вказано том журнала");
    }

if (!$no)
   {
     $msg[] = enruua_var($l, "the journal number has not been specified",
"не указан номер журнала","не вказано номер журнала");
    }

if ($pe < $ps)
   {
     $msg[] = enruua_var($l, "the ending page precedes the starting page",
"указанная Вами конечная страница предшествует начальной",
"вказана Вами кінцева сторінка є ближчою до початку, ніж початкова");
    }
 else
   {
     if (!$ps)
       {
	 $msg[] = enruua_var($l, "the starting page has not been specified",
			     "не указан номер начальной страницы","не вказано номер початкової сторінки");
       }
     
     if (!$pe)
       {
	 $msg[] = enruua_var($l, "the ending page has not been specified",
			     "не указан номер конечной страницы","не вказано номер кінцевої сторінки");
       }
   }
    
 return $msg;
}

function is_primary_email ($person,$email_entry_id)
{
  return ($person['primary_email']==$email_entry_id) ? TRUE : FALSE; 
  
}//is_primary_email

function emails_regi($person)//// -----
{
  $res = mysql_query("SELECT id,email_field FROM Emails WHERE person_id='".$person['id']."'");
  if (mysql_num_rows($res)) 
    return $res; //mysql_fetch_array($res);
  else 
    return NULL;
}//emails

function emails($person)
{
  $res = mysql_query("SELECT id,email_field FROM Emails WHERE person_id='".$person['id']."' ORDER BY id");
  $emails = array();

while ($emails[] = mysql_fetch_array($res))
    {}
  
  return $emails;
}//emails

function user($username)
{
  $res = mysql_query("select * from users where username='".$username."'");
  $r = NULL;
  if (mysql_num_rows($res))
    {
      $r = mysql_fetch_array($res);
    }
  return $r;
}

function is_among_persons($user)
{
}

function is_superuser()
{global $session;
 
 return $session->isAdmin();
}

function _title_BoxOver($head,$msg,$c="info")
{
$t = " title=\"header=[".htmlspecialchars($head)."] body=[".htmlspecialchars($msg)."]";

$t = $t . " windowlock=[on]";
 
 switch($c)
   {
   case "alert":
     break;

case "href":
     break;

case "info":

$t = $t . " fade=[on] ";
   default:    
   }

$t = $t . "\"";

return $t;
}//_title_box_over

function boolean_complement($val)
{
  return ( (bool) $val)? 0 : 1;
}

function is_valid_language($l)
{ global $_locales;

return (isset($l) && in_array($l, array_keys($_locales)) ) ? TRUE : FALSE;
}//is_valid_language

function GetClientIP()
{
$register_globals = (bool) ini_get('register_gobals');
if ($register_globals)
 $ip = getenv(REMOTE_ADDR);
 else
  $ip     = $_SERVER['REMOTE_ADDR'];
 return $ip;
}//GetClientIP

function say_greetings(){
global $lang;
 $hours=date("G")+0;
 ### you can set own criteria in your country
 ### whats time we must say good morning and etc
 if( $hours>=0 &&  $hours<=14) $hellowords=enruua("Good morning","Доброе утро","Доброго ранку");
 elseif( $hours<=18) $hellowords=enruua("Good afternoon","Добрый день","Доброго дня");
 else $hellowords=enruua("Good evening","Добрый вечер","Добрий вечір");
 return $hellowords;
}

function file_link($address,$title="")
 {
	 if (!$title) $title=basename($address); 
	 return "<a href=\"".$address."\">".$title."</a>";
	 }//file_link
//
function enruua($en,$ru,$ua)
{
  global $lang;
  switch ($lang){
  case "en": 
    return $en; break;

case "ru": 
   return $ru; break;

case "ua": 
    return $ua; break;
  }
}//enruua

function enruua_var($var,$en,$ru,$ua)
{
  switch ($var){
  case "en": 
    return $en; break;
//
  case "ru": 
   return $ru; break;
//
  case "ua": 
    return $ua; break;
  default: return NULL;
  }
}//enruua_var

function word_number($l="")
{global $lang;
return number($l);
}

function number($l="")
{global $lang;
	if (!is_valid_language($l))
	 $l = $lang;
  return enruua_var($l,"No.","&#8470","&#8470");
}

function explode_date($YMD)
{ //global $lang;
  $stamp=strtotime($YMD);
 return array("day" => strftime ("%e", $stamp),"month" => strftime ("%m", $stamp),
 "year" =>strftime ("%Y", $stamp)); 
}//explode_date
//

function is_valid_date($date)
{ if ((integer)$date) $r=1;  else $r=0;
//
return $r;
	}//valid_date
//
function is_unspecified_date($date)
{ //if ($date=="0000-00-00") $r=1;  else $r=0;
if (!(integer)$date) $r=1;  else $r=0;
//
return $r;
	}//valid_date

function print_date($date=0)
{ global $lang,$_locales;
if(!is_unspecified_date($date)) 
 {// $date=today();
$dmy = explode_date($date); 
//setlocale(LC_TIME, $_locales[$lang]);
//return strftime("%x".enruua(""," г."," р."), strtotime($date));
$d=$dmy["day"]." ".of_month($dmy["month"])." ".$dmy["year"].enruua(""," г."," р.");
}
else $d="(".enruua("the date is not specified","дата не указана","дату не вказано").")";
//
return $d;
}//print_date

function something_done_by($person,$enm,$rum,$uam,$enf,$ruf,$uaf,$l="")
{
  global $lang,$_charset;
  mysql_query("SET NAMES '$_charset'");

if(!is_valid_language($l))
    $l = $lang;

$v="";
  
  switch ($person["sex"])
    {

case "F":
      
      $v = $v . enruua_var($l,$enf,$ruf,$uaf);
      break;

case "M":
    default:
      
      $v = $v. enruua_var($l,$enm,$rum,$uam);
      break;
      
    }

if ($person)
    $v = $v." ".author_edit_link($person["id"],FALSE);
      //plain_short_name($person["id"],TRUE,$l);
  else
    $v = $v. enruua_var($l,"unknown person","неизвестно кто","невідомо хто");
	
  return $v;
}

function person_name($person,$l=NULL)
{global $lang;

if (!in_array($l,array("en","ru","ua")))  
   $l = $lang;

$t="";

if (!$person['id'])
   $t = NULL;
 else
   {   
	 if ($p['first_name_'.$l]) 
	   $t = $p['first_name_'.$l];
	 if ($p['middle_name_'.$l]) 
	   $t = $t . "&nbsp;".$p['middle_name_'.$l];
	 if ($p['last_name_'.$l]) 
	   $t = $t . "&nbsp;".$p['last_name_'.$l];
   }
 return $t;
 
}//call_by_patronimic

function call_by_patronimic($person,$l,$type="HTML")
{
if ((mb_strlen($person["first_name_".$l]) >= 3) && (mb_strlen($person["middle_name_".$l]) >= 4)) 
  return $person["first_name_".$l].space($type).$person["middle_name_".$l];
 else
   return "";
}//patronimic

function space($type)
{
  switch($type)
    {
    case "HTML":
    case "html":
      $s = "&nbsp;";
	break;

default:
      $s = " ";
    }
  return $s;
}

function call_by_title($person,$l,$type="HTML")
{
  if ($person['title'])
    {
      return title_meaning($person['title'],$l).space($type).$person["last_name_".$l];
    }
  else
    return FALSE;
}//patronimic

function gen_salutation($p,$l,$formal=TRUE) /// not complete yet!
{global $lang;

if (!$p['id'])
   $t= NULL;
 else
   { 
     switch($l)
       { 
       case "en":
	 
	 $t= call_by_title($p,$l,"TEXT"); // by now
	 break;

case "ru":
	 
	 if ($formal)
	   {
	     $t= call_by_title($p,$l,"TEXT");
	   }
	 else
	   {
	     $patro = call_by_patronimic($p,$l,"TEXT");
	     if ($patro)
	       $t = $patro;
	     else
	       $t = call_by_title($p,$l,"TEXT");
	   }
	 break;

case "ua":
	 if ($formal)
	   {
	     $t= call_by_title($p,$l,"TEXT");
	   }
	 else
	   {
	     if ($patro =call_by_patronimic($p,$l,"TEXT"))
	       $t= $patro;
	     {//inactive yet
	       $fn = $p["first_name_".$l];
	       $fn = str_replace("ій","ію",$fn);
	       $fn = str_replace("ій","ію",$fn);
	       //return $fn;
	     }
	   }
	 break;
       }
   }
 return $t;
}//gen_salutation

function plain_short_name($author_id,$add_title=FALSE,$l="")
{
  global $lang,$_charset;

mysql_query("SET NAMES '$_charset'");
  
  if ($entry = person($author_id))
    {// valid author_id 
     /*  $fetch_author = mysql_db_query($_database, "SELECT id, first_name_$lang,
middle_name_$lang, last_name_$lang, short_name_$lang,title from Authors where id='$author_id'"); */ 
      
      if (!is_valid_language($l))
	$l = $lang; //preferred_language($entry);
      
      if ($entry["short_name_$l"]) 
	$name=$entry["short_name_$l"];
      else 
	{ //  no explicit short_name
	  if ($entry["first_name_$l"])
	    $name = utf8_substr($entry["first_name_$l"],0,1).".";
	  
	  if ($entry["middle_name_$l"]) 
	    $name = $name."&nbsp;".utf8_substr($entry["middle_name_$l"],0,1).".";
	  
	  if ($entry["last_name_$l"])
	    $name = $name."&nbsp;".$entry["last_name_$l"];
	}
      
      $title = (($add_title) && ($entry["title"])) ? 
title_meaning($entry["title"],$l)."&nbsp;" : "";
      return $title . trim($name);
    }
  else
    {
      return NULL;
    }
} //plain_short_name

function article_status_codes()
{return array(0,1,2,3,4,5);
}//article_status_codes
//

function article_status_meaning($status)
{switch ($status)
 { case 0: return "unmanaged"; break; 
	case 1: return "refereeing"; break; 
    case 2: return "accepted"; break; 
    case 3: return "published"; break;
	case 4: return "rejected"; break;
	case 5: return "withdrawn"; break;
    default: return "???";  
 }
}//article_status_meaning

function person_allowed_titles($l)
{global $lang;
 if(!$l) $l=$lang;

return enruua_var($l,array(0,1,2,3,4,5,6,7),
array(0,1,2,3,4,5),
array(0,1,2,3,4,5));
}//person_allowed_titles

function title_meaning($t,$l=0)
{global $lang;

if(!is_valid_language($l)) 
   $l=languify($lang);

switch($t)
    {
    case 1: return enruua_var($l,"Doc.","доц.","доц."); break; 
    case 2: return enruua_var($l,"Prof.","проф.","проф."); break; 
    case 3: return enruua_var($l,"Dr.","д-р","д-р"); break; 
    case 4: return enruua_var($l,"Mr.","г-н","пан"); break; 
    case 5: return enruua_var($l,"Mrs.","г-жа","пані"); break; 
    case 6: return enruua_var($l,"Miss","г-жа","пані"); break; 
    case 7: return enruua_var($l,"Ms.","г-жа","пані"); break; 
    case 0: return "-- ".enruua("not specified","не указано","не вказано")." --"; break;
    default: return "";
 }
}//title_meaning

function person_status($code)
{ global $lang;
//
switch ($code)
{
case "2":
  return enruua("editor-in-chief","главный редактор","головний редактор"); break;
case "3": return enruua("assistant editor-in-chief",
 "заместитель главного редактора","заступник головного редактора"); break;

case "4": return enruua("executive editor","исполнительный редактор","виконавчий редактор"); break;

case  "1": return enruua("a member of the editorial board","член редколлегии","член редколегії"); break;

default: return enruua("not in the editorial board","не является членом редколлегии", "не є членом редколегії");
}
}//person_status
//
function status($key) //for compatibility 
{global $lang;
 return article_status($s);
}//status
//
function year_of_publication($vol)
{global $_start_year;
 return (integer)$vol + $_start_year - 1;
//
return $y;
}//year_of_publication
//
function volume_of_this_year($year="")
{ if (!$year) $year=date("Y");
return (integer)$year-year_of_publication(0);
	}//volume_of_this_year

function first_revision_received($rev_article_id,$db_handle=0)
{ global $_database,$_db_host,$_db_user,$_db_password,$_charset;
 if (!$db_handle)
   {$db_handle=mysql_connect($_db_host,$_db_user,$_db_password);
   mysql_query("SET NAMES '$_charset'", $db_handle);}
   $res_r=  mysql_query("SELECT * FROM Revisions WHERE article_id='$rev_article_id' 
ORDER BY revision_received,id",$db_handle);
$r= mysql_fetch_array($res_r); //the first one
return $r["revision_received"];
	}//first_revision_received

function first_revision($art,$db_handle=0)
{ 
   $res_r=  mysql_query("SELECT * FROM Revisions WHERE article_id='".$art['id']."' 
ORDER BY created,id,revision_received");
$r= mysql_fetch_array($res_r); //the first one
return $r["revision_received"];
}//first_revision

function last_revision($art)
{
  $res_r=  mysql_query("SELECT * FROM Revisions  WHERE article_id='".$art['id']."' ORDER BY created DESC,id DESC,revision_received DESC");

if ($res_r)
   {
     return mysql_fetch_array($res_r);
   }
 else
   return NULL;
}

function entire_article_status($art)
{
  $r = last_revision($art);
  return $r['status'];
}

//
//
function utf8_substr($str,$from,$len){
# utf8 substr
# www.yeap.lv
  return preg_replace('#^(?:[\x00-\x7F]|[\xC0-\xFF][\x80-\xBF]+){0,'.$from.'}'.
                       '((?:[\x00-\x7F]|[\xC0-\xFF][\x80-\xBF]+){0,'.$len.'}).*#s',
                       '$1',$str);
}//utf8_substr

function utf8_strlen ($str)
{
   $i = 0;
   $count = 0;
   $len = strlen ($str);
   while ($i < $len)
   {
   $chr = ord ($str[$i]);
   $count++;
   $i++;
   if ($i >= $len)
       break;

if ($chr & 0x80)
   {
       $chr <<= 1;
       while ($chr & 0x80)
       {
       $i++;
       $chr <<= 1;
       }
   }
   }
   return $count;
}