<?
if(basename(__FILE__)==basename($PHP_SELF)) die("Salve, żQuien vive?");
$PHP_SELF=basename($PHP_SELF);
$pseYaUsado=FALSE;
$PWDENCODE="gato";
define("FS_DIR_INC",'inc/');
include_once('inc/ia_inc_session.php');
include_once('inc/ia_inc_forms.php');
include_once('inc/ia_inc_db.php');
$conn=$gLink;
$isPuerto=FALSE;

    ////////////////////////////////////////////////////////////////////////
    // lantia bitacora del puerto
    // get paramaters forum list
    //

     $IAFORO["usr"]["logged"]=get_session("uforologged",0);
     $IAFORO["usr"]["id"]=get_session("uforoid",0);
     $IAFORO["user_id"]=get_session("uforoid",0);
     $IAFORO["usr"]["html"]=get_session("uforohtml",0);
     $IAFORO["usr"]["status"]=get_session("uforostatus","");
     $x=iaforo_permiso("marina,,c");
     $IAFORO["usr"]["tipo"]=get_session("uforotipo",$x);
     $IAFORO["usr"]["tipocmnt"]=get_session("uforotipocmnt","");
     $IAFORO["usr"]["especial"]=get_session("uforoespecial","");
     $IAFORO["usr"]["pseudonimo"]=get_session("uforopseudonimo","");
     $IAFORO["usr"]["showemail"]=get_session("uforoshowemail",0);
     $IAFORO["usr"]["hide_email"]=get_session("uforohidemail",0);
     $IAFORO["usr"]["email"]=get_session("uforoemail","");
     $IAFORO["usr"]["nombre"]=get_session("uforonombre","");
     if( strpos("x".$IAFORO["usr"]["especial"],"oculta")>0) 
       $IAFORO["usr"]["oculta"]='';
     else
       $IAFORO["usr"]["oculta"]=" AND status<>'Oculta' ";


  function iaforo_prepara($foro) {
  global $conn,$IAFORO;
   
   
    $IAFORO["hoy"]=Date("Y-m-d");
    $IAFORO["parents"]=0;
    $IAFORO["pages"]=0;
    $IAFORO["page"]=0;
    $IAFORO["list_length"]=30;
    $IAFORO["dias_activo"]=30;
    $IAFORO["foro_id"]=0;
    $IAFORO["message_table"]="tab_cafe";

    $IAFORO["foro_page"]="puerto.php";
    $IAFORO["read_page"]="muelle.php";
    $IAFORO["post_page"]="sirgar.php";

    $IAFORO["archivo_name"]="Embarcadero";
    $IAFORO["archivo_prefix"]="Puerto Libre de Ficticia";
    $IAFORO["foro_title"]="Puerto Libre de Ficticia";
    $IAFORO["foro_name"]="puerto";
    $IAFORO["foro_nameShort"]="Puerto";
    $IAFORO["foro_header"]="Puerto Libre";
    $IAFORO["list_length"]=40;
    $IAFORO["dias_activo"]=31;
	$IAFORO["foro_id"]=2;


 if($foro=="cafe") {
    $IAFORO["foro_page"]="cafe.php";
    $IAFORO["read_page"]="mesa.php";
    $IAFORO["post_page"]="barra.php";

    $IAFORO["archivo_name"]="Asiento";
    $IAFORO["archivo_prefix"]="Caf&eacute; Literario de Ficticia";
    $IAFORO["foro_title"]="Caf&eacute; Literario de Ficticia";
    $IAFORO["foro_name"]="cafe";
    $IAFORO["foro_nameShort"]="Caf&eacute; Actual";
    $IAFORO["foro_header"]="Caf&eacute; Literario";
    $IAFORO["list_length"]=40;
    $IAFORO["dias_activo"]=31;
	$IAFORO["foro_id"]=1;
 } elseif($foro=="censo") {
    $IAFORO["foro_page"]="censo.php";
    $IAFORO["read_page"]="pasaporte.php";
    $IAFORO["post_page"]="visa.php";

    $IAFORO["archivo_name"]="Censo";
    $IAFORO["archivo_prefix"]="Censo de Ficticia";
    $IAFORO["foro_title"]="Censo de Ficticia";
    $IAFORO["foro_name"]="censo";
    $IAFORO["foro_nameShort"]="Censo ";
    $IAFORO["foro_header"]="Censo";
    $IAFORO["list_length"]=1024;
    $IAFORO["dias_activo"]=100;
	$IAFORO["foro_id"]=3;
   } elseif($foro=="marina") {
    $IAFORO["foro_page"]="marina.php";
    $IAFORO["read_page"]="yate.php";
    $IAFORO["post_page"]="regata.php";

    $IAFORO["archivo_name"]="Marina";
    $IAFORO["archivo_prefix"]="Marina de Ficticia";
    $IAFORO["foro_title"]="Marina de Ficticia";
    $IAFORO["foro_name"]="marina";
    $IAFORO["foro_nameShort"]="Marina ";
    $IAFORO["foro_header"]="Marina";
    $IAFORO["list_length"]=40;
    $IAFORO["dias_activo"]=31;
	$IAFORO["foro_id"]=4;
 
   } elseif($foro=="bitacora") {
    $IAFORO["foro_page"]="bitacora.php";
    $IAFORO["read_page"]="compas.php";
    $IAFORO["post_page"]="cuadrante.php";

    $IAFORO["archivo_name"]="Bitácora";
    $IAFORO["archivo_prefix"]="Bitácora de la Marina";
    $IAFORO["foro_title"]="Bitácora de la Marina";
    $IAFORO["foro_name"]="bitacora";
    $IAFORO["foro_nameShort"]="Bitácora ";
    $IAFORO["foro_header"]="Bitácora";
    $IAFORO["list_length"]=40;
    $IAFORO["dias_activo"]=31;
	$IAFORO["foro_id"]=5;
   } elseif($foro=="jurado") {
    $IAFORO["foro_page"]="jurados.php";
    $IAFORO["read_page"]="juez.php";
    $IAFORO["post_page"]="mazo.php";

    $IAFORO["archivo_name"]="Jurados";
    $IAFORO["archivo_prefix"]="Jurados";
    $IAFORO["foro_title"]="Jurados";
    $IAFORO["foro_name"]="jurado";
    $IAFORO["foro_nameShort"]="Jurados ";
    $IAFORO["foro_header"]="Jurados";
    $IAFORO["list_length"]=400;
    $IAFORO["dias_activo"]=2365;
	$IAFORO["foro_id"]=6;
} elseif($foro=="capitania") {
    $IAFORO["hoy"]=Date("Y-m-d");
    $IAFORO["parents"]=0;
    $IAFORO["pages"]=0;
    $IAFORO["page"]=0;
    $IAFORO["list_length"]=360;
    $IAFORO["dias_activo"]=2365;
    $IAFORO["message_table"]="tab_cafe";

    $IAFORO["foro_page"]="capitania.php";
    $IAFORO["read_page"]="roseta.php";
    $IAFORO["post_page"]="roseta.php";

    $IAFORO["archivo_name"]="";
    $IAFORO["archivo_prefix"]="Capitanía del Puerto Libre de Ficticia";
    $IAFORO["foro_title"]="Capitanía Puerto Libre de Ficticia";
    $IAFORO["foro_name"]="capitanía";
    $IAFORO["foro_nameShort"]="Capitanía";
    $IAFORO["foro_header"]="Capitanía";
    $IAFORO["list_length"]=365;
    $IAFORO["dias_activo"]=1365;
	$IAFORO["foro_id"]=2;
   } elseif($foro=="jarcia") {
    $IAFORO["foro_page"]="jarcia.php";
    $IAFORO["read_page"]="lua.php";
    $IAFORO["post_page"]="manga.php";

    $IAFORO["archivo_name"]="Jurados";
    $IAFORO["archivo_prefix"]="Jurados";
    $IAFORO["foro_title"]="Jurados";
    $IAFORO["foro_name"]="jarcia";
    $IAFORO["foro_nameShort"]="Jurados ";
    $IAFORO["foro_header"]="Jurados";
    $IAFORO["list_length"]=400;
    $IAFORO["dias_activo"]=2365;
	$IAFORO["foro_id"]=7;
   } elseif($foro=="lantia") {
    $IAFORO["foro_page"]="lantia.php";
    $IAFORO["read_page"]="lampara.php";
    $IAFORO["post_page"]="lamparita.php";

    $IAFORO["archivo_name"]="Bitácora";
    $IAFORO["archivo_prefix"]="Bitácora del Puerto Libre";
    $IAFORO["foro_title"]="Bitácora del Puerto Libre";
    $IAFORO["foro_name"]="lantia";
    $IAFORO["foro_nameShort"]="Bitácora Puerto Libre";
    $IAFORO["foro_header"]="Bitácora";
    $IAFORO["list_length"]=40;
    $IAFORO["dias_activo"]=31;
	$IAFORO["foro_id"]=8;

 }

    $IAFORO["f1"]["foro_page"]="cafe.php";
    $IAFORO["f1"]["read_page"]="mesa.php";
    $IAFORO["f1"]["post_page"]="barra.php";
	$IAFORO["f1"]["foro_name"]="el Caf&eacute; Literario";
	$IAFORO["f1"]["foro_id"]=1;

    $IAFORO["f2"]["foro_page"]="puerto.php";
    $IAFORO["f2"]["read_page"]="muelle.php";
    $IAFORO["f2"]["post_page"]="sirgar.php";
	$IAFORO["f2"]["foro_name"]="el Puerto Libre";
	$IAFORO["f2"]["foro_id"]=2;

    $IAFORO["f3"]["foro_page"]="censo.php";
    $IAFORO["f3"]["read_page"]="pasaporte.php";
    $IAFORO["f3"]["post_page"]="visa.php";
	$IAFORO["f3"]["foro_name"]="Ciudadanos de Ficticia";
	$IAFORO["f3"]["foro_id"]=3;

    $IAFORO["f4"]["foro_page"]="marina.php";
    $IAFORO["f4"]["read_page"]="yate.php";
    $IAFORO["f4"]["post_page"]="regata.php";
	$IAFORO["f4"]["foro_name"]="la Marina de Ficticia";
	$IAFORO["f4"]["foro_id"]=4;

    $IAFORO["f5"]["foro_page"]="bitacora.php";
    $IAFORO["f5"]["read_page"]="compas.php";
    $IAFORO["f5"]["post_page"]="cuadrante.php";
	$IAFORO["f5"]["foro_name"]="la Bitácora";
	$IAFORO["f5"]["foro_id"]=5;

    $IAFORO["f6"]["foro_page"]="jurados.php";
    $IAFORO["f6"]["read_page"]="juez.php";
    $IAFORO["f6"]["post_page"]="mazo.php";
	$IAFORO["f6"]["foro_name"]="los jurados";
	$IAFORO["f6"]["foro_id"]=6;
}

function ia_fororegistrameID($ID) {
  $quien=singleton("select * from tab_usr where id=$ID");
  ia_fororegistro($quien);
}
function ia_fororegistrame($pseudonimo) {
  $quien=singleton("select * from tab_usr where pseudonimo=".strit($pseudonimo));
  ia_fororegistro($quien);
}
function ia_fororegistro($arr) {
global $IAFORO;
    $IAFORO["usr"]["logged"]=1; set_session("uforologged",1);
    $IAFORO["usr"]["id"]=$arr["ID"]; set_session("uforoid",$arr["ID"]);
    $IAFORO["user_id"]=$IAFORO["usr"]["id"];
    $IAFORO["usr"]["html"]=$arr["html"]; set_session("uforohtml",$arr["html"]);

    $x=iaforo_permiso($arr["status"]);
    $IAFORO["usr"]["status"]=$x; set_session("uforostatus",$x);
    $xtipo=iaforo_permiso($arr["tipo"]);
    $IAFORO["usr"]["tipo"]=$xtipo; set_session("uforotipo",$xtipo);
    $s=iaforo_permiso(str_replace(",c","",$arr["tipo"]));
    $IAFORO["usr"]["tipocmnt"]=$s; set_session("uforotipocmnt",$s);

    
    $IAFORO["usr"]["especial"]=$x; set_session("uforoespecial",$arr["especial"]);
     if( strpos("x".$IAFORO["usr"]["especial"],"oculta")>0) 
      $IAFORO["usr"]["oculta"]='';
     else
      $IAFORO["usr"]["oculta"]=" AND status<>'Oculta' ";

    $IAFORO["usr"]["email"]=$arr["email"]; set_session("uforoemail",$arr["email"]);
    $IAFORO["usr"]["showemail"]=$arr["show_email"]; set_session("uforoshowemail",$arr["show_email"]);

    if( isset($arr["hide_email"]) )
    { $IAFORO["usr"]["hide_email"]=$arr["hide_email"]; set_session("uforohidemail",$arr["hide_email"]); }
    else
     $IAFORO["usr"]["hide_email"]=$arr["hide_email"]; set_session("uforohidemail",0);
    if($arr["baja"]) {
      $IAFORO["usr"]["baja"]=1;
      set_session("desterrado",1);
    } else
      $IAFORO["usr"]["baja"]=0;
    $IAFORO["usr"]["nombre"]=$arr["nombre"]; set_session("uforonombre",$arr["nombre"]);
    $IAFORO["usr"]["apellido"]=$arr["apellido"]; set_session("uforonombre",$arr["apellido"]);
    $IAFORO["usr"]["pseudonimo"]=$arr["pseudonimo"]; set_session("uforopseudonimo",$arr["pseudonimo"]);

}

	function iaforo_getparams() {
    global $IAFORO,$HTTP_POST_VARS,$HTTP_GET_VARS;
    $d=array();
    $d=clearData();

    if(is_array($HTTP_GET_VARS))
     foreach($HTTP_GET_VARS as $k=>$v) 
      $d[$k]=trim(unstrit($v));


    if(is_array($HTTP_POST_VARS))
     foreach($HTTP_POST_VARS as $k=>$v) 
      $d[$k]=trim(unstrit($v));

	if(!isset($d["o"])) $d["o"]=0;
    $IAFORO["n"]=get_param("n","");
	$IAFORO["ID"]=get_param("i","");
	$IAFORO["offset"]=get_param("o",0);
    if(!IAis_number($IAFORO["offset"])) $IAFORO["offset"]=0;
      if($IAFORO["offset"]<0) $IAFORO["offset"]=0;
    	$IAFORO["newer"]=$IAFORO["offset"]-1;
      if($IAFORO["newer"]<0) $IAFORO["newer"]=0;
	    $IAFORO["older"]=$IAFORO["offset"]+1;

      $d_arr =  getdate();
      $IAFORO["cActual"]=$d_arr["year"].$d_arr["mon"];
      if($d_arr["mon"]<10)  $mon="0".$d_arr["mon"]; else $mon=$d_arr["mon"];
      if($d_arr["mday"]<10) $mday="0".$d_arr["mday"]; else $mday=$d_arr["mday"];
      $IAFORO["date_hoy"]=$d_arr["year"]."-$mon-$mday";

      $d_arr =  getdate( mktime($d_arr["hours"], $d_arr["minutes"],$d_arr["seconds"] ,$d_arr["mon"], $d_arr["mday"]-$IAFORO["dias_activo"],$d_arr["year"]));
      if($d_arr["mon"]<10)  $mon="0".$d_arr["mon"]; else $mon=$d_arr["mon"];
      if($d_arr["mday"]<10) $mday="0".$d_arr["mday"]; else $mday=$d_arr["mday"];
      $IAFORO["date_limit"]=$d_arr["year"]."-$mon-$mday";

      $d_arr =  getdate( mktime($d_arr["hours"], $d_arr["minutes"],$d_arr["seconds"] ,$d_arr["mon"], $d_arr["mday"]+1,$d_arr["year"]));
      if($d_arr["mon"]<10)  $mon="0".$d_arr["mon"]; else $mon=$d_arr["mon"];
      if($d_arr["mday"]<10) $mday="0".$d_arr["mday"]; else $mday=$d_arr["mday"];
      $IAFORO["date_hasta"]=$d_arr["year"]."-$mon-$mday";

      $IAFORO["date_in"]=$IAFORO["date_hoy"];

      $c=get_param("c",""); $where="";
      if($c==Date("Yn")) { $c=""; }
      if($c!="") {
        if(!IAis_number($c)) $c="";
        elseif( strlen($c)!=6 && strlen($c)!=5) $c="";
        elseif( $c<0) $c="";
      }
      if($c!="") {
        $tano=substr($c,0,4);
        $tmes=substr($c,4);
        
        $t1ano=date("Y"); $t1mes=date("m");
        if($tano>$t1ano || ($tano==$t1ano && $tmes>=$t1mes) )
         $c="";
       else {
         if($tmes==0) $tmes=1; elseif($tmes>12) $tmes=12;
         if($tmes<10 && strlen($tmes)<2) $xmes="0$tmes"; else $xmes=$tmes;
         $c1="$tano-$xmes-01";
         $IAFORO["date_in"]=$c1;
         $tmes++;
         if($tmes>12) { $tmes=1; $xano=$tano+1; } else $xano=$tano;
         if($tmes<10 && strlen($tmes)<2) $xmes="0$tmes"; else $xmes=$tmes;
         $c2="$xano-$xmes-01";
         $where=" datestamp between '$c1' and '$c2'";
         $IAFORO["date_to"]=$c2;


      $d_arr =  getdate( mktime(0, 0,0 ,$tmes, 0,$xano));

      if($d_arr["mon"]<10)  $mon="0".$d_arr["mon"]; else $mon=$d_arr["mon"];
      if($d_arr["mday"]<10) $mday="0".$d_arr["mday"]; else $mday=$d_arr["mday"];
      $IAFORO["date_to"]=$d_arr["year"]."-$mon-$mday";
         
      }
     } if($c=="") {

        $c=Date("Yn");
		
        $c1=Date("Y-n-d 23:59:59");
        $c2= $IAFORO["date_limit"];
        $where="  datestamp between '$c2' and '$c1'";
     }
     $IAFORO["anterior"]=($c!=$IAFORO["cActual"]);    
     $IAFORO["c"]=$c; $IAFORO["where"]="AND ($where)";
     return $d;
    }
    ////////////////////////////////////////////////////////////////////////
    //
    //  This function executes a query to select messages from the database
    //  for a threaded display and returns an array.  The main Phorum code
    //  handles actually sorting the threads into a threaded list.
    //
    //  NOTE: ALL dates should be returned as Unix timestamps
    //
    function phorum_db_get_threaded($offset,$where="") {
       global $conn; global $IAFORO;

/*        $conn=phorum_db_mysql_connect(); */
        $table=$IAFORO["message_table"];
        $start = $offset * $IAFORO["list_length"];
        $IAFORO["page"]=$offset+1;

        $sql="select count(message_id) from $table where foro=$IAFORO[foro_id] AND parent_id=0 ".$IAFORO["usr"]["oculta"]." $where";

        $res=mysql_query($sql, $conn);
        if($err=mysql_error()) phorum_db_mysql_error("$err: $sql");
        if(mysql_num_rows($res)) $IAFORO["parents"]=mysql_result($res, 0, 0);
		    $IAFORO["pages"]=ceil($IAFORO["parents"]/$IAFORO["list_length"]);

        // find the needed threads
        $sql="select thread from $table where foro=$IAFORO[foro_id] AND parent_id=0 ".$IAFORO["usr"]["oculta"]." $where
              order by thread desc
              limit $start, $IAFORO[list_length]";

        $res=mysql_query($sql, $conn);
        if($err=mysql_error()) phorum_db_mysql_error("$err: $sql");

		// defensive programing
        if(mysql_num_rows($res)==0) {
         $sql="select thread from $table where foro=$IAFORO[foro_id] AND parent_id=0 ".$IAFORO["usr"]["oculta"]." $where
              order by thread desc
              limit 0, $IAFORO[list_length]";
         $res=mysql_query($sql, $conn);
         if($err=mysql_error()) phorum_db_mysql_error("$err: $sql");
         $IAFORO["page"]=1; 
         $IAFORO["offset"]=0; $IAFORO["newer"]=0; $IAFORO["older"]=1;
        }

        $arr=array();
        if(mysql_num_rows($res)>0){
			$IAFORO["parents_thispage"]=mysql_num_rows($res);
            // pull out the first and last thread_id
            $max=mysql_result($res, 0, "thread");
            $min=mysql_result($res, mysql_num_rows($res)-1, "thread");
            // retrieve all information for those threads
            $sql="select
                    $table.message_id,
                    $table.user_id,
                    $table.thread,
                    $table.parent_id,
                    $table.subject,
                    $table.author,
                    $table.email,
                    $table.tipo, $table.status,
                    $table.datestamp
                  from
                    $table
                  where
                    foro=$IAFORO[foro_id] AND thread between $min and $max ".$IAFORO["usr"]["oculta"]." $where
                  order by
                    thread desc, message_id";

            $res=mysql_query($sql, $conn);
            if($err=mysql_error()) phorum_db_mysql_error("$err: $sql");
        }
        while($rec=mysql_fetch_assoc($res)){
            $arr[$rec["message_id"]]=$rec;
        }
        return $arr;
    }


    function iaforo_get_msgthread($thread) {
       global $conn; global $IAFORO;
        $table=$IAFORO["message_table"];
        // find the needed threads
        $arr=array();
	
            // retrieve all information for those threads
            $sql="select
                    $table.message_id,
                    $table.user_id,
                    $table.thread,
                    $table.parent_id,
                    $table.subject,
                    $table.author,
                    $table.email,
                    $table.tipo, $table.status,
                    $table.datestamp
                  from
                    $table
                  where
                    thread = $thread ".$IAFORO["usr"]["oculta"]."
                  order by message_id";

            $res=mysql_query($sql, $conn);
            if($err=mysql_error()) phorum_db_mysql_error("$err: $sql");

        while($rec=mysql_fetch_assoc($res)){
            $arr[$rec["message_id"]]=$rec;
        }
        return $arr;
    }


    function iaforo_get_msgcomments($thread,$msgID) {
       global $conn; global $IAFORO;
        $table=$IAFORO["message_table"];

            // retrieve all information for those threads
            $sql="select
                    $table.message_id,
                    $table.user_id,
                    $table.thread,
                    $table.parent_id,
                    $table.subject,
                    $table.author,
                    $table.email,
                    $table.tipo,
                    $table.datestamp
                  from
                    $table
                  where
                    thread=$thread AND message_id >= $msgID ".$IAFORO["usr"]["oculta"]."
                  order by message_id";
            $res=mysql_query($sql, $conn);
            if($err=mysql_error()) phorum_db_mysql_error("$err: $sql");
        
        while($rec=mysql_fetch_assoc($res)){
            $arr[$rec["message_id"]]=$rec;
        }
        return $arr;
    }


    ////////////////////////////////////////////////////////////////////////
    // This function sorts $rows and fills $threads.  It assumes that $rows
    // is an array that is sorted by thread, then id.  This is critical as
    // it ensures that a child is not encountered before a parent.
    function phorum_sort_threads($rows) {
        foreach($rows as $row)
            $rows[$row["parent_id"]]["children"][]=$row["message_id"];
        $sorted_rows=array(0=>array());
        _phorum_recursive_sort($rows, $sorted_rows);
        unset($sorted_rows[0]);
        return $sorted_rows;
    }

    // not to be called directly.  Call phorum_sort_threads
    $previndent=0;
    function _phorum_recursive_sort($rows, &$threads, $seed=0, $indent=0) {
        global $IAFORO,$previndent;
        if($seed>0){
            $threads[$rows[$seed]["message_id"]]=$rows[$seed];
          
            if($rows[$seed]["tipo"]!="")
			 $threads[$rows[$seed]["message_id"]]["mark"]="class=".$rows[$seed]["tipo"];
            elseif($rows[$seed]["user_id"]>0)
              $threads[$rows[$seed]["message_id"]]["mark"]="class=U";
            elseif($rows[$seed]["parent_id"])
			 $threads[$rows[$seed]["message_id"]]["mark"]="";
			else
			  $threads[$rows[$seed]["message_id"]]["mark"]="class=T";

            if($indent>$previndent) {
              $threads[$rows[$seed]["message_id"]]["ulstart"]=str_repeat("<ul>",$indent-$previndent);
              $threads[$rows[$seed]["message_id"]]["ulend"]="";
            } elseif($indent<$previndent) {
              $threads[$rows[$seed]["message_id"]]["ulstart"]="";
              $threads[$rows[$seed]["message_id"]]["ulend"]=str_repeat("</ul>",$previndent-$indent);
            } else {
							$threads[$rows[$seed]["message_id"]]["ulstart"]="";
              $threads[$rows[$seed]["message_id"]]["ulend"]="";
            }
            $previndent=$indent;
            $indent++;
        }
        if(isset($rows[$seed]["children"]))
            foreach($rows[$seed]["children"] as $child)
                _phorum_recursive_sort($rows, &$threads, $child, $indent);
   	}
    function phorum_db_mysql_error($err)
    {
        echo $err;
        if(!defined("PHORUM_ADMIN")) exit();
    }


	  function tab_fecha($d) {
      global $IAFORO;

      if(substr($d,0,10)==$IAFORO["hoy"])
				return "<span class=H>".IA_ShowDate($d)."</span>";
      else
				return "<span>".IA_ShowDate($d)."</span>";
      
    }

function iaforo_navegaAcota($isMarina) {
global $IAFORO,$isPuerto;
 echo "<tr><td>&nbsp;</td>";
 if($IAFORO["anterior"]) {
  echo "<td valign=bottom colspan=2><font size=\"1\">".IA_ShowDate($IAFORO["date_to"])."</font></td><td valign=bottom align=\"center\"><font size=\"1\">&nbsp;al&nbsp;</font></td><td valign=bottom colspan=2><font size=\"1\">".IA_ShowDate($IAFORO["date_in"])."</font></td>\r\n";
 } else {
  echo "<td valign=bottom colspan=2><font size=\"1\">".IA_ShowDate($IAFORO["date_hoy"])."</font></td><td valign=bottom  align=\"center\"><font size=\"1\">&nbsp;al&nbsp;</font></td><td valign=bottom colspan=2><font size=\"1\">".IA_ShowDate($IAFORO["date_hasta"])."</font></td>\r\n";
 }
 if($isMarina) {
  echo "\r\n<td colspan=4><table border=0 cellpadding=3>";
  echo '<tr>
  <td width="18"><img src="img/c.gif"></td><td> Participa</td>
  <td>&nbsp;</td>
  <td width="18"><img src="img/l.gif"></td><td> Tallerista</td>
  <td>&nbsp;</td></tr>
  </table>
  </td></tr>';
  echo "\r\n";
} elseif($isPuerto) {
  echo "\r\n<td colspan=4><table border=0 cellpadding=3>";
  echo '<tr>
<td width="18"><img src="img/c.gif"></td><td> Concursa</td>
<td>&nbsp;</td>
<td width="18"><img src="img/h.gif"></td><td><span style="FONT-SIZE: larger; FONT-STYLE: normal;" title="En la capitanía aparecen sólo los seleccionados por el jurado"> Seleccionado</span></td>
<!--
<td><a href="lantia.php" style="font-size:smaller;text-decoration:none;color:black;">Bases, resultados y avisos del concurso en la Bitácora</a></td>
-->
</tr>
</table>
</td></tr>';
echo "\r\n";
 } else
  echo "<td colspan=4>&nbsp;</td></tr>\r\n";
}

function iaforo_navega($esArriba=1,$conAbordar=1,$isCiudadanos=0,$isMarina=0) {
global $IAFORO, $PHP_SELF;
 if($isCiudadanos)
   echo "<table cellspacing=0 cellpadding=0 border=0 width=\"100%\" background=\"images/piza.jpg\" bordercolor=\"#838453\" bordercolorlight=\"#B2B2B2\" bordercolordark=\"#717850\">\r\n";
 else
 	echo "<table cellspacing=0 cellpadding=0 border=0 >";
 if($esArriba) iaforo_navegaAcota($isMarina);

 if($IAFORO["c"]!="")
  $paramC="c=".$IAFORO["c"];
 else
  $paramC="c=1";
 echo "<tr>";
 if($IAFORO["anterior"])
  echo "<td><a class=Nav href=\"$PHP_SELF\">$IAFORO[foro_nameShort] Actual</a>&nbsp;&nbsp;&nbsp;&nbsp;</td>\r\n";
 else 
  echo "<td width=\"64\">&nbsp;&nbsp;&nbsp;&nbsp;</td>\r\n";

 if($IAFORO["newer"]!=$IAFORO["offset"]) {
  echo "<td width=\"16\" height=\"34\"><a class=Nav href=\"$PHP_SELF?$paramC\"><img src=\"img/nav_ini.gif\" border=1 ALT=\"Primera página \"></a></td>\r\n";
  echo "<td width=\"16\" height=\"34\"><a class=Nav href=\"$PHP_SELF?$paramC&o=".$IAFORO["newer"]."\"><img src=\"img/nav_sig.gif\" border=1 ALT=\"Página anterior\"></a></td>\r\n";
 } else 
   echo "<td width=\"16\">&nbsp;</td><td width=\"16\">&nbsp;</td>\r\n";
if($IAFORO["pages"]) 
 echo "<td align=\"center\">&nbsp;&nbsp;<i>$IAFORO[page]/$IAFORO[pages]</i>&nbsp;&nbsp;</td>\r\n";
else
 echo "<td>&nbsp;</td>";

 if($IAFORO["older"]<$IAFORO["pages"]) {
  echo "<td width=\"16\" height=\"34\"><a class=Nav href=\"$PHP_SELF?$paramC&o=".$IAFORO["older"]."\"><img src=\"img/nav_ant.gif\" border=1 alt=\"Siguiente página\"></a></td>\r\n";
  echo "<td width=\"16\" height=\"34\"><a class=Nav href=\"$PHP_SELF?$paramC&o=".($IAFORO["pages"]-1)."\"><img src=\"img/nav_fin.gif\" border=1 ALT=\"Última página \"></a></td>\r\n";
 } else
  echo "<td width=\"16\">&nbsp;</td><td width=\"16\">&nbsp;</td>\r\n";
 echo "<td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>\r\n";
 if($conAbordar) {
 if( $IAFORO["usr"]["logged"] ) {
  echo "<td>".ia_htmlprotect($IAFORO["usr"]["pseudonimo"])."</td>\r\n";
  echo "<td>&nbsp;&nbsp;&nbsp;&nbsp;</td><td align=\"right\"><a href=\"desembarcar.php\">Desembarcar</a></td>\r\n";
 } else
  echo "<td>&nbsp;</td><td>&nbsp;&nbsp;&nbsp;&nbsp;</td><td><a href=\"abordar.php\">Abordar</a></td>\r\n";
 } else
   echo "<td width=\"32\" >&nbsp;</td><td width=\"16\" >&nbsp;&nbsp;&nbsp;&nbsp;</td><td width=\"50%\" >&nbsp;</td>\r\n";

 echo "</tr>\r\n";
 if(!$esArriba) iaforo_navegaAcota($isMarina);
 echo "</table>\r\n";
}

    ////////////////////////////////////////////////////////////////////////
    //
    //  This function returns the closest thread that is greater than $thread
    //

    function iaforo_get_newer_thread($thread) {
        $IAFORO=$GLOBALS["IAFORO"];
        $conn=phorum_db_mysql_connect();
        $sql="select thread from $IAFORO[message_table] where thread>$thread order by thread limit 1";
        $res=mysql_query($sql, $conn);
        if($err=mysql_error()) phorum_db_mysql_error("$err: $sql");
        return (mysql_num_rows($res)) ? mysql_result($res, 0, "thread") : 0;
    }
    function iaforo_get_older_thread($thread) {
        $IAFORO=$GLOBALS["IAFORO"];
        $conn=phorum_db_mysql_connect();
        $sql="select thread from $IAFORO[message_table] where thread<$thread order by thread desc limit 1";
        $res=mysql_query($sql, $conn);
        if($err=mysql_error()) phorum_db_mysql_error("$err: $sql");
        return (mysql_num_rows($res)) ? mysql_result($res, 0, "thread") : 0;
    }

function iaforo_mailpara($nombre,$id,$has=1) {
global $IAFORO;
 if($has)
 return "<a href=\"correopara.php?f=".urlencode($IAFORO["foro_name"])."&i=$id&p=".urlencode($nombre)."\" target=\"_blank\">Envíale e-mail</a>";
 else
  return "&nbsp;";
}
function iaforo_ponemail($nombre,$email,$has) {
global $IAFORO;
if(trim($has)!="" && IA_isemail(trim($has)) )
 return "<a href=\"correos.php?f=".urlencode($IAFORO["foro_name"])."&i=$email&p=".urlencode($nombre)."\" target=\"_blank\">".ia_htmlprotect($nombre)."</a>";
else
 return ia_htmlprotect($nombre);
}
function iaforo_readnavigate($capitania=FALSE) {
global $IAFORO,$onde;
 $param="?c=$IAFORO[c]&o=$IAFORO[offset]";
 echo '<hr size=7 width="75%"><center>';
 echo '[ <a href="#followups">Comentarios</a> ]&nbsp;&nbsp; ';
 if($capitania) {
  echo "[ <a href=\"$IAFORO[foro_page]\">$IAFORO[foro_title]</a> ]";
}else
  if($IAFORO["archivo_es"]) {
   echo "[ <a href=\"$IAFORO[foro_page]$param\">$IAFORO[archivo]</a> ] ";
   echo "[ <a href=\"$IAFORO[foro_page]\">$IAFORO[foro_title]</a> ]";
 } else {
   echo "[ <a href=\"#participa\">Enviar Comentario</a> ] ";
   echo "[ <a href=\"$IAFORO[foro_page]$param\">$IAFORO[foro_title]</a> ]";
 }
 if(isset($onde))
  if($onde!='')
    echo "[ <a href=\"$onde\">Regresar</a> ]";
 echo "</center><hr size=7 width=\"75%\">";
}


function clearData() {
global $IAFORO;
 $d["url"]="";
 $d["url_title"]="";
 $d["ancla"]="";
 $d["message_id"]=0;
 $d["thread"]=0;
 $d["parent_id"]=0;
 $d["user_id"]=$IAFORO["user_id"];
 $d["thread_count"]=0;
 $d["modifystamp"]=0;
 $d["datestamp"]=Date("Y-m-d H:i:s");
 $d["author"]='';
 $d["email"]='';
 $d["ip"]='';
 $d["subject"]='';
 $d["body"]='';
 $d["status"]='Muestra';
 $d["tipo"]='';
 $d["cerrado"]=0;
 $d["html"]=0;
 return $d;
}

function iaforo_post($d,$checkAncla,$SubCaption="  Envia  ",$Nombre="Nombre",$Subject="Resumen", $Body="Comentario", $maxlength=500000,$soyEditante=0,$cerradoLbl="Cerrado") {
global $IAFORO,$PHP_SELF,$gInEdit,$doCheck,$onde,$PHP_SELF,$largo,$pseYaUsado;
if(!isset($largo)) $masde=0; else $masde=$largo;
/*
if( get_session("desterrado",0) ) {
  echo '<blockquote>';
  echo '<b>Salve destarrado</b>';
  echo '<blockquote>';
  echo 'Le deseamos buenaventura en sus viajes por otros mares.';
  echo '</blockquote>';
  echo '</blockquote>';
  return;
}
*/
if($gInEdit) {
 if($soyEditante) $cualPost="corrector.php"; else $cualPost=$IAFORO["post_page"];
 if($soyEditante) $cualhaz="upd"; else $cualhaz="add";
 echo "<form lang=\"es\" method=\"POST\" action=\"$cualPost\" NAME=\"Ficha\" ID=\"oFicha\" onSubmit=\"return doSubmit(this.Envia)\">\r\n";
 echo "<input type=\"hidden\" name=\"haz\" value=\"$cualhaz\">\r\n";
 echo "<input type=\"hidden\" name=\"o\" value=\"$IAFORO[offset]\">\r\n";
 echo "<input type=\"hidden\" name=\"user_id\" value=\"$IAFORO[user_id]\">\r\n";
 echo "<input type=\"hidden\" name=\"foro_id\" value=\"$IAFORO[foro_id]\">\r\n";
 echo "<input type=\"hidden\" name=\"foro_name\" value=\"$IAFORO[foro_name]\">\r\n";
 echo "<input type=\"hidden\" name=\"thread\" value=\"$d[thread]\">\r\n";
 if(!$soyEditante) echo "<input type=\"hidden\" name=\"cerrado\" value=\"$d[cerrado]\">\r\n";
 echo "<input type=\"hidden\" name=\"message_id\" value=\"$d[message_id]\">\r\n";
 echo "<input type=\"hidden\" name=\"parent_id\" value=\"$d[parent_id]\">\r\n";
 if(isset($onde)) echo "<input type=\"hidden\" name=\"onde\" value=\"".htmlspecialchars($onde)."\">\r\n";
// if($IAFORO["usr"]["logged"] && !$soyEditante) echo "<input type=\"hidden\" name=\"author\" value=\"".htmlspecialchars($IAFORO["usr"]["pseudonimo"])."\">\r\n";
}
 echo "<table border=0>\r\n";

  echo "<tr class=frmRow><td class=frmCellLbl>";
    echo IA_frmLbl("$Nombre",$d["author"],IASTR,TRUE,$pseYaUsado,"class_frmLblOK","class_frmLblMal");
  echo "</td>\r\n";
  if($IAFORO["usr"]["logged"] && $IAFORO["foro_name"]!='jurado' && !$soyEditante ) { $x="R/O"; $d["author"]=$IAFORO["usr"]["pseudonimo"]; } else $x="R/W";
  echo "<td class=frmCellInput>";
  echo IA_frmBox('text','author',$d["author"],'maxlength=32 size=33','1','','Si','No','R/W');
  echo "</td></tr>\r\n";
  if(!$IAFORO["usr"]["logged"] && !$soyEditante) {
   echo "<tr class=frmRow><td class=frmCellLbl>";
    echo IA_frmLbl("Ancla",$d["ancla"],IASTR,TRUE,$checkAncla,"class_frmLblOK","class_frmLblMal");
   echo "</td>\r\n";
   echo "<td class=frmCellInput>";
    echo IA_frmBox('password','ancla',$d["ancla"],'maxlength=32 size=33','1','','Si','No','R/W');
    echo ' <font size="-1"><a href="abordar.php"><i>solicita tu ancla</i></a>; <i>es necesaria para participar</i></font>';
   echo "</td></tr>\r\n";
  }
  if($IAFORO["foro_name"]!='jurado' && $IAFORO["usr"]["logged"] && $d["email"]=="" && !$doCheck && $IAFORO["usr"]["showemail"] && !$soyEditante) $d["email"]=$IAFORO["usr"]["email"];
  echo "<tr class=frmRow><td class=frmCellLbl>";
  if( $IAFORO["foro_name"]!='jurado' || $d["parent_id"]>0  )
    echo IA_frmLbl('e-mail',"xxx",IASTR,0,($d["email"]!='' && !IA_isemail($d["email"])),"class_frmLblOK","class_frmLblMal");
  else
    echo IA_frmLbl('e-mail del juez',"xxx",IASTR,0,($d["email"]=='' || !IA_isemail($d["email"])),"class_frmLblOK","class_frmLblMal");
  echo "</td>\r\n";
  echo "<td class=frmCellInput>";
    echo IA_frmBox('text','email',$d["email"],'maxlength=255 size=60','1','','Si','No','R/W');
  echo "</td></tr>\r\n";

  echo "<tr class=frmRow><td class=frmCellLbl>";
    echo IA_frmLbl("$Subject",$d["subject"],IASTR,TRUE,0,"class_frmLblOK","class_frmLblMal");
  echo "</td>\r\n";
  echo "<td class=frmCellInput>";
    echo IA_frmBox('text','subject',$d["subject"],'maxlength=64 size=60','1','','Si','No','R/W');
  echo "</td></tr>\r\n";
  if($d["body"]=="") $masde=1;
  echo "<tr class=frmRow><td colspan=2 class=frmCellLbl style='text-align:left;'>";
    echo IA_frmLbl("$Body",$d["body"],IASTR,TRUE,$masde,"class_frmLblOK","class_frmLblMal");
  echo "</td>\r\n";
  echo "<tr class=frmRow><td colspan=2 class=frmCellInput >";
    echo IA_frmBox('textarea','body',$d["body"],"ROWS=15 COLS=65 maxlength=$maxlength",'1','','Si','No','R/W');
  echo "</td></tr>\r\n";

  $p="";
  if(iaforo_getusrstatus("status",&$p)) {
   echo "<tr class=frmRow><td class=frmCellLbl>";
    echo IA_frmLbl('Status',$d["status"],IASTR,0,0,"class_frmLblOK","class_frmLblMal");
   echo "</td>\r\n";
   echo "<td class=frmCellInput>";
    echo IA_frmArray('status',$d["status"],$p,0,'',1,'','R/W');
   echo "</td></tr>\r\n";
  }

  $ptipo="";
  $lbl="Marca";
  $tieneMarca=iaforo_getusrstatus("tipo",&$ptipo);
  if($IAFORO["foro_id"]==4 && $d["parent_id"]==0 ) {
    $lbl="Para";
    $tieneMarca=1;
    iaforo_addmarca(&$ptipo,array('C'=>'Participa','L'=>'Tallerista','N'=>'Ni participa ni es Tallerista'));
  } elseif($IAFORO["foro_name"]=='jurado' ) {
    $tieneMarca=1;
    iaforo_addmarca(&$ptipo,array('J'=>'Juez'));
  } else  if($IAFORO["foro_id"]==2 && $d["parent_id"]==0 ) {
    $lbl="Concursa";
    $tieneMarca=1;
    iaforo_addmarca(&$ptipo,array('C'=>'Si, concursa','N'=>'No concursa'));
/* 'N'=>'No concursa', */
  }
  if($tieneMarca) {
   echo "<tr class=frmRow><td class=frmCellLbl>";
    echo IA_frmLbl($lbl,$d["tipo"],IASTR,FALSE,0,"class_frmLblOK","class_frmLblMal");
   echo "</td>\r\n";
   echo "<td class=frmCellInput>";
    echo IA_frmArray('tipo',$d["tipo"],$ptipo,1,'',1,'','R/W');
   echo "</td></tr>\r\n";
  }

  if($IAFORO["usr"]["html"]) {
   echo "<tr class=frmRow><td class=frmCellLbl>";
    echo IA_frmLbl('Html',$d["html"],IANUM,FALSE,0,"class_frmLblOK","class_frmLblMal");
   echo "</td>\r\n";
   echo "<td class=frmCellInput>";
    echo IA_frmBox('checkbox','html',$d["html"],'','1','','Si','No','R/W');
   echo "</td></tr>\r\n";
  }

  if($soyEditante ) {
   echo "<tr class=frmRow><td class=frmCellLbl>";
    echo IA_frmLbl($cerradoLbl,1,IANUM,FALSE,0,"class_frmLblOK","class_frmLblMal");
   echo "</td>\r\n";
   echo "<td class=frmCellInput>";
    echo IA_frmBox('checkbox','cerrado',$d["cerrado"],'','1','','Si','No','R/W');
   echo "</td></tr>\r\n";
   echo "<tr class=frmRow><td class=frmCellLbl>IP";
   echo "</td>\r\n";
   echo "<td class=frmCellInput>".$d['ip'];
   echo "</td></tr>\r\n";
  }

 echo "</table>\r\n";

 if($gInEdit) {
 echo "<p style='text-align:center;'>\r\n<input type=\"submit\" name=\"Envia\" value=\"$SubCaption\">\r\n";
 if($doCheck!=0) {
  echo "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=\"reset\" value=\"deshacer\">";
 }
 else
  echo "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=\"reset\" value=\"borrar\">";
 echo "</form>\r\n";
}
}
function iaforo_addmarca(&$p,$a) {
  foreach($a as $k=>$v)
   if(!isset($p[$k])) $p[$k]=$v;
}
function iaforo_getusrstatus($cual,&$p) {
global $IAFORO;
$res=0; $p=""; $p=array();
if(is_array($IAFORO["usr"][$cual]))
foreach($IAFORO["usr"][$cual] as $k=>$v)
 if( strcasecmp($IAFORO["foro_name"],$k)==0 ) 
  if(is_array($v)) {
    $res=1;
    foreach($v as $n=>$m)
      $p[$n]=$m;
  }
return $res;
}

function iaforo_permiso($t) {
$n=array(''=>'Normal','L'=>'Tallerista','N'=>'No Participa','D'=>'Moderador',
'C'=>'Participa', 'P'=>'Premio', 'R'=>'Resultado','A'=>'Convocatoria','J'=>'Juez',
'F'=>'Ficticia','W'=>'Webmaster','M'=>'Marcial','O'=>'Mónica Villa','U'=>'Usuario Registrado',
 'Y'=>'Ciudadano','H'=>'Capitanía');
$a=explode("|",$t);
foreach($a as $k) {
 $j=explode(",",$k);
 if(isset($j[1])) {
  $i=0;
  foreach($j as $v) {
   $y=strtoupper($v);
   if(isset($n[$y])) {
    if($i) $x[$j[0]][$y]=$n[$y];
   }
   $i++;
  }
 } else $x[$k]="";
}
 return $x;
}
function ia_forodie($to,$msg) {
 set_session("uforologged",0);
 if(isset($IAFORO["usr"]["logged"])) {
  unset($IAFORO["usr"]["logged"]);
  ia_fororegistro(clearUser());
  set_session("uforologged",0);
 }
 die("$to<p>$msg");
}

function clearUser() {
 $d["ID"]=0;
 $d["pseudonimo"]='';
 $d["nombre"]='';
 $d["apellido"]='';
 $d["email"]='';
 $d["show_email"]=0;
 $d["user_data"]='';
 $d["pwd"]='';
 $d["html"]=0;
 $d["status"]='';
 $d["tipo"]='';
 $d["especial"]='';
 $d["baja"]=0;
 $d["Fecha_Alta"]=Date("Y-m-d H:i:s");
 $d["Ultimo_Cambio"]=Date("YmdHis");
 $d["hide_email"]=0;
 return $d;
}


?>