print $host['1'];
print "</td><td>";
print $host['2'];
print "</td><td>";
if($host['3']==0) print "<a href='/nagios/cgi-bin/extinfo.cgi?type=1&host=".
$host['0']."'><font color='#008000'>ARRIBA</font></a>";
if($host['3']==1) print "<a href='/nagios/cgi-bin/extinfo.cgi?type=1&host=".
$host['0']."'><font color='#FF0000'>CAÍDO</font><img
src='/nagios/wiki/lib/images/smileys/icon_exclaim.gif' class='middle' /></a>";
if($host['3']==2) print "<a href='/nagios/cgi-bin/extinfo.cgi?type=1&host=".
$host['0']."'><font color='#FF0000'>UNREACHEABLE</font><img
src='/nagios/wiki/lib/images/smileys/icon_exclaim.gif' class='middle' /></a>";
print "</td>";
print "<td><a href='/pnp4nagios/index.php/graph?host=".
$host['0']."'>Performance</a> / <a href='/nagios/cgi-bin/avail.cgi?
get_date_parts=&host=".$host['0']."'>Disponibilidad</a></td></tr>";
}
echo "</table></div></div>";
</php>

Tambien desde dokuwiki por ejemplo si necesitamos podemos consultar
comandos por SSH para mostrar su salida en la documentación de nuestro
equipo, como un plus de un dato en tiempo real.
<php>
if (!function_exists("ssh2_connect")) die("function ssh2_connect doesn't
exist");
if(!($con = ssh2_connect("oracle", 22))){
echo "No puedo establecer una conexion SSH\n";
} else {
if (ssh2_auth_pubkey_file($con, 'root',
'/home/usuario/.ssh/id_rsa.pub',
'/home/usuario/.ssh/id_rsa', 'secret')) {
// echo "Public Key Authentication Successful\n";
} else {
die('Public Key Authentication Failed');
}
if (!($stream = ssh2_exec($con, "/home/usuario/dokuwiki_archlogs.pl" )))
{
echo "fail: unable to execute command\n";
} else {
// collect returning data from command
stream_set_blocking($stream, true);
$data = "";
while ($buf = fread($stream,4096)) {
$data .= $buf;
}
fclose($stream);
print $data;
}
}
</php>
!/usr/bin/perl
use strict;
use warnings;
sub get_sorted_files {
my $path = shift;
opendir my($dir), $path or die "no puedo abrir $path: $!";
my %hash = map {$_ => (stat($_))[9] || undef} # saltar listas vacias