require "path.pl"; ### Main web report logic module require "dbsql.pl"; sub print_table_hd { my ($k) = 0; my($rpt_title) = qq ! Related Filings ! ; my(@headers) = ("Assignment File No", "Licensee Name", "Phone/Fax Number", "Address", "Attention"); my($table_hd)= qq ! !; #print "$rpt_title"; print $table_hd; print ""; for ($k = 0; $k<5; $k++ ) { if ($k <= 1) { print qq ! !; } if ($k == 2) { print qq ! !; } if ( $k == 3) { print qq ! !; } if ( $k == 4) { print qq ! !; } } print ""; } sub GetData { # get data for full report #By SShieh on 08/21/2007, retrieve description instead of attachment_name my($select) = qq ! select m.file_number as "Assignment File No.", a.address_name as "Name", l.licensee_phone_num + "/" + l.licensee_fax_num as "Fax", a.street1 + " " + a.street2 + " " + a.city + " " + a.state_code + " " + a.zipcode, l.licensee_attention as "Attention", l.licensee_e_mail as "Email", a.dba_name as "DbaName" from LICENSEE_HISTORY l, ADDRESS a , MAIN m where l.filing_key = $f_key and l.licensee_key = a.address_key and l.assign_filing_key = m.filing_key !; #my $basicAttachmentURL = $javaServletPath . 'ib.page.FetchAttachment?attachment_key=' ; my $basicAttachmentURL = $javaHostPath .'myibfs/download.do?attachment_key=' . $attachment_key; $linesPerTable = 50; my($r, $j); ws_sql($ws_db,"use $procDb"); @rs = callSql ($ws_db, $select); $returned = $#rs-1; #Number of elements in returned array if ($rs[0] == 0) { print "Unable to access $procDb table COMMENT"; } else { $returned = $#rs-1; #Number of elements in returned array } if ($returned <= 0){ print " No records found
"; return 0; } # comment out by SShieh on 05/06/2003 #&print_table_hd(); $j = 0; for ($r = 1; $r < $returned;) { if ($j-- == 0) { $j = $linesPerTable -1; &print_table_hd(); } print ""; for ($cl = 0; $cl++ < 6; ) { if ($cl < 6) { #print ""; $r++; } else { $r++; $r++; $cl++; } } print ""; } print "

$headers[$k]	$headers[$k]	$headers[$k]	$headers[$k]
$cl"; print "	"; print @rs[$r] ne "" ? @rs[$r] : ' '; print "

"; } ######### Start hear print qq %

INTERNATIONAL BUREAU FCC File Number = $f_number

%; &GetData(); 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" ; print qq !

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

---

FCC - Federal Communications Commission - IBFS Internet Reports - !;