Description of problem:
When calling Introspect on any object implementing the
org.freedesktop.ConsoleKit.Session interface the XML returned contains malformed
tags. This causes the XML parser in any DBus client app to crash & burn.

Version-Release number of selected component (if applicable):
ConsoleKit-0.2.1-2.fc7

How reproducible:
Always

Steps to Reproduce:
1. Login to the GDM session
2. Write a client app to talk to ConsoleKit service
3. Try to use Introspection data for any object with the
org.freedesktop.ConsoleKit.Session interface
  
Actual results:
Malformed XML

Expected results:
Welformed XML

Additional info:
The flaw is in the properties description

    <property name="idle-hint" type="b" access="readwrite"/>
    </property>
    <property name="is-local" type="b" access="readwrite"/>
    </property>
    <property name="active" type="b" access="readwrite"/>
    </property>
    <property name="x11-display-device" type="s" access="readwrite"/>
    </property>
    <property name="x11-display" type="s" access="readwrite"/>
    </property>
    <property name="display-device" type="s" access="readwrite"/>
    </property>
    <property name="remote-host-name" type="s" access="readwrite"/>
    </property>
    <property name="session-type" type="s" access="readwrite"/>
    </property>
    <property name="user" type="u" access="readwrite"/>
    </property>
    <property name="unix-user" type="u" access="readwrite"/>
    </property>


Notice, it is using  empty tags, but also including a closing tag - completely
bogus & unparsable.


Demo program using perl-Net-DBus:

cat > ck.pl <<EOF
#!/usr/bin/perl                                                                
                                                                               
       

use strict;
use warnings;
use Net::DBus;

my $bus = Net::DBus->system;
my $ck = $bus->get_service("org.freedesktop.ConsoleKit");
my $ses = $ck->get_object("/org/freedesktop/ConsoleKit/Session1",
"org.freedesktop.ConsoleKit.Session");
print "Is active? ", $ses->IsActive, "\n";
EOF

# perl ck.pl
mismatched tag at line 84, column 6, byte 2770 at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/XML/Parser.pm line 187