#!/usr/bin/perl
# test-list.cgi
# Display list for Tarantella Services.

 require './tarantella-lib.pl';
&foreign_require("proc", "proc-lib.pl");

&header($text{'index_ttastatus'}, "", "ttastatus");
 print "<hr><p>\n"; 
 print "<table width=100% border>\n";
 print "<tr $tb> <td><b>$text{'titidx_ttastatus'}</b></td> </tr>\n";
 print "<tr $cb> <td><table width=100%>\n";
 print "<hr>\n";
 print "<tr><td><pre>\n";

#        $str="tta status";
#        $str=$config{'tta_status'};


   print "<pre>\n";
   $ens_obj=".../_ens/o=gestion.rima.telefonica.es/ou=usuarios/ou=administradores/cn=jesuspe"; 
   $op="attributes";
   $type_cmd="attributes";
   &run_tta_cmd($type_cmd,$ens_obj);
   foreach $u (&load_ttaobj()) {
            print $u->{'property'}."  ".$u->{'value'}."\n";
   }

 print "$lnum\n";

 print "<tr>\n";
 print "<tr>\n";
 print "<tr>\n";
 print "</table></table><p>\n";
 &footer($config{'back_return'},$text{'index'});
 do "footer.pl";
exit;
  # start by reading Webtops File List
foreach $u (&list_webtops()) {
                      print $u->{'alias'}."  ";
                      print $u->{'name'}."\n";
                      print $u->{'obj'}."\n";
                }
foreach $lk (&list_links()) {
                      print $lk->{'alias'}."  ";
                      print $lk->{'name'}."\n";
                      print $lk->{'obj'}."\n";
                }
foreach $ou (&list_ous()) {
#                      if ( $ou->{'alias'} eq "usuarios" ) 
#                      {
                          print "-".$ou->{'alias'}."- ";
                          print $ou->{'name'}."\n";
                          print $ou->{'obj'}."\n";
                          print $ou->{'ens'}."\n";
		      }
#                }
 print "$lnum\n";

 print "<tr>\n";
 print "<tr>\n";
 print "<tr>\n";
 print "</table></table><p>\n";
 &footer($config{'back_return'},$text{'index'});
 do "footer.pl";
 exit;



