popup results from the CPAN

popup

Net-GPSD

view release on metacpan or search on metacpan

doc/display_device.cgi view on Meta::CPAN

}
my $lat=$data->[0]->{'lat'};
my $lon=$data->[0]->{'lon'};
my $dtg=$data->[0]->{'dtg'};
my $speed=$data->[0]->{'speed'};
my $heading=$data->[0]->{'heading'};
my $device=$data->[0]->{'device'};
my $form=join "", 
         $query->start_form(-action=>$query->script_name()),
         "Device: ",
         $query->popup_menu(-name=>'device',
	                    -values=>[map {$_->[0]} @$devicelist]),
         $query->submit(-value=>"Go!"),
         $query->end_form();

unless (defined($data)) {
print $query->header(q{text/html}),
      $query->p("Error: database returned bad data.");
} else {
print $query->header(q{text/html}),
q{<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"

( run in 0.620 second using v1.01-cache-2.11-cpan-364913b4093 )