$value) if ($value['eid'] == $eid) return $value; return null; } function RecommendedEntry_updateIndexFile ($eid_updated, $eid, $direction) { $filename = sprintf ($_SERVER['DOCUMENT_ROOT'].'/ReData/%d.txt', $eid_updated); file_exists ($filename) || touch ($filename); $fp = @fopen ($filename, 'r+'); if ($fp) { if (flock ($fp, LOCK_EX | LOCK_NB)) { $ret = ''; $not_found = 1; while (! feof ($fp) && ($buf = fgets ($fp))) { list ($_eid, $_n0, $_n1) = preg_split ("[\t\r\n]", $buf); if ($eid == $_eid) { $not_found = 0; $direction ? $_n1++ : $_n0++; } $ret .= sprintf ("%d\t%d\t%d\n", $_eid, $_n0, $_n1); } $not_found && $ret .= sprintf ("%d\t%d\t%d\n", $eid, 1 - $direction, $direction); rewind ($fp); fwrite ($fp, $ret, strlen ($ret)); } fclose ($fp); } } function RecommendedEntry_incoming () { $eid_prev = $_COOKIE['mtrcmnd_eid']; if (isset ($eid_prev)) { if ($eid_prev != 668 && RecommendedEntry_getEntryData ($eid_prev)) { RecommendedEntry_updateIndexFile (668, $eid_prev, 0 /*incoming_from*/); RecommendedEntry_updateIndexFile ($eid_prev, 668, 1 /*outgoing_to*/); } } else { RecommendedEntry_updateIndexFile (668, 668, 0 /*incoming_from*/); } } RecommendedEntry_incoming (); function RecommendedEntry_outgoing () { setcookie ('mtrcmnd_eid', 668, time () + 2592000, '/'); } RecommendedEntry_outgoing (); function RecommendedEntry_initialize ($mode = 0) { global $RecommendedEntry_table; $RecommendedEntry_table = array (); $fp = @fopen ($_SERVER['DOCUMENT_ROOT'].'/ReData/668.txt', 'r'); if ($fp) { if (flock ($fp, LOCK_SH | LOCK_NB)) { while (! feof ($fp) && ($buf = fgets ($fp))) { list ($_eid, $_n0, $_n1) = preg_split ("[\t\r\n]", $buf); if (668 == $_eid) continue; if ($mode == 1) $RecommendedEntry_table{$_eid} = $_n0; else if ($mode == 2) $RecommendedEntry_table{$_eid} = $_n1; else $RecommendedEntry_table{$_eid} = $_n0 + $_n1; } arsort ($RecommendedEntry_table, SORT_NUMERIC); } fclose ($fp); } } function RecommendedEntry_GetEntry ($_index) { global $RecommendedEntry_table; foreach ($RecommendedEntry_table as $eid => $count) { if (--$_index) continue; $entry = RecommendedEntry_getEntryData ($eid); if ($entry) $entry['count'] = $count; return $entry; } } ?> Forestry Management [Spanish] | Policies | Chile | APIP - Asia-Pacific Information Platform on Food Security

HOME > Search by Economy > Chile > Policies > Forestry Management [Spanish]

Forestry Management [Spanish]

This page is about the desertification, belongs to the the Ministry of Agriculture of Chile. This site shows about the CONAF (National Forestal Corporation), which is in charge of the coordination to implement the PANCD (the National Action Program against the desertification).

'; ?> '; /* echo '
';
print_r($head);
echo '
'; echo '['.$is_link.']'; */ //リンク先があるときのみ表示 if($is_link==1){ echo '
'."\n"; if(preg_match("/text.html/", $contype)){ echo ''."\n"; echo '
'."\n"; if(!preg_match("/Microsoft/",$head['Server']) && $head['Server']){ $data_array = getPageData($exurl); $link_title = $data_array['title']; if($link_title != ""){ echo '

'.$link_title.'

'."\n"; //$pubtexts = 1; } $link_description = $data_array['description']; if($link_description != ""){ echo '

'.$link_description.'

'."\n"; //$pubtexts = 1; } } if($pubtexts==0 && $entryflg==1){ $pubtexts=1; echo '
'."\n".$entryText."\n"; } echo '
'; }elseif(preg_match("/application.pdf/", $contype)){ echo ''."\n"; if($pubtexts==0 && $entryflg==1){ $pubtexts=1; echo '
'."\n" .$entryText."\n" .'
'; } } echo '
'."\n"; } //MTアップロードPDFがある場合 if($pdfurl!=""){ echo '
'."\n"; echo ''."\n"; } ?> '."\n"; } if($pubtexts==0 && $entryflg==1){ $pubtexts=1; echo $entryText; } ?>
Reference
url:http://conaf.cl/proteccion/seccion-control-de-la-desertificacion.html is not available link!'; } ?>
Also browsed