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.
|
