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) = ("Item Type", "Date Submitted", "Description ", "Document Link (if available)"); my($table_hd)= qq ! !; #print "$rpt_title"; print $table_hd; print ""; for ($k = 0; $k<4; $k++ ) { if ($k <= 1) { print qq ! !; } if ($k == 2) { print qq ! !; } if ($k == 3 || $k == 4) { print qq ! !; } } print ""; } sub GetData { # get data for full report my($select) = qq ! SELECT b.description, convert(char(10),a.date_submitted,101), c.description, c.attachment_name, c.attachment_key FROM MILESTONE_ATTACHMENTS a, MILESTONE_ATTACHMENT_CODE b, ATTACHMENT c WHERE a.filing_key = $f_key AND a.milestone_attachment_code = b.milestone_attachment_code AND a.attachment_key = c.attachment_key AND a.date_submitted <> NULL AND c.processed_date is not null AND not exists ( select 1 from ib_licenses..ATTACHMENT b where c.attachment_key <> b.attachment_key and c.attachment_key = b.native_attachment_key ) !; #my $basicAttachmentURL = $javaServletPath . 'ib.page.FetchAttachment?attachment_key=' ; my $basicAttachmentURL = $javaHostPath .'myibfs/download.do?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++ < 5; ) { if ($cl < 4) { print ""; $r++; } else { print ""; $r++; $r++; $cl++; } } print ""; } print "

$headers[$k]	$headers[$k]	$headers[$k]
"; print @rs[$r] ne "" ? @rs[$r] : ' '; print "	"; #print " @rs[$r] @rs[$r+1]"; my $attachmentKey = @rs[$r+1]; my $attachmentURL = $basicAttachmentURL . $attachmentKey; #print $attachmentURL; print "@rs[$r]"; print "

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

INTERNATIONAL BUREAU FCC

%; &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 - !;