From: michael Date: Sat, 23 Jun 2007 11:29:58 +0000 (+0000) Subject: update identity selection to work with firmware 7 X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/commitdiff_plain/1b60460160078c2ba512f958fdd74ca7f2c18fdf?ds=inline update identity selection to work with firmware 7 --- diff --git a/snom.pl b/snom.pl index 1682938..645a68e 100755 --- a/snom.pl +++ b/snom.pl @@ -1,5 +1,5 @@ #!/bin/sh -#$Id: snom.pl,v 1.44 2006-05-24 14:31:16 michael Exp $ +#$Id: snom.pl,v 1.45 2007-06-23 11:29:58 michael Exp $ PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@" @@ -374,18 +374,24 @@ sub UpdatePhoneInfo } my @lines=split("\n", $response->content()); my $num = 0; + my $activated = 0; + foreach (@lines) { chomp; # # # - if (m/^\