FS/FS/Report/FCC_477.pm

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