+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}."/");
+ my $response = $ua->request($req);
+ if ($response->is_error) {
+ die("Can't retrieve line information: ", $ua->response->status_line);
+ }
+
+ print $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";
+}
+