[perl-ldap-checkins] CVS: ldap/contrib tklkup,1.25,1.26

[Clif H. <ch...@us...>]

Update of /cvsroot/perl-ldap/ldap/contrib
In directory usw-pr-cvs1:/tmp/cvs-serv21271/ldap/contrib

Modified Files:
	tklkup 
Log Message:

Made several code corrections to the code that stores xml formatted 
schema information in a file.  This is due to the new DSML.pm module.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- tklkup	25 May 2002 05:05:55 -0000	1.25
+++ tklkup	28 May 2002 01:54:13 -0000	1.26
@@ -22,6 +22,11 @@
 #
 # Revisions:
 # $Log$
+# Revision 1.26  2002/05/28 01:54:13  charden
+#
+# Made several code corrections to the code that stores xml formatted
+# schema information in a file.  This is due to the new DSML.pm module.
+#
 # Revision 1.25  2002/05/25 05:05:55  charden
 #
 # Change schema code to comprehend the new Schema.pm file.
@@ -190,6 +195,7 @@
 #
 
 use Carp;
+use Data::Dumper;
 use MIME::Base64;
 use Net::LDAP qw(:all);
 use Net::LDAP::Filter;
@@ -1668,19 +1674,19 @@
   #
   # write XML text to file instead of text box
   #
-  $dsml = Net::LDAP::DSML->new();
-  open(FXML, ">$Global{'fdata'}");  
-  $dsml->open(*FXML);
-  $dsml->write($schemaHash{'schema'});
-  $dsml->finish();
-  close(FXML);
+#    @xml_data = ();
+#    $dsml = Net::LDAP::DSML->new( output => \@xml_data, pretty_print => 1 );
+    open(FXML, ">$Global{'fdata'}");  
+    $dsml = Net::LDAP::DSML->new( output => *FXML, pretty_print => 1 );
+    $dsml->write_schema($schemaHash{'schema'});
+    close(FXML);
   }
   else
   {
-  #
-  # write straight text to file instead of text box
-  #
-  $schemaHash{'schema'}->dump( $Global{'fdata'} );
+    #
+    # write straight text to file instead of text box
+    #
+    $schemaHash{'schema'}->dump( $Global{'fdata'} );
   }
  
   $schema_list->insert("end",
@@ -2089,8 +2095,7 @@
                # Get the various other items associated with
                # this objectclass.
                #
-               my $ahash = $schema->objectclass( "$var" );
-
+               my $ahash = $schema->objectclass( "$oid" );
                my @hkeys = sort(keys(%$ahash));
                #
                # Get and display the objectclass name.