$IAFORO=array(); global $IAFORO;
include_once('ia_foro.php');
iaforo_prepara("puerto");
$d=iaforo_getparams();
if($IAFORO["anterior"])
$IAFORO["archivo"]=$IAFORO["archivo_prefix"].":
".$IAFORO["archivo_name"]." de ".IA_ShowDate($IAFORO["date_in"],"F, Y");
else
$IAFORO["archivo"]=$IAFORO["foro_title"];
$isPuerto=TRUE;
?>
if($IAFORO["anterior"]) echo "Embarcadero de ".$iamesL[substr($IAFORO["c"],4,2)]." de ".substr($IAFORO["c"],0,4)."
"; else { echo "Cuentos, Historias y Narraciones por los Navegantes Ficticianos
"; echo "Envía tus cuentos al Puerto Libre e inmediatamente estarán en Internet para ser leídos y/o comentados por los ficticianos.
"; echo 'Minificciones en la Marina.'; echo '
Temas y charlas en el Café Literario.'; echo "
2do concurso de cuento \"Festejando el lanzamiento de la Biblioteca Digital de Cuento Contemporáneo\".
"; /* echo "
1er concurso de cuento \"Festejando el lanzamiento de la Biblioteca Digital de Cuento Contemporáneo\".'; */ } $phmsgs=phorum_db_get_threaded($IAFORO["offset"],$IAFORO["where"]); $phsorted=phorum_sort_threads($phmsgs); ?>
Resultados "; echo 'Felicitamos a Oscar A, Valentino y Luna musical.
Para reclamar sus premios favor de contactar a ficticiaweb@gmail.com, para darles las instrucciones correspondientes.
if($IAFORO["anterior"]) echo "[ $IAFORO[foro_header] ] "; else echo '[ Envíe un Cuento ] '; ?> [ Embarcaderos ] [ Buscador ]
iaforo_navega(); ?>iaforo_navega(0); ?>
$param="c=$IAFORO[c]&o=$IAFORO[offset]"; foreach($phsorted as $k=>$v) { $p="$IAFORO[read_page]?i=$v[message_id]&$param"; echo $v["ulend"].$v["ulstart"]."
",$previndent); ?>- ".ia_htmlprotect($v["subject"])." ".tab_fecha($v["datestamp"])."
".ia_htmlprotect($v["author"])."\r\n"; if($v["status"]=='Oculta') echo " OCULTADO!"; } echo str_repeat("
global $gInEdit,$doCheck; if(!$IAFORO["anterior"]) { $doCheck=0; $gInEdit=1; $d=clearData(); iaforo_post($d,0," Envia ","Autor","Título", "Cuento"); } ?> include('inc_abajo.php'); ?>"; ?>
Actual: $ano=Date("Y"); for($i=$ano;$i>=1999;$i--) { echo " Año Embarcadero del mes de: "; } echo " $i "; for($m=1;$m<=12;$m++) if( ($i<$ano && $i>1999) || ($i==$ano && $m =11) ) echo "$iames[$m] "; echo "