+sub UpdatePhoneInfo
+{
+ my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/");
+ my $response = $ua->request($req);
+
+ $g_identity->set_active(0);
+ while($g_identity->get_active() == 0) {
+ $g_identity->remove_text(0);
+ $g_identity->set_active(0);
+ }
+ my @lines=split("\n", $response->content());
+ my $num = 0;
+ my $activated = 0;
+
+ foreach (@lines) {
+ chomp;
+ #<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\>\s*$/) {
+ my $line = $3;
+ $g_identity->append_text("${3}");
+ if (defined($2)) {
+ $g_identity->set_active(${1}-1);
+ $activated=1;
+ }
+ $num++;
+ }
+ }
+ $g_identity->set_active(0) if (!$activated);
+ if ($num > 1) {
+ $g_identity->show;
+ } else {
+ $g_identity->hide;
+ }
+}
+
+sub SwitchIdentity
+{
+ my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/dummy.htm?SETTINGS=Set&active_line=".($g_identity->get_active+1));
+ $ua->request($req);
+}
+