#!/usr/bin/perl
# ldapcache_schema.cgi
# LDAP Services ldapschema 
# STTA Rev. 1.3 Copyright (c) 2001-2002 Jesús Pérez Lorenzo  --- license GNU GPL 

 require './stta-lib.pl';
do "ldap-lib.pl";
&ReadParse();

&headerstta($text{'index_ldapcacheschema'}, "", "ldapcacheschema",undef,1,1,$text{headpage_rigth} );
        $ldapcache_server=$in{server} || "1";
        &connect_cache();

 print "<hr><p>\n"; 
 print "<table width=100% border>\n";
 print "<tr $tb> <td><b>$text{'titidx_ldapcacheschema'}</b></td> </tr>\n";
if ( "$ldapcache_server" eq "1" ) {
         $line_tit=$config{ldapcache_servertitle};
         $line_conn=$config{LDAP_type}.":".$config{ldapcache_server}.":".$config {ldapcache_port};
  } elsif ( "$ldapcache_server" eq "2" ) {
         $line_tit=$config{ldapcache2_servertitle};
         $line_conn=$config{LDAP_type}.":".$config{ldapcache2_server}.":".$config {ldapcache2_port};
}
        $schema = $ldapcacheObj->schema();
       print "<tr $cb><td valign=top><b><big>$line_tit ----  </big></b></i>$line_conn</i></td></tr>";
       print "<tr $cb> <td><table width=100% border>\n";
       print "<tr><td valign=top>CLASS</td><td valign=top> VALUE </td></tr>";
       &schema_dump("classes");
 print "<tr>\n";
 print "<tr>\n";
 print "</table></table><p>\n";
 &footer($text{'back_return'},$text{'index'});
 do "footer.pl";
 exit;



