One Hat Cyber Team

View File Name : functions.php.2006-02-08.strange

<?
$www = $home = "http://www.imath.kiev.ua/~nosc";
$issn = "1562-3076";
$publname= array("ua"=> "Нелінійні коливання", "ru" => "Нелінійні коливання", "en" => "Neliniini Kolyvannya");

function nosc($title="")
{ global $lang;
 if (!trim($title)) 
   $title=enruua("Neliniini Kolyvannya",  "Нелінійні коливання", "Нелінійні коливання");
 return "<a href=\""."http://www.imath.kiev.ua/~nosc"."/general_info.php"."?lang=".$lang."\">".trim($title)."</a>"; 
}

$nosc_springer ="<i><a href=\"http://www.springerlink.com/link.asp?id=108782\">Nonlinear Oscillations</a></i>"; 
$nosc_kluwer = $nosc_springer;

function nosc_transl($title="Nonlinear Oscillations")
 {
 if (!trim($title)) $title="Nonlinear Oscillations";
 return "<a href=\"http://www.springerlink.com/link.asp?id=108782\">".trim($title)."</a>"; 
 }

function publisher() 
 {
 return "<a href=\"http://www.springeronline.com\">"."Springer Verlag"."</a>";
 } 

$nosc_kluwer_subscribe = "http://www.wkap.nl/orders/?journal=1536-0059";

//where, etc
$publisher_where="main"; //untested

function word_number()
{global $lang;
  return enruua("#","&#8470","&#8470");
}

function ecim_nosc($text="")
{ global $lang;
if($text)
{
$v="<form action=ecimir_nosc.php method=post target=\"none\">\n";
$v=$v."<input type=submit 
title=\"".enruua("Send an electronic message to the editorial office",
"Послать электронное сообщение в редакцию журнала",
"Надіслати електронне повідомлен ня до редакції журналу")."\" value=\"".$text."\">";
$v=$v."</form>\n";
}//text
else
 {$v="<form action=ecimir_nosc.php method=post target=\"none\">\n";
$v=$v."<input type=image src=\"icons/mozilla-mail-compose.gif\" 
title=\"".enruua("Send an electronic message to the office",
"Послать электронное сообщение в редакцию журнала",
"Надіслати електронне повідомлення до редакції журналу")."\">";
$v=$v."</form>\n";
} //no text
return $v;
} //ecim_nosc

function ecim($uid)

{ global $lang,$database,$hostname,$user,$password;

 $db = mysql_connect($hostname, $user, $password);

 $fetch_ad = mysql_db_query($database, "SELECT id, last_name_$lang,
first_name_$lang, middle_name_$lang, city_$lang, street_$lang, country_$lang, 
email FROM Authors where id='$uid'");

 while ($ad = mysql_fetch_array($fetch_ad)) //should be unique
 {
 $v="";
 if ($ad["email"])
 {  
$v="<form action=ecimir.php method=post target=\"none\">\n";
/*$v=$v."<input type=submit value=\"".enruua("Electronic mail",
"Электронная почта","Електронна пошта")."\" class=ecim>";*/
$v=$v."<input type=image src=\"icons/mozilla-mail-compose.gif\" 
title=\"".enruua("Send an electronic message",
"Послать электронное сообщение","Надіслати електронне повідомлення")."\">";
$v=$v."<input type=hidden name=ecim_uid value=".$uid.">\n";
$v=$v."</form>\n";
$v=$v."<iframe name=\"none\" width=\"0\" height=\"0\" frameborder=\"0\" src=\"null.php\"></iframe>"; 
}

 }//while
 return $v;
}//ecim

function language_button($which_lang,$style)
{ global $lang,$where,$volume,$number,$article_id,$author_id,$who,$search_what,$fullcontents;
 if (!$style) $style="button_language_small";
 $which_lang = trim($which_lang);
 switch($style)
{
case "button_language_small":

 $v="<a title=\"".enruua_var($which_lang,"Select the English language","Читать по-русски","Читати українською")."\" ";
 $v=$v." class=";
  if($lang==$which_lang) $v=$v.$style."_selected";  else {$v=$v.$style; }
  $v=$v." href=\"".$_SERVER['PHP_SELF']."?lang=".$which_lang;
  if ($volume) $v=$v."&volume=".$volume;
  if ($number) $v=$v."&number=".$number;
  if ($article_id) $v=$v."&article_id=".$article_id;
  if ($author_id) $v=$v."&author_id=".$author_id;
  if ($search_what) $v=$v."&search_what=".$search_what;
  if ($fullcontents) $v=$v."&fullcontents=".$fullcontents;
  if ($who) $v=$v."&who=".$who;
  if ($where) {
 $v=$v."&where=".$where."#".$where;}
$v= $v."\">".enruua_var($which_lang,"In English","По-русски","Українською")."</a>";
   break;
   
   case "flag":
   
   $v = "<a title=\"".enruua_var($which_lang,"in English","По-русски","Українською")."\" ";
   $v=$v." href=\"".$_SERVER['PHP_SELF']."?lang=".$which_lang;
  if ($volume) $v=$v."&volume=".$volume;
  if ($number) $v=$v."&number=".$number;
  if ($article_id) $v=$v."&article_id=".$article_id;
  if ($author_id) $v=$v."&author_id=".$author_id;
  if ($search_what) $v=$v."&search_what=".$search_what;
  if ($fullcontents) $v=$v."&fullcontents=".$fullcontents;
  if ($who) $v=$v."&who=".$who;
  if ($where) {
 $v=$v."&where=".$where."#".$where;}
$v= $v."\">";
$v = $v."<img class=\"flag\" src=\"icons/".$which_lang.".png\" alt=\"".enruua_var($which_lang,"English","По-русски","Українською")."\"".">"."</a>";
   break;
} //switch

return $v;
} //lang_button 


function language_select($style)
{
global $lang;
if (!$style) $style="button_language_small";
$res="";
$langs = array("en","ru","ua");
while ($i = current($langs))
{
 if (trim($lang) !=$i)
  {
   if ($res) $res = $res." ";
   $res = $res.language_button($i,$style);
   }
   next($langs);
 }
return $res;
} //function

function check_admin()
{
if (isset($_SERVER['PHP_AUTH_USER'])) 
    return "admin"; 
 else return ""; 
}//check_admin

function menu($type)
{
global $main_topics,$lang;

switch ($type)
 {//switch
 
 case "large":

while (list($menu_item,$val)=each($main_topics))
{
 echo "<a  title=\"".$val."\" href=".$menu_item.".php?lang=$lang";

 /*if ($menu_item_where) 
  echo "&where=".$menu_item_where."#".$menu_item_where;    else echo "&where=main#main";*/
   
   echo " ";
   
   if (current_topic()==$menu_item)
    echo "class=button_menu_selected>";
     else echo "class=button_menu>";
     
     echo  "$val"."</a> ";
  }; //while         
  
   break;
   
 case "tinyline":

echo "<small>";

while (list($menu_item,$val)=each($main_topics))
{
 echo "<a title=\"".$val."\" href=".$menu_item.".php?lang=$lang";
 echo " ";
  if (current_topic()==$menu_item) {echo "class=menu_bottom_item_selected>";}
     else {echo "class=menu_bottom_item>";}
      
 echo  "$val"."</a> ";
  } //while         
   language_button("en",$style)." ".language_button("ru",$style)." ".language_button("ua",$style);
 echo "</small>"; 
  
 break;
 
  case "line":

while (list($menu_item,$val)=each($main_topics))
{
 echo "<a  title=\"".$val."\" href=".$menu_item.".php?lang=$lang";
   
   echo " ";
   
   if (current_topic()==$menu_item) { echo "class=menu_item_selected>";}
     else {echo "class=menu_item>";}
     
     echo  "$val"."</a> ";
  } //while         
   
 echo "\n"; 
  
 break;
   
     } //switch
     
     reset($main_topics);
     
}  //menu   


function article_id ($article)
{ 
  $d=strtotime($article["received"]);

  return "".date("ymd",$d).$article["id"];
}

function show_article_block_small($article)
{ global $lang;

$authors = "".get_short_authors($article[id])."";
$v = "<a class=silent name=article".$article[id]."></a>\n";
$v = $v."<div class=article>";
$v = $v.$authors."<br style=\"padding: 5px\">\n";
$v = $v."<p><i>".$article["title_$lang"]."</i>\n";
$v = $v."<br style=\"padding: 10px\">\n";

$v = $v."<p><a class=button_general href=\"show_article.php?lang=".$lang."&article_id=".$article[id]."&volume=$volume&number=$number\"  
title=\"".enruua("View details on article No.",
"Подробнее о статье номер","Детальніше про статтю з номером")."&nbsp;".article_id($article)."\">".enruua("Details",
"Подробнее","Детальніше")."</a>\n";
$v = $v."</div>\n";

if (check_admin()) $v = $v." ".article_edit_button($article["id"]);

return $v;

}//show_article_block_small


function show_article_dates($paper)
{ global $lang;
 
 $p = article_id ($paper);

$r=enruua("Manuscript", "Рукопись", "Рукопис")." ".word_number()."&nbsp;".$p." ".enruua("received by the editors on",
"получена редакцией", "надішов до редакції")." ".print_date($paper["received"]);

if (($paper["accepted"]!=="0000-00-00") && (($paper["status"]=="accepted") || ($paper["status"]=="published")) && ($paper["accepted"]!=$paper["received"]) )
   $r=$r." ".enruua("and, in revised form",
   "и, в переработанном виде",
   "та, в переробленому вигляді").", ".print_date($paper["accepted"]); 
          
$r=$r.".";

if ($paper["language"])
 {
  switch ($paper["language"])
   {
    case "en": $r=$r." ".enruua("In English","На английском языке","Англійською мовою");  break;
    case "ru": $r=$r." ".enruua("In Russian","На русском языке","Російською мовою");  break;
    case "ua": $r=$r." ".enruua("In Ukrainian","На украинском языке","Українською мовою");  break;
   }
  $r=$r.".";
  }
return $r;
}//dates

function show_pending_article_dates($paper)
{ global $lang;
 
$p = article_id ($paper);

$r=enruua("Manuscript", "Рукопись", "Рукопис")." ".word_number()."&nbsp;".$p." ".enruua("received by the editors on",
"получена редакцией", "надішов до редакції")." ".print_date($paper["received"]);

if (($paper["sent_to_referee_1"]) && ($paper["sent_to_referee_1"]!="0000-00-00") )
 $r=$r.", ".enruua("sent to a referee on",
"отправлена рецензенту",
"відправлений рецензенту")." ".print_date($paper["sent_to_referee_1"]);

if ( ($paper["received_from_referee_1"]) && ($paper["received_from_referee_1"]!="0000-00-00") )
 $r=$r."; ".enruua("referee's report received on",
"рецензия поступила","рецензія надійшла")." ".print_date($paper["received_from_referee_1"]);

if ( ($paper["sent_to_author_1"]) && ($paper["sent_to_author_1"]!="0000-00-00") )
 $r=$r.", ".enruua("referee's report sent to the author on",
"рецензия послана автору",
"рецензію надіслано автору")." ".print_date($paper["sent_to_author_1"]);

if ( ($paper["received_from_author_1"]) && ($paper["received_from_author_1"]!="0000-00-00") )
 $r=$r.", ".enruua("revision received from the author on",
"переработанная версия получена",
"перероблена версія надійшла")." ".print_date($paper["received_from_author_1"]);

// 2nd
if (($paper["sent_to_referee_2"]) && ($paper["sent_to_referee_2"]!="0000-00-00") )

 $r=$r.". ".enruua("Manuscript sent to a second referee on", 
"Рукопись отправлена на повторное рецензирование", 
"Рукопис відправлено на повторне рецензування")." ".print_date($paper["sent_to_referee_2"]);

if ( ($paper["received_from_referee_2"]) && ($paper["received_from_referee_2"]!="0000-00-00") )
 $r=$r."; ".enruua("the second referee's report received on",
"повторная рецензия поступила",
"повторна рецензія надійшла")." ".print_date($paper["received_from_referee_2"]);

if ( ($paper["sent_to_author_2"]) && ($paper["sent_to_author_2"]!="0000-00-00") )
 $r=$r.", ".enruua("the second referee's report sent to the author on",
"повторная рецензия послана автору",
"повторну рецензію надіслано автору")." ".print_date($paper["sent_to_author_2"]);

if ( ($paper["received_from_author_2"]) && ($paper["received_from_author_2"]!="0000-00-00") )
 $r=$r.", ".enruua("a new revision received from the author on",
"вновь переработанная версия получена",
"повторно перероблена версія надійшла")." ".print_date($paper["received_from_author_2"]);
           
return $r.".";
}//dates

function show_article_block($article)
{ global $lang;

$authors = " <span>".get_short_authors($article[id])."</span>";
$v = "<a class=silent name=article".$article[id]."></a>\n";
$v = $v."<div class=article>";
$v = $v.$authors."<br style=\"padding: 5px\">\n";
$v = $v."<p><i>".$article["title_$lang"]."</i>\n";
$v = $v."<br style=\"padding: 10px\">\n";

$v = $v."<p><a class=button_general href=\"show_article.php?lang=".$lang."&article_id=".$article[id]."&volume=$volume&number=$number\"  
title=\"".enruua("View details on article No.",
"Подробнее о статье номер","Детальніше про статтю з номером")."&nbsp;".$article[id]."\">".enruua("Details",
"Подробнее","Детальніше")."</a>\n";
//
//
 if (check_admin()) $v=$v." ".article_edit_button($article["id"]);

$v = $v."</div>";

return $v;

}//show_article_block

function print_date($date)
{ global $lang;
  $locale = enruua("en_GB","ru_RU.KOI8-R","uk_UA.KOI8-U");
   setlocale(LC_TIME, $locale);
return strftime("%x", strtotime($date));

}

function author_link($id,$title="")
{global $lang;
if (!trim($title)) $title=short_name($id);
return "<a href=author_card.php?author_id=".$id."&lang=".$lang."#main>".$title."</a>";
} //author_link

function article_link($id,$title="")
{global $lang;
if (!trim($title)) $title="<b>".$id."</b>";
return "<a href=show_article.php?article_id=".$id."&lang=".$lang."#main>".$title."</a>";
} //article_link

function button($class,$ref,$en,$ru,$ua,$ten,$tru,$tua)
{
return "<a class=\"".trim($class)."\" title=\"".trim(enruua($ten,$tru,$tua))."\"\n"." href=\"".trim($ref)."\">".trim(enruua($en,$ru,$ua))."</a>\n";
}

function button_2main()
{
global $lang,$volume,$number,$article_id,$search_what,$who;

$args="?lang=".$lang;
if ($volume) $args=$args."&volume=".$volume;
if ($number) $args=$args."&number=".$number;
if ($article_id) $args=$args."&article_id=".$article_id;
if ($search_what) $args=$args."&search_what=".$search_what;
if ($who) $args=$args."&who=".$who;

return button("button_general",$_SERVER['PHP_SELF'].$args."#main", 
"Up","Вверх","Нагору",
"Go upwards","Идти наверх","Йти нагору");
}

function button_2header()
{
global $lang,$volume,$number,$article_id,$search_what,$who;

$args="?lang=".$lang;
if ($volume) $args=$args."&volume=".$volume;
if ($number) $args=$args."&number=".$number;
if ($article_id) $args=$args."&article_id=".$article_id;
if ($search_what) $args=$args."&search_what=".$search_what;
if ($who) $args=$args."&who=".$who;

return button("button_general",$_SERVER['PHP_SELF'].$args."#header", 
"Back to the top","К началу страницы","На початок сторінки",
"Back to the top of this page","Вернуться к началу страницы","Повернутись на початок цієї сторінки");
}

function topic_link($topic)
{global $lang,$main_topics;
return "<a href=scope.php?lang=".$lang.">".$main_topics[scope]."</a>";
}//topic_link

function current_topic()
{
return basename($_SERVER['SCRIPT_FILENAME'],".php");

}

function publ_link($language)
{ //global $publname;
$language=trim($language);
$name = enruua_var($language,
"Neliniini Kolyvannya", "Нелінійні коливання", "Нелінійні коливання");
if($language!="en") 
 {$ql="\""; $qr="\"";}
  else {$ql="<em>"; $qr="</em>";}
return $ql."<a href=\""."http://www.imath.kiev.ua/~nosc"."/?lang=".$language."\" title=\"$name\">".$name."</a>".$qr;
}

function enruua($en,$ru,$ua)
{
  global $lang;
  switch ($lang){
  case "en": 
    return $en; break;

  case "ru": 
   return $ru; break;

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

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

  case "ru": 
   return $ru; break;

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

// to convert cyrillic text (windows-1251) to english
// letters (e.g. for sending to a cell phone)

function koi2transl( $text_koi )
{ 
$text = convert_cyr_string ( $text_koi, "k", "w");

 $cyrlet = 'юабцде╗фгхийклмнопярстужвьызшэщчъ'.
          'ЮАБЦДЕ╦ФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪ';

 $englet = 'ABVGD   ZIJKLMNOPRSTUFHC   `Y`E  '.
           'abvgd   zijklmnoprstufhc   `y`e  ';

 $result = '';
 for ( $i=0; $i<strlen($text); $i++ ) {
   $c1 = $text[ $i ];
   $p1 = strpos( $cyrlet, $c1 );
  if ( $p1 === FALSE ) { $result .= $c1; continue; }

   $ct = $englet[ $p1 ];
   if ( $ct != ' ' ) { $result .= $ct; continue; }
  switch ( $c1 )
   {
     case 'е':
       $ct = 'Je';
      break;

     case 'Е':
       $ct = 'e';
      break;

     case '╗':
       $ct = 'Jo';
      break;

     case '╦':
       $ct = 'jo';
      break;

     case 'ф':
       $ct = 'Zh';
      break;

     case 'Ф':
       $ct = 'zh';
      break;

     case 'в':
       $ct = 'Ch';
      break;

     case 'В':
       $ct = 'ch';
      break;

     case 'ь':
       $ct = 'Sh';
      break;

     case 'Ь':
       $ct = 'sh';
      break;

     case 'ы':
       $ct = 'Sch';
      break;

     case 'Ы':
       $ct = 'sch';
      break;

     case 'ч':
       $ct = 'Ju';
      break;

     case 'Ч':
       $ct = 'ju';
      break;

     case 'ъ':
       $ct = 'Ja';
      break;

     case 'Ъ':
       $ct = 'ja';
      break;

     default:
       $ct = '?';
   }
   $result .= $ct;
 }
 return $result;
}

?>