• Colunistas
  • //ob_start(); global $vbulletin; require('../forum/conectando_mysql.inc'); require('../forum/portal-funcoes.php'); include('../forum/db.php'); session_start(); $session_id='1'; // User login session value $pegar_url = $_GET['r'] ; $resultado = preg_replace('([^0-9])','',$pegar_url); list($disp1,$disp2,$disp3,$disp4) = pegaurl($pegar_url) ; $protocolo = (strpos(strtolower($_SERVER['SERVER_PROTOCOL']),'https') === false) ? 'http' : 'https'; $host = $_SERVER['HTTP_HOST']; $script = $_SERVER['SCRIPT_NAME']; $parametros = $_SERVER['QUERY_STRING']; $url_atual = $protocolo . '://' . $host . $script . '?' . $parametros; $url_atual2 = htmlentities($url_atual); list($disp1,$disp2,$disp3,$disp4) = pegaurl($url_atual) ; $ip = getip(); // IMAGENS // Consulta que pega os resultados de imagens $sql_img = "SELECT a.*, b.lugares_id_vb FROM `portal_imagens` AS a INNER JOIN `portal_lugares` AS b ON b.`lugares_id` = a.`imagens_lugares_id` WHERE b.`lugares_id_vb` = $resultado ORDER BY a.`imagens_id` DESC"; $query_img = mysql_query($sql_img); $linhas_img = mysql_num_rows($query_img); // IMAGENS SLIDER // Consulta que pega os resultados de imagens pro slider $sql_img_slider = "SELECT a.imagens_file,a.imagens_tipo FROM `portal_imagens` AS a INNER JOIN `portal_lugares` AS b ON b.`lugares_id` = a.`imagens_lugares_id` WHERE b.`lugares_id_vb` = $resultado AND a.`imagens_destaque` = 1 ORDER BY RAND() LIMIT 6"; $query_img_slider = mysql_query($sql_img_slider); $linhas_img_slider = mysql_num_rows($query_img_slider); // FRASES // Consulta que pega os resultados de frases $sql_frases = "SELECT a.*, b.lugares_id_vb FROM `portal_frases` AS a INNER JOIN `portal_lugares` AS b ON b.`lugares_id` = a.`frases_lugares_id` WHERE b.`lugares_id_vb` = $resultado ORDER BY RAND() LIMIT 1"; $query_frases = mysql_query($sql_frases); $linhas_frases = mysql_num_rows($query_frases); $registro_frases = mysql_fetch_array($query_frases); // VIDEOS // Consulta que pega os resultados de videos $sql_vid = " SELECT * FROM `portal_videos` WHERE `videos_local_id` = $resultado "; $query_vid = mysql_query($sql_vid); $linhas_vid = mysql_num_rows($query_vid); // LUGARES // Consulta que pega apenas os resultados dos lugares $sql_lug = "SELECT * FROM `portal_lugares` WHERE `lugares_id_vb` = $resultado ORDER BY `lugares_id` DESC"; $query_lug = mysql_query($sql_lug); $linhas_lug = mysql_num_rows($query_lug); for ($i_lug=0 ; $i_lug<$linhas_lug ; $i_lug++) { $registro_lug = mysql_fetch_array($query_lug); $lug_nomes_maius = strtoupper($registro_lug['lugares_nome']); $lug_uf_maius = strtoupper($registro_lug['lugares_uf']); ///////// ///////// ///////// // INÍCIO DO TEMPO HOJE ///////// ///////// ///////// $tempo_url = 'http://br.weather.com/weather/local/'.$registro_lug['lugares_id_tempo'].'?day=1'; // INFORMANDO A URL DA PREVISÃO $tempo_arquivo = '../forum/cache_tempo/'.$registro_lug['lugares_nome_url'].'-agora-'.$registro_lug['lugares_id_tempo'].'.txt'; // CAMINHO DO ARQUIVO GERAL A SER CRIADO if ((!file_exists($tempo_arquivo)) || (filesize($tempo_arquivo) == "0") || (date('j-m-Y-H',(filemtime($tempo_arquivo))) != date('j-m-Y-H',time()) ) ) { $tempo_conteudo = file_get_contents($tempo_url); if (isset($tempo_conteudo)) { $tempo_escreve = fopen($tempo_arquivo,'w'); fwrite($tempo_escreve, $tempo_conteudo); fclose($tempo_escreve); clearstatcache(); } else { echo "Erro"; } } else { $tempo_conteudo = file_get_contents($tempo_arquivo); } ///////// // INÍCIO DO TEMPO AGORA ///////// $tempo_temp_agora = explode("°C",$tempo_conteudo); $tempo_umi_agora = explode("%",$tempo_conteudo); $tempo_vento_agora = explode("km/h",$tempo_conteudo); $tempo_vento_dir_agora = explode("currentObsText",$tempo_conteudo); $tempo_uv_agora = explode("obsTempText",$tempo_conteudo); $tempo_img_agora = explode("intlwxicons",$tempo_conteudo); $tempo_sem_agora = explode("Brasil.  ",$tempo_conteudo); $tempo_dia_mes_agora = explode("Hoje",$tempo_conteudo); $tempo_ano_hora_agora = explode("Local Time",$tempo_conteudo); $tempo_status_agora = explode("obsText",$tempo_conteudo); $temp_agora = intval(substr($tempo_temp_agora[0],-2,2)); $sens_agora = intval(substr($tempo_temp_agora[1],-2,2)); if (strstr($sens_agora,';')) { $sens_agora = substr($tempo_temp_agora[0],-1,1); } else { $sens_agora = substr($tempo_temp_agora[0],-2,2); } $umi_agora = substr($tempo_umi_agora[0],-3,3); if (substr($umi_agora[0],0,1) == "/") { $umi_agora = substr($tempo_umi_agora[0],-1,1); } elseif (substr($umi_agora[0],0,1) == ">") { $umi_agora = substr($tempo_umi_agora[0],-2,2); } else { $umi_agora = substr($tempo_umi_agora[0],-3,3); } $vento_agora = substr($tempo_vento_agora[0],-4,3); if (substr($vento_agora[0],0,1) == "a") { $vento_agora = substr($tempo_vento_agora[0],-2,1); } elseif (substr($vento_agora[0],0,1) == " ") { $vento_agora = substr($tempo_vento_agora[0],-3,2); } else { $vento_agora = substr($tempo_vento_agora[0],-4,3); } if (substr($tempo_vento_dir_agora[3],2,5) == "calmo") { $vento_dir_agora = "calmo"; } elseif (substr($tempo_vento_dir_agora[3],2,3) == "N/D") { $vento_dir_agora = "N/D"; } else { $vento_dir_agora3 = substr($tempo_vento_dir_agora[3],2,40); $vento_dir_agora2 = explode(" a ",$vento_dir_agora3); $vento_dir_agora1 = substr($vento_dir_agora2[0],3); $vento_dir_agora = pontoscardeais($vento_dir_agora1); } $uv_agora = intval(substr($tempo_uv_agora[2],2,2)); $img_agora = intval(substr($tempo_img_agora[1],4,2)); $status_agora = rtrim(strip_tags(substr($tempo_status_agora[1],2,30))); $semana_agora = substr($tempo_sem_agora[1],0,3); $dia_agora = floatval(substr($tempo_dia_mes_agora[1],8,2)); $mes_agora = ltrim(rtrim(substr($tempo_dia_mes_agora[1],10,4))); $ano_agora = floatval(substr($tempo_ano_hora_agora[0],-11,4)); $hora_agora = floatval(substr($tempo_ano_hora_agora[0],-6,2)); $atualiza_agora = explode('atualizado',$tempo_conteudo); $atualizadata_agora = substr($atualiza_agora[2],4,10); $atualizahora_agora = substr($atualiza_agora[2],17,2); $tempo_data_result = diadasemana($semana_agora); // RETORNA O DIA DA SEMANA POR EXTENSO $tempo_mes_result = mesextenso($mes_agora); // RETORNA O DIA DA SEMANA POR EXTENSO $tempo_img_result = tempoimagem($img_agora); // RETORNA O ÍCONE CERTO DA PREVISÃO DO TEMPO ///////// // INÍCIO DO TEMPO NOITE ///////// $tempo_noite1 = explode("Esta Noite",$tempo_conteudo); // Quebrando o conteúdo para trazer só a partir de "Esta Noite" $tempo_noite = substr($tempo_noite1[1],0); $tempo_temp_min_noite = explode("°C",$tempo_noite); $tempo_umi_noite = explode("%",$tempo_noite); $tempo_vento_noite = explode(" km/h",$tempo_noite); $tempo_uv_noite = explode("obsTempText",$tempo_noite); $tempo_img_noite = explode("intlwxicons",$tempo_noite); $tempo_status_noite = explode("dataText\">",$tempo_noite); $tempo_prob_noite = explode("%",$tempo_noite); $tempo_dirvento_noite = explode(" km/h",$tempo_noite); if (substr($temp_min_noite[0],-2,1) == ">") { $temp_min_noite = substr($tempo_temp_min_noite[0],-1,1); } else { $temp_min_noite = substr($tempo_temp_min_noite[0],-2,2); } if (substr($tempo_umi_noite[1],-4,1) == ">") { $umi_noite = substr($tempo_umi_noite[1],-3,2); } elseif (substr($tempo_umi_noite[1],-3,1) == ">") { $umi_noite = substr($tempo_umi_noite[1],-2,1); } else { $umi_noite = substr($tempo_umi_noite[1],-4,3); } $vento_noite = intval(substr($tempo_vento_noite[0],-3,3)); $img_noite = intval(substr($tempo_img_noite[1],4,2)); $status_noite = substr($tempo_status_noite[1],0); $status_noite1 = explode("",$status_noite); $status_noite2 = substr($status_noite1[0],0); if (substr($tempo_prob_noite[0],-4,1) == ">") { $prob_noite = substr($tempo_prob_noite[0],-3,2); } elseif (substr($tempo_prob_noite[0],-3,1) == ">") { $prob_noite = substr($tempo_prob_noite[0],-2,1); } else { $prob_noite = substr($tempo_prob_noite[0],-4,3); } $dirvento_noite1 = substr($tempo_dirvento_noite[0],-30); $dirvento_noite2 = explode("dataText",$dirvento_noite1); $dirvento_noite3 = substr($dirvento_noite2[1],5); $dirvento_noite4 = explode(" a ",$dirvento_noite3); $dirvento_noite5 = substr($dirvento_noite4[0],0); $tempo_img_result_noite = tempoimagem($img_noite); // RETORNA O ÍCONE CERTO DA PREVISÃO DO TEMPO ///////// ///////// ///////// // FIM DO TEMPO HOJE ///////// ///////// ///////// ///////// ///////// ///////// // INÍCIO DO TEMPO AMANHÃ ///////// ///////// ///////// $tempo_amanha_url = 'http://br.weather.com/weather/local/'.$registro_lug['lugares_id_tempo'].'?day=2'; // INFORMANDO A URL DA PREVISÃO DE AMANHÃ $tempo_amanha_arquivo = '../forum/cache_tempo/'.$registro_lug['lugares_nome_url'].'-amanha-'.$registro_lug['lugares_id_tempo'].'.txt'; // CAMINHO DO ARQUIVO GERAL A SER CRIADO PARA O TEMPO AMANHÃ if ((!file_exists($tempo_amanha_arquivo)) || (filesize($tempo_amanha_arquivo) == "0") || (date('j-m-Y-H',(filemtime($tempo_amanha_arquivo))) != date('j-m-Y-H',time()) ) ) { $tempo_amanha_conteudo = file_get_contents($tempo_amanha_url); if (isset($tempo_amanha_conteudo)) { $tempo_amanha_escreve = fopen($tempo_amanha_arquivo,'w'); fwrite($tempo_amanha_escreve, $tempo_amanha_conteudo); fclose($tempo_amanha_escreve); clearstatcache(); } else { echo "Erro"; } } else { $tempo_amanha_conteudo = file_get_contents($tempo_amanha_arquivo); } ///////// // INÍCIO DO TEMPO AMANHÃ ///////// $tempo_amanha1 = explode("Dia",$tempo_amanha_conteudo); // Quebrando o conteúdo para trazer só a partir de "Dia" $tempo_amanha = substr($tempo_amanha1[1],0); $tempo_temp_max_amanha = explode("°C",$tempo_amanha); $tempo_temp_min_amanha = explode("°C",$tempo_amanha); $tempo_umi_amanha = explode("%",$tempo_amanha); $tempo_vento_amanha = explode(" km/h",$tempo_amanha); $tempo_uv_amanha = explode("obsTempText",$tempo_amanha); $tempo_img_amanha = explode("intlwxicons",$tempo_amanha); $tempo_status_amanha = explode("dataText\">",$tempo_amanha); $tempo_prob_amanha = explode("%",$tempo_amanha); $tempo_dirvento_amanha = explode(" km/h",$tempo_amanha); if (substr($temp_max_amanha[0],-2,1) == ">") { $temp_max_amanha = substr($tempo_temp_max_amanha[0],-1,1); } else { $temp_max_amanha = substr($tempo_temp_max_amanha[0],-2,2); } if (substr($temp_min_amanha[1],-2,1) == ">") { $temp_min_amanha = substr($tempo_temp_min_amanha[1],-1,1); } else { $temp_min_amanha = substr($tempo_temp_min_amanha[1],-2,2); } if (substr($tempo_umi_amanha[1],-4,1) == ">") { $umi_amanha = substr($tempo_umi_amanha[1],-3,2); } elseif (substr($tempo_umi_amanha[1],-3,1) == ">") { $umi_amanha = substr($tempo_umi_amanha[1],-2,1); } else { $umi_amanha = substr($tempo_umi_amanha[1],-4,3); } $vento_amanha = intval(substr($tempo_vento_amanha[0],-3,3)); $img_amanha = intval(substr($tempo_img_amanha[1],4,2)); $status_amanha = substr($tempo_status_amanha[1],0); $status_amanha1 = explode("",$status_amanha); $status_amanha2 = htmlentities(substr($status_amanha1[0],0)); if (substr($tempo_prob_amanha[0],-4,1) == ">") { $prob_amanha = substr($tempo_prob_amanha[0],-3,2); } elseif (substr($tempo_prob_amanha[0],-3,1) == ">") { $prob_amanha = substr($tempo_prob_amanha[0],-2,1); } else { $prob_amanha = substr($tempo_prob_amanha[0],-4,3); } $dirvento_amanha1 = substr($tempo_dirvento_amanha[0],-30); $dirvento_amanha2 = explode("dataText",$dirvento_amanha1); $dirvento_amanha3 = substr($dirvento_amanha2[1],5); $dirvento_amanha4 = explode(" a ",$dirvento_amanha3); $dirvento_amanha5 = substr($dirvento_amanha4[0],0); $tempo_img_result_amanha = tempoimagem($img_amanha); // RETORNA O ÍCONE CERTO DA PREVISÃO DO TEMPO ///////// ///////// ///////// // FIM DO TEMPO AMANHÃ ///////// ///////// ///////// ///////// ///////// ///////// // INÍCIO DE ONDAS ///////// ///////// ///////// $ondas_url = 'http://ondas.cptec.inpe.br/cidades/faces/cidade.jsp?idCid=1059'; // INFORMANDO A URL DA PREVISÃO DE ONDAS $ondas_arquivo = '../forum/cache_tempo/'.$registro_lug['lugares_nome_url'].'-ondas-'.$registro_lug['lugares_id_ondas'].'.txt'; // CAMINHO DO ARQUIVO GERAL DE ONDAS A SER CRIADO if ((!file_exists($ondas_arquivo)) || (filesize($ondas_arquivo) == "0") || (date('j-m-Y-H',(filemtime($ondas_arquivo))) != date('j-m-Y-H',time()) ) ) { $ondas_conteudo = file_get_contents($ondas_url); if (isset($ondas_conteudo)) { $ondas_escreve = fopen($ondas_arquivo,'w'); fwrite($ondas_escreve, $ondas_conteudo); fclose($ondas_escreve); clearstatcache(); } else { echo "Erro"; } } else { $ondas_conteudo = file_get_contents($ondas_arquivo); } ///////// // INÍCIO DE ONDAS HOJE ///////// $ondas_hoje_geral = explode("Z
    ",$ondas_conteudo); $ondas_forca_geral = explode("/medio/",$ondas_conteudo); $ondas_velo_geral = explode("",$ondas_conteudo); $ondas_dir_geral = explode("",$ondas_conteudo); $ondas_encontra_hora = date('H',time()); if ($ondas_encontra_hora >= "0" && $ondas_encontra_hora < "2") { $ondas_encontra = "0"; } elseif ($ondas_encontra_hora >= "2" && $ondas_encontra_hora < 5) { $ondas_encontra = "1"; } elseif ($ondas_encontra_hora >= 5 && $ondas_encontra_hora < 8) { $ondas_encontra = "2"; } elseif ($ondas_encontra_hora >= 8 && $ondas_encontra_hora < 11) { $ondas_encontra = "3"; } elseif ($ondas_encontra_hora >= 11 && $ondas_encontra_hora < 14) { $ondas_encontra = "4"; } elseif ($ondas_encontra_hora >= 14 && $ondas_encontra_hora < 17) { $ondas_encontra = "5"; } elseif ($ondas_encontra_hora >= 17 && $ondas_encontra_hora < 20) { $ondas_encontra = "6"; } else { $ondas_encontra = "7"; } $ondas_hora_agora = intval(substr($ondas_hoje_geral[$ondas_encontra],-2,2)); $ondas_encontra_forca_agora = $ondas_encontra + "1"; //incluindo mais uma unidade para compensar o fato deles começarem do lado direito da quebra $ondas_forca2_agora = substr($ondas_forca_geral[$ondas_encontra_forca_agora],0,20); $ondas_forca1_agora = explode(".gif",$ondas_forca2_agora); $ondas_forca_agora = substr($ondas_forca1_agora[0],0); $ondas_encontra_velo_agora = $ondas_encontra + "2"; //incluindo mais uma unidade para compensar o fato deles começarem do lado direito da quebra e mais uma unidade por já ter um antes do bloco de ondas if (substr($ondas_velo_geral[$ondas_encontra_velo_agora],4 == "<")) { $ondas_velo_agora = substr($ondas_velo_geral[$ondas_encontra_velo_agora],0,3); } else { $ondas_velo_agora = substr($ondas_velo_geral[$ondas_encontra_velo_agora],0,4); } $ondas_encontra_dir_agora = $ondas_encontra + "1"; //incluindo mais uma unidade por já ter um antes do bloco de ondas if (substr($ondas_dir_geral[$ondas_encontra_dir_agora],-4,1 == ">")) { $ondas_dir_agora = substr($ondas_dir_geral[$ondas_encontra_dir_agora],-3,3); } elseif (substr($ondas_dir_geral[$ondas_encontra_dir_agora],-3,1 == ">")) { $ondas_dir_agora = substr($ondas_dir_geral[$ondas_encontra_dir_agora],-2,2); } else { $ondas_dir_agora = substr($ondas_dir_geral[$ondas_encontra_dir_agora],-1,1); } ///////// ///////// ///////// // FIM DE ONDAS ///////// ///////// ///////// $output_bits = '
    '.$registro_lug['lugares_nome'].'
    +
    '.$temp_agora.'ºC
    '.$umi_agora.'%
    '.$uv_agora.'
    TEMPERATURA
    UMIDADE
    UV
    '.$status_agora.'
      '; for ($i_slider=0; $i_slider<$linhas_img_slider; $i_slider++) { $slider_img = mysql_fetch_array($query_img_slider); // BUSCA DE IMAGENS $output_bits .= '
    • Image Title
      • '; } $output_bits .= '
    " '.$registro_frases['frases_txt'].'... "
    MERGULHO
    '; if (isset($registro_lug['lugares_mer_res'])) { $output_bits .= '
    O MERGULHO

    '.$registro_lug['lugares_mer_res'].'

    '; } if (isset($registro_lug['lugares_mer_pontos'])) { $output_bits .= '
    '; } if (isset($registro_lug['lugares_mer_emp'])) { $output_bits .= ' '; } if (isset($registro_lug['lugares_mer_especies'])) { $output_bits .= ' '; } $output_bits .= '
    O LUGAR
    '; if (isset($registro_lug['lugares_olugar_cid'])) { $encode_cid = (utf8_encode(nl2br($registro_lug['lugares_olugar_cid']))); $output_bits .= '
    A CIDADE

    '.$encode_cid.'

    '; } if (isset($registro_lug['lugares_olugar_hist'])) { $encode_hist = (utf8_encode(nl2br($registro_lug['lugares_olugar_hist']))); $output_bits .= '

    '.$encode_hist.'

    '; } if (isset($registro_lug['lugares_olugar_gastro'])) { $encode_gastro = (utf8_encode(nl2br($registro_lug['lugares_olugar_gastro']))); $output_bits .= '

    '.$encode_gastro.'

    '; } $output_bits .= '
    IMAGEM
    '; if (isset($linhas_img)) { $encode_fotos_titulo = (utf8_encode(nl2br($registro_img['imagens_titulo']))); $output_bits .= '
    FOTOS DOS MERGULHADORES
    '; for ($i_img=0 ; $i_img<$linhas_img ; $i_img++) { $registro_img = mysql_fetch_array($query_img); // BUSCA DE IMAGENS $arrayi = array(0,14,28,42,56,70,84,98,112,126,140,154); $arrayi2 = array(13,27,41,55,69,83,97,111,125,139,153); if ( in_array($i_img,$arrayi) ) { $output_bits .= '
    '; } $output_bits .= '
    '.$encode_fotos_titulo.'
    '.$encode_fotos_titulo.'
    '; if (( in_array($i_img,$arrayi2) ) || ($i_img == $linhas_img)) { $output_bits .= '
    '; } } // Fecha o FOR de IMAGENS if ( (!in_array($i_img,$arrayi2)) || ($i_img != $linhas_img) ) { $output_bits .= '
    '; } $output_bits .= '
    '; } $output_bits .= '
    CAPTCHA Image [ Nova Imagem ] '; $a.=vb::$vbulletin->userinfo[securitytoken]; $output_bits .= '
'.$url_atual2.'
'; } $output = $output_bits; mysql_close($conexao_portal); //ob_end_clean();
  • Categorias
    • Notícias
    • Em 08-12-2011 12:00 -   
      Avaliar artigo


      3 Comentários Comentários

      Nova Nadadeira CETATEK - Aquabionic WARP 1

      Um novo fabricante de nadadeiras entra no mercado de mergulho e lança sua nadadeira Aquabionic WARP 1 no Dema Show.



      Na verdade a nadadeira apresentada no DEMA Show era somente um protótipo e tive a oportunidade de conversar com Simon Morris, sócio da Cetatek, empresa que desenvolveu a nova nadadeira. Achei um vídeo no YouTube de uma entrevista com ele realizada no DEMA onde ele explica os conceitos aplicados a nova nadadeira.



      Basicamente ele apresenta a estrutura da nadadeira e demonstra o seu funcionamento e a origem do nome, WARP - Water Adapting Responsive Propulsion, isto é, Propulsão aquática reativa adpatável. Apesar da semelhança com o termo usado na série Star Trek para velocidades superiores a velocidade da luz, warp drive ou propulsão de dobra, Simon comenta no vídeo que não existe uma parceria com a NASA e o termo apenas define o funcionamento do equipamento. .

      A nova WAR 1 incorpora uma nova tecnologia, ainda em processo de registro de patente, que usa um sistema de atuadores dinâmicos para moldar ativamente e expandir a lâmina para a propulsão de forma mais eficiente. Este sistema é único no mundo e não disponível em nenhum outro produto do mercado.



      O fabricante espera começar a distribuição em março de 2012 e tão logo esteja disponível trarei mais informações sobre o desempenho dela na água, que é o importante.

      Mais informações, somente em inglês, podem ser obtidas no site da empresa CETATEK.

      Texto: Sérgio Martins


      por
      Dinhu
       
      Categorias:
      1. Lançamentos,
      2. Destaque do Slider
      Comentários 3 Comentários
      1. Avatar de Warner
        Warner - 08-12-2011, 13:24
        Muito interessante, mas achei parecida com a Mares X-Stream... Com uma expansão maior da pala. Vamos esperar os testes de como ela se comporta dentro d'água. Se possível uma comparação entre as duas.. Valeu Live2Dive!
      1. Avatar de Sérgio
        Sérgio - 08-12-2011, 15:24
        *** Olá Visitante, Para visualizar esta resposta você deverá se Registrar ou fazer login. Obrigado! ***
      1. Avatar de Sérgio
        Sérgio - 09-12-2011, 11:51
        *** Olá Visitante, Para visualizar esta resposta você deverá se Registrar ou fazer login. Obrigado! ***
      Comentários Comentar

      Clique aqui para conectar

    •