30 |
my $html = join('', qq{ |
my $html = join('', qq{ |
31 |
<h1>Select GPS NMEA dump</h1> |
<h1>Select GPS NMEA dump</h1> |
32 |
}, |
}, |
33 |
$q->start_form, |
$q->start_form( -id => 'trace_frm' ), |
34 |
$q->popup_menu( |
$q->popup_menu( |
35 |
-name => 'trace', |
-name => 'trace', |
36 |
-values => [ |
-values => [ |
41 |
(stat("$trace_path/$a"))[10] <=> (stat("$trace_path/$b"))[10] |
(stat("$trace_path/$a"))[10] <=> (stat("$trace_path/$b"))[10] |
42 |
} @traces |
} @traces |
43 |
], |
], |
44 |
|
-onChange => 'trace_frm.submit()', |
45 |
), |
), |
46 |
$q->submit( -value => 'Show trace' ), |
$q->submit( -value => 'Show trace' ), |
47 |
$q->end_form, |
$q->end_form, |