
    <li>
      <Description
        em:id="sogo-integrator@inverse.ca"
        em:name="SOGo Integrator"/>
    </li>
{
    use esmith::db;
    use esmith::config;
    use esmith::ConfigDB;

    our $mozus_db = esmith::ConfigDB->open('Mozus') or die "Couldn't open Mozus DB\n";
    $OUT = "";

    my %list_addons = $mozus_db->get('Thunderbird')->props;
    my $addons = "";
    my $value = "";
	my @addon;
	push(@addon,"sogo-integrator\@inverse.ca");
    while (($addons,$value) = each(%list_addons)) {
       if ( ($addons eq "type") ) {next;}
		my @parameter = split(";",$value);
		if ( $parameter[0] eq 'enabled') {
			my ($addon_name , $addon_id) = ($parameter[2],$parameter[3]);
#			$addon_id =~ s/\@/\\\@/g;
			$addon_name =~ s/\@/\\\@/g;
			if (  grep( /^$addon_id$/, @addon )){
				next;
			}else{
				$OUT .=  "    <li>\n"
						."      <Description\n"
						."        em:id=\"$addon_id\"\n"
						."        em:name=\"$addon_name\"/>\n"
						."    </li>\n";	
				push(@addon, $addon_id);
			}
		}
    }
}