+sub UpdatePhoneInfo
+{
+ print "TODO: Update PhoneInfo from <".${$Config{$sections[$g_host->get_active]}}{host}."> here!\n";
+ my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/");
+ $ua->request($req);
+ if (! $ua->success) {
+ die("Can't retrieve line information: ", $ua->response->status_line);
+ }
+
+ print $req->response->content()."\n";
+ $g_identity->append_text("\@line1");
+ $g_identity->set_active(0);
+}
+
+sub SwitchIdentity
+{
+ print "TODO: Switch Identity on <".${$Config{$sections[$g_host->get_active]}}{host}."> to ".$g_identity->get_active."!\n";
+}
+