Lo ultimo en el Foro |
/**
* Mod Title: Latest posts/topics
* Mod Version: phpBB 2.0
* Author: Pegas (pegas@ami.cz) (originally made by ?, previous version by LiLCoolboy (M@urice Cheung))
* Description: Shows latest posts or topics on any page, 2 optional parameters
* Release: v3.0, 27.01.2003
***
* DeMo: http://kocky-online.cz (Czech language)
* Installation Level: Easy
* Installation Time: 5 minutes
* Files To Edit: 0
* Included Files: (if necessary)
***
* Installation Notes:
* Put this code into new file, set $serverPath and $urlPath,
* upload this file onto server and include into your page and you are done!
* -- OR --
* Put this code into your page, set $serverPath and $urlPath,
* and you are done!
***
* Parameters:
* There are 2 optional parameters when calling this code as standalone file via include!
* type - whether to show topics or posts
* type=posts - posts [default when missing]
* type=topics - topics
* count - how much posts/topics show
* count=# [default is 3]
***
* Examples (assume that your file with this code is hilites.php):
* hilites.php?type=topics&count=5
* - shows latest 5 topics
* hilites.php?type=topics
* - shows latest 3 topics
* hilites.php
* - shows latest 3 posts
***
* Revision:
* v1.0
* author: ?
* v2.0
* author: LiLCoolboy (M@urice Cheung)
* - not working without significant changes, mistypes
* v3.0
* author: Petr Gasparik
* + added parameters when called as standalone file
* + posts/topics selection corrected
* + corrected mistypes
*/
$urlPath = "/foros"; //example: if your forum URL looks like http://kocky-online.cz/forum, this should be "/forum"
$serverPath = "foros/config.php"; //example: when this file is in URL path /forum/mod, this should be ../config.php
if(empty($count))
$count = "15"; //default value of how many posts/topics to show
if(empty($type))
$type = "topics"; //default value of whether to show 'posts' or 'topics'
$titleLimit = 20; //this is max.length of 'title' of topic/post
$moreLimit = 20; //this is max.length of 'more' (used in posts)
//-----------------[ DO NOT EDIT BELOW HERE ]-------------------------
include_once("$serverPath");
$db = @mysql_connect("$dbhost", "$dbuser", "$dbpasswd") or die("here we die at connection");
@mysql_select_db("$dbname",$db) or die("here we die");
if($type == "posts")
{
$prefix = 'p';
$sql = "SELECT x.post_subject as title, p.post_id as id, f.forum_id, t.topic_title as more "
."FROM ${table_prefix}topics t, ${table_prefix}forums f, ${table_prefix}posts p, ${table_prefix}posts_text x "
."WHERE t.topic_id = p.topic_id AND f.forum_id = t.forum_id AND p.post_id = x.post_id "
."ORDER BY p.post_id DESC "
."LIMIT $count";
}
else
{
$prefix = 't';
$sql = "SELECT t.topic_title as title, t.topic_id as id, f.forum_id, '' as more "
."FROM ${table_prefix}topics t, ${table_prefix}forums f "
."WHERE f.forum_id = t.forum_id "
."ORDER BY topic_time DESC "
."LIMIT $count";
}
//echo $sql;
if($r = mysql_query($sql, $db)) {
while($m = mysql_fetch_array($r)) {
$j = stripslashes($m[title]);
$k = substr($j, 0, $titleLimit); // . "..."
if(!empty($m[more]))
$m[more] = ''.substr($m[more], 0, $moreLimit) . ''; //...
if ($type == 'posts') {
$anchor = '#'.$m[id];
}
//-------------------[ THIS IS ONLY LINE YOU COULD CHANGE ]--------------------------
echo "".ucfirst(strtolower(utf8_encode($k)))."..."; //$k
}
}
//
//-------------------[ DO NOT EDIT UP HERE ]--------------------------
?>
|
|
Escrito por Mordisquitos
|
Lunes, 07 de Abril de 2008 12:38 |
Los koalas australianos podrían convertirse en una especie en peligro, víctimas del cambio climático, según una nueva investigación realizada por científicos australianos. Las hojas de eucalipto, la dieta principal de los koalas y otros animales, podría convertirse en alimento no comestible por culpa del cambio climático.
"Lo que estamos viendo, esencialmente, es que la dieta básica de estos animales se está transformando en cuero", dijo el profesor de ciencias de la Universidad Nacional Australiana Bill Foley, citado en el Weekend Australian. "La vida se tornará extremadamente difícil para estos animales", añadió.
El aumento del dióxido de carbono reduce el nitrógeno y otros nutrientes en las hojas de eucalipto e incrementa el tanino, una toxina natural, según los hallazgos de experimentos sobre el efecto invernadero del investigador Ivan Lawler, de la Universidad James Cook.
Esto reduce bruscamente los niveles de proteínas en las hojas, lo que hace que los koalas y otros animales deban alimentarse con más hojas de eucalipto con bajos nutrientes para sobrevivir."La cadena alimenticia para estos animales está finamente equilibrada y un pequeño cambio puede tener serias consecuencias", dijo el doctor Lawler, citado por el periódico.
Los koalas y otros animales similares más grandes dependen exclusivamente de las hojas de eucalipto como alimento. Otros marsupiales, incluidas las zarigüeyas y algunas especies de ualabíes, se alimentan sobre todo de hojas, al igual que muchas especies de insectos.
|
|
Animalistas conectados |
Tenemos 16 invitados conectado(s) |
|