[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Examples.pod,1.4,1.5

[Chris R. <chr...@us...>]

Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv2313/lib/Net/LDAP

Modified Files:
	Examples.pod 
Log Message:
Fixed schema examples

Index: Examples.pod
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Examples.pod,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Examples.pod	12 Sep 2000 09:17:09 -0000	1.4
+++ Examples.pod	6 May 2003 12:16:54 -0000	1.5
@@ -469,7 +469,7 @@
   $mesg = $self->search(
     base   => $dn,
     scope  => 'base',
-    filter => '(objectClass=*)',
+    filter => '(objectClass=subschema)',
   );
 
 Once the schema object has been initialized, schema methods 
@@ -484,56 +484,34 @@
   # Get the attributes
   #
 
-  @attributes = $schema->attributes();
+  @attributes = $schema->all_attributes();
   #
   # Display the attributes
   #
 
   foreach ( @attributes)
   {
-        print "attributeType\n";
+        print "attributeType $_\n";
 
         #
-        # Get and display the oid number of the objectclass.
+        # Get a reference to the attribute details
         #
-        $oid = $schema->name2oid( "$_" );
+        $ar = $schema->attribute( $_ );
 
         #
-        # Get the various items associated with
-        # this attribute.
-        #
-        @attribute_items = $schema->items( "$oid" );
-        #
-        # Read returned item names and display their associated data.
+        # Print all the details
         #
-        foreach $value ( @attribute_items )
+        foreach $key ( keys $ar )
         {
-           # We know we are dealing with an attribute, ignore type.
-           next if ( $value eq 'type');  # Type  holds oc or at 
-           #
-           # Read the data for this item of this oid.
-           #
-           @item = $schema->item( $oid, $value );
-           #
-           # Some item names have no data, the name itself is data.
-           # This type of item has 1 as data.
-           #
-           if ( defined(@item) && $item[0] == 1 )
-           {
-           print "\t$value\n";
-           next;
-           }
-           if ( defined(@item) && $#item >= 0 )
-           {
-           print "\t$value:  @item\n";
-           }
-
+           print join("\n\t\t", "\t$key:",
+                      ref($ar->{$key}) ? @{$ar->{$key}} : $ar->{$key}),
+                 "\n";
         }
   }
 
 The process is the basically the same for getting objectClass 
-information.  Where schema->attributes() is used, substitute 
-schema->objectclasses().  From that point on the process is
+information.  Where schema->all_attributes() is used, substitute 
+schema->all_objectclasses().  From that point on the process is
 the same for both objectClasses and attributes. 
 
 =head1 BUGS