+ 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);
+ }
+
+ my @lines=split("\n", $response->content());
+ 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\>$/) {
+ if(defined($2)) {
+ print "*".$1." ".$3."\n";
+ } else {
+ print $1." ".$3."\n";
+ }
+ }
+ }