1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
package FS::Report::FCC_477;
use strict;
use vars qw( @ISA @upload @download @technology @part2aoption @part2boption );
use FS::Report;
@ISA = qw( FS::Report );
=head1 NAME
FS::Report::FCC_477 - Routines for FCC Form 477 reports
=head1 SYNOPSIS
=head1 BUGS
Documentation.
=head1 SEE ALSO
=cut
@upload = qw(
<200kpbs
200-768kpbs
768kbps-1.5mbps
1.5-3mpbs
3-6mbps
6-10mbps
10-25mbps
25-100mbps
>100bmps
);
@download = qw(
200-768kpbs
768kbps-1.5mbps
1.5-3mpbs
3-6mbps
6-10mbps
10-25mbps
25-100mbps
>100bmps
);
@technology = (
'Asymetric xDSL',
'Symetric xDSL',
'Other Wireline',
'Cable Modem',
'Optical Carrier',
'Satellite',
'Terrestrial Fixed Wireless',
'Terrestrial Mobile Wireless',
'Electric Power Line',
'Other Technology',
);
@part2aoption = (
'LD carrier',
'owned loops',
'unswitched UNE loops',
'UNE-P',
'UNE-P replacement',
'FTTP',
'coax',
'wireless',
);
@part2boption = (
'nomadic',
'copper',
'FTTP',
'coax',
'wireless',
'other broadband',
);
sub parse_technology_option {
my $cgi = shift;
my @result = ();
my $i = 0;
for (my $i = 0; $i < scalar(@technology); $i++) {
my $value = $cgi->param("part1_technology_option_$i"); #lame
push @result, $value =~ /^\d+$/ ? $value : 0;
}
return (@result);
}
1;
|
