FCC INTERNATIONAL BUREAU

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 Filed", "Commenter Name ", "Description", "Document Link (if available)"); 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 b.submission_type_description, convert(char(10),a.date_filed,101), a.commenter_name, c.description,c.attachment_name, c.attachment_key, c.confidential_treatment_sw FROM COMMENT a, COMMENT_TYPE_CODE b, ATTACHMENT c, COMMENT_ATTACHMENT_XREF x WHERE a.filing_key = $f_key AND a.submission_type_id = b.submission_type_id AND a.comment_key = x.comment_key AND x.attachment_key = c.attachment_key AND a.confidential_treatment_sw in (NULL, "N") 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 ) UNION SELECT ct.submission_type_description, convert(char(10),cm.date_filed,101), cm.commenter_name, NULL, NULL, NULL, NULL FROM COMMENT cm, COMMENT_TYPE_CODE ct WHERE filing_key = $f_key AND cm.submission_type_id = ct.submission_type_id AND NOT EXISTS (SELECT 1 FROM COMMENT_ATTACHMENT_XREF cmx WHERE cmx.comment_key = cm.comment_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 < 5) { print ""; $r++; } else { print ""; $r++; $r++; $r++; $cl++; } } print ""; } print "

$headers[$k]	$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 $confidential_treatment_sw = @rs[$r+2]; #print "confiden=$confidential_treatment_sw"; my $attachmentURL = $basicAttachmentURL . $attachmentKey; #print $attachmentURL; if ($confidential_treatment_sw eq "Y") { print "@rs[$r]"; } else { print "@rs[$r]"; } print "

"; } ######### Start hear print qq % FCC INTERNATIONAL BUREAU

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 !

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