From 78df994e3fc81e02546e7f5be9304a5a0ed8b2cb Mon Sep 17 00:00:00 2001 From: Christian Weiske Date: Fri, 21 May 2010 08:23:09 +0200 Subject: [PATCH] fix config file parsing and use accounts.xml, switch to current file format. also fix output of nicknames --- Psist.pm | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/Psist.pm b/Psist.pm index e19ea86..8ef7239 100644 --- a/Psist.pm +++ b/Psist.pm @@ -75,18 +75,23 @@ sub load_config my $row; my $i; my $nick; + my $jid; print "loading contacts...\n" unless $self->{silent}; - open(CONFIGXML, $self->{profile} . "/config.xml"); + open(CONFIGXML, $self->{profile} . "/accounts.xml"); while($row = ) { - if($row =~ //) { + if($row =~ /(.*?)<\/name>/) { + $nick = $1; + } + if($row =~ /(.*?)<\/jid>/) { if(length($1) == 0) { - $nick = $2; + next; } - else { - $nick = $1; + if (length($nick) == 0) { + $nick = $jid; } - $self->{jids}{$2} = $nick; + $jid = $1; + $self->{jids}{$jid} = $nick; $self->{nicks}{$nick}{lines} = 0; $self->{nicks}{$nick}{linest}[0] = 0; $self->{nicks}{$nick}{linest}[1] = 0; @@ -250,7 +255,7 @@ sub gen_html my ($sec,$min,$hour,$mday,$mon,$year) = (localtime($self->{nicks}{$nick}{last})); $year += 1900; $mon++; - print HTMLFIL '',$i,'{nickname}',$self->{nicks}{$nick}{lines},''; + print HTMLFIL '',$i,'', $nick, '',$self->{nicks}{$nick}{lines},''; print HTMLFIL '',$self->{nicks}{$nick}{linest}[0],''; print HTMLFIL '',$self->{nicks}{$nick}{linest}[1],''; print HTMLFIL '',$self->{nicks}{$nick}{linest}[2],''; -- 2.30.2