show only identity names, fixes resize problem

diff --git a/snom.pl b/snom.pl
index da06ee53ae26731c7549e5d9a7a948ed8d9acd7e..bed17ad614a71c776c0db8bd392616a9c24f3f78 100755 (executable)
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
 #!/bin/sh
-#$Id: snom.pl,v 1.39 2006-05-22 12:27:16 michael Exp $
+#$Id: snom.pl,v 1.40 2006-05-22 12:40:14 michael Exp $
 
 PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
 
@@ -364,7 +364,8 @@ sub UpdatePhoneInfo
                #<option value="1" selected>51@stargate.gernoth.loc</option>
                #<option value="2">89@asterix.ear-projekt.de</option>
                #<option value="3">41@grumpy.gernoth.loc</option>
-               if (m/^\<option value=\"(.+)\"( selected)?\>([^<]*)\<\/option\>$/) {
+               if (m/^\<option value=\"(.+)\"( selected)?\>([^<\@]*)\@([^<]*)\<\/option\>$/) {
+                       my $line = $3;
                        $g_identity->append_text("${3}");
                        $g_identity->set_active(${1}-1) if(defined($2));
                }