#!/usr/local/bin/perl 
use strict;

# Author:  Dipul Patel

#         Nextel Philadelphia

#  This script takes the data for 3 markets, and compiles it on one file. 
###########################################33


my $time2 = scalar localtime();
my @time3 = split(/ /, $time2);
my $one=$time3[1];
my $two=$time3[3];
my $three=$time3[5];
my $fileext = "$one" ."_". "$two" ."_". "$three";


open(WR, ">/usr/local/rf-north/WWW/WeeklyReports/WeeklyReports.$fileext"); 

my @files = ("/usr/local/rf-north/WWW/PHLreports/cellsight/Weekly_Reports/de-nj-md\n",
	     "/usr/local/rf-north/WWW/PHLreports/cellsight/Weekly_Reports/pa_only\n", 
	     "/usr/local/rf-north/WWW/PHLreports/cellsight/Weekly_Reports/phila_market\n"); 
         my $file;
         my (@data, @lines);
	
	 
        for $file (@files){
             open (FH, $file) || die "Unable to open file $file\n";
             @data = <FH>;
             close (FH);
             push  (@indidate, $data[1]);
             push  (@lines, $data[$#data]);
         }
        my $i=0;
 

        my @string =("DE-NJ-MD sites       ",
        	  "PA Sites Only        ",
        	  "Philadelphia Market  ");
         
        printf(WR "                      RF Block | DCCH Block | Disp Queue | RF Drop | Erl/BR |\n");
         
        	while($i<3){
    		
        		my $line=$string[$i].@lines[$i].$indidate[$i];
         		printf(WR "$line");
         		$i++;	
		}	
	
	close (WR);
	undef @data;