print "loading contacts...\n" unless $self->{silent};
open(CONFIGXML, $self->{profile} . "/accounts.xml");
while($row = <CONFIGXML>) {
- if($row =~ /<name type="QString">(.*?)<\/name>/) {
+ if($row =~ /<name type="QString"[^>]*>(.*?)<\/name>/) {
$nick = $1;
}
- if($row =~ /<jid type="QString">(.*?)<\/jid>/) {
+ if($row =~ /<jid type="QString"[^>]*>(.*?)<\/jid>/) {
if(length($1) == 0) {
next;
}