Update of /cvsroot/perl-ldap/ldap/contrib
In directory usw-pr-cvs1:/tmp/cvs-serv14316/ldap/contrib
Modified Files:
tklkup
Log Message:
Added the calling of the DSML end_dsml function when schema XML information
is writen to a file.
Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- tklkup 15 Jun 2002 02:47:34 -0000 1.27
+++ tklkup 19 Jul 2002 02:44:19 -0000 1.28
@@ -22,6 +22,11 @@
#
# Revisions:
# $Log$
+# Revision 1.28 2002/07/19 02:44:19 charden
+#
+# Added the calling of the DSML end_dsml function when schema XML information
+# is writen to a file.
+#
# Revision 1.27 2002/06/15 02:47:34 charden
#
# Added code to close windows after ldap actions are taken. This is to force
@@ -1684,6 +1689,7 @@
open(FXML, ">$Global{'fdata'}");
$dsml = Net::LDAP::DSML->new( output => *FXML, pretty_print => 1 );
$dsml->write_schema($schemaHash{'schema'});
+ $dsml->end_dsml;
close(FXML);
}
else
|
