### Intialize static lists for $this_rep = "swr040b.hts"; @headers = ( 130, "File Number", 125, "Applicant Name", 50, "Callsign", 55, "Date Order Released", 55, "Bond Received Date"); $site = "Y"; # the state is a SITE state #require "webrep_status.pl"; ### Main web report logic module require 'ctime.pl'; require "dbsql.pl"; require "path.pl"; ### Report specific subroutines $start = &ctime(time); &doFromWhere(); &DataSelect(); #ws_sql($ws_db,"use ib_licenses"); ws_sql($ws_db,"use $procDb"); @rs = callSql ($ws_db, $select); if ($rs[0] == 0) { print "Unable to access $procDb info$end"; } else { $returned = $#rs-1; #Number of elements in returned array &formtop; if ( $returned < 1 ) { print "No records found
"; } else { $returned = $#rs-2; #Number of elements in returned array #&formtop; print ""; &tabletop; &doColHeaders; print ""; &doRows; # process each row result print ""; &doTrailer; # finish page } } sub formtop { if ( $by) { $uby = "BY $by"; $uby =~ tr/a-z/A-Z/; } if ($subsystem) { $subsystem =~ tr/a-z/A-Z/; } print qq % $javaScript

INTERNATIONAL BUREAU FCC %; &setTitle(); print qq ! - $start !; if ($showCriteria ne "") { print qq ! !; } print qq ! $showCriteria

!; } sub doTrailer { my( $telecom ) = $hostPathWithSlash . $curDir . "Telecom.htm" ; my( $earthreport ) = $hostPathWithSlash . $curDir . "earthreport.htm" ; my( $spacereport ) = $hostPathWithSlash . $curDir . "spacereport.htm" ; my( $radioreport ) = $hostPathWithSlash . $curDir . "radioreport.htm" ; my( $oth_reps ) = $hostPathWithSlash . $curDir . "oth_reps.htm" ; my( $ibfsreport ) = $hostPathWithSlash . $curDir . "ibfsreport.htm" ; $end = &ctime(time); print qq ! <\!--

International Telecommunications | Satellite Earth Stations | Satellite Space Stations | International HF Broadcast Stations and&nb sp;Public Fixed Radio Stations | General Reports and Query Tool | International Bureau Homepage | IBFS Reports Homepage

-->

---

FCC - Federal Communications Commission - IBFS Internet Reports - $end !; } sub tabletop { if (defined @headers) { print qq ! !; } } sub doColHeaders { if (defined @headers) { my ($k); for ($k = 0; $k < $#headers; ) { print qq ! !; } } } sub DataSelect { # get data for full report # Added distinct for car834 $select = qq ! SELECT distinct V_SITE_ANTENNA_FREQ.file_number, ADDRESS.address_name, V_SITE_ANTENNA_FREQ.callsign, ISNULL(convert(char(10),PUB_NOTICE_REPORT.date_published,101),"None"), MILESTONE_ATTACHMENTS.date_submitted $fromWhere !; #!print "select = $select"; } sub doFromWhere { #setup FROM and WHERE clauses $fromWhere = qq ! FROM V_SITE_ANTENNA_FREQ, ADDRESS, MILESTONE_ATTACHMENTS, PUB_NOTICE_REPORT WHERE ( V_SITE_ANTENNA_FREQ.address_key *= ADDRESS.address_key ) AND MILESTONE_ATTACHMENTS.milestone_attachment_code = "BOND" AND MILESTONE_ATTACHMENTS.filing_key = V_SITE_ANTENNA_FREQ.filing_key AND convert(char(10),PUB_NOTICE_REPORT.date_published,101) =* convert(char(10),V_SITE_ANTENNA_FREQ.act_pub_notice_date,101) AND ( datediff(day,MILESTONE_ATTACHMENTS.date_submitted, getdate())<=21) order by MILESTONE_ATTACHMENTS.date_submitted desc !; } sub setTitle { #print qq ! $subsystem $filing_state LIST $uby
REPORT WR041!; print qq ! $subsystem $filing_state LIST BY FILE NUMBER
REPORT WR042!; } sub setStuff { print qq !
FCC Satellite Space Stations Satellite Earth Stations 325-C Submarine Cable Landing Recognized Operating Agency ISPC International Telecommunications International Special Projects Foreign Carrier Affiliation Notification Data Network Code International High Frequency International Public Fixed $fsList Application List
!; } sub doRows { $linesPerTable = 50; my ($total) = $ws_form{COUNT}; if ($total == 0) { $total = $returned; } # if not specified use all $j = $linesPerTable; for ($i = 1; $i < $returned && $total-- > 0; ) { if ($j-- == 0) { $j = $linesPerTable -1; print "

$headers[$k++]

"; &tabletop(); &doColHeaders; print ""; } $file_num = $rs[$i]; $as_subsystem_code = substr ($file_num, 0, 3); #get subsys code substr ($file_num, 3, 0) = "-"; substr ($file_num, 7, 0) = "-"; substr ($file_num, 16, 0) = "-"; print ""; print qq !$file_num!; for ($k = 0; $k++ < 4; ) { print ""; if ($k < 5) { print $rs[$i++] ne "" ? $rs[$i-1] : ' '; } } #$i++; # WR3191 for the new retrieved field, but not displayed print ""; } }