#!/usr/local/bin/perl

@metafiles =  glob("data/showmetadata*");

open (META2,  ">_meta2.txt");
print META2 "entityid,app_id,sensor_mode,recstation,daynight,path,row,wrs_type,acqdate,scenestart,scenestop,sen_anomal,acq_qlty,qltyb1,qltyb2,qltyb3,qltyb4,qltyb5,qltyb6,qltyb7,scenecc,cloud_ul,cloud_ur,cloud_ll,cloud_lr,sunelev,sunazi,sclat,sclong,ullat,ullong,urlat,urlong,lllat,lllong,lrlat,lrlong,browseavai,scene_src,cct_avail,dct_avail,film_avail,filename\n";
close META2;

foreach $file (@metafiles) {
	$file =~ s/\n//;
	open (META1, "$file");
	@meta = <META1>;
	close META1;
                      
	open (META2, ">>_meta2.txt");

	foreach  (@meta) {
		$_=~s/\<tr\>\<td style\=\"//;
		$_=~s/font-size\:\.85em\;\"\>//;
		$_=~s/\<a href\=\"\#\" onClick\=\"loadmeta\(\'//;
		$_=~s/\'\,\'landsat_dictionary\.html\#\'\)\;\"\>//;
		$_=~s/\<\/td\>\<\/tr\>//;
		$_=~s/\<\/a\>\<\/td\>\<td style\=\"font-size\:\.85em\;\"\>//;
		$_=~s/Sensor Mode//;
		$_=~s/sensor_mode//;
		$_=~s/wrs_type//;
		$_=~s/WRS Type//;
		$_=~s/quality_band_1//;
		$_=~s/Quality Band 2//;
		$_=~s/Quality Band 3//;
		$_=~s/Quality Band 4//;
		$_=~s/Quality Band 5//;
		$_=~s/Quality Band 6//;
		$_=~s/Quality Band 7//;
		$_=~s/Quality Band 1//;
		$_=~s/scene_source//;
		$_=~s/Scene Source//;
		$_=~s/sensor_anomalies//;
		$_=~s/Sensor Anomalies//;
		$_=~s/acquisition_quality//;
		$_=~s/Acquisition Quality//;
		$_=~s/cct_source_available//;
		$_=~s/CCT Source Available//;
		$_=~s/dct_source_available//;
		$_=~s/DCT Source Available//;
		$_=~s/film_source_available//;
		$_=~s/Film Source Available//;
		$_=~s/station_identifier//;
		$_=~s/day_night//;
		$_=~s/wrs_path//;
		$_=~s/wrs_row//;
		$_=~s/spacecraft_identifier//;
		$_=~s/Spacecraft Identifier//;
		$_=~s/date_acquired//;
		$_=~s/start_time//;
		$_=~s/stop_time//;
		$_=~s/image_quality_VCID_1//;
		$_=~s/image_quality_VCID_1//;
		$_=~s/gap_phase_source//;
		$_=~s/gap_phase_statistic//;
		$_=~s/cloud_cover//;
		$_=~s/cloud_cover_quadrant_upper_left//;
		$_=~s/cloud_cover_quadrant_upper_right//;
		$_=~s/cloud_cover_quadrant_lower_left//;
		$_=~s/cloud_cover_quadrant_lower_right//;
		$_=~s/sun_elevation//;
		$_=~s/sun_azimuth//;
		$_=~s/scene_center_latitude//;
		$_=~s/scene_center_longitude//;
		$_=~s/corner_upper_left_latitude//;
		$_=~s/corner_upper_left_longitude//;
		$_=~s/corner_upper_right_latitude//;
		$_=~s/corner_upper_right_longitude//;
		$_=~s/corner_lower_left_latitude//;
		$_=~s/corner_lower_left_longitude//;
		$_=~s/corner_lower_right_latitude//;
		$_=~s/corner_lower_right_longitude//;
		$_=~s/full_aperture_calibration//;
		$_=~s/gain_band_1//;
		$_=~s/gain_change_band_1//;
		$_=~s/browse_exists//;
		$_=~s/data_category//;
		$_=~s/Station Identifier//;
		$_=~s/Day Night//;
		$_=~s/WRS Path//;
		$_=~s/WRS Row//;
		$_=~s/Date Acquired//;
		$_=~s/Start Time//;
		$_=~s/Stop Time//;
		$_=~s/Image Quality VCID 1//;
		$_=~s/Image Quality VCID 2//;
		$_=~s/Gap Phase Source//;
		$_=~s/Gap Phase Statistic//;
		$_=~s/Cloud Cover//;
		$_=~s/Sun Elevation//;
		$_=~s/Sun Azimuth//;
		$_=~s/Scene Center Latitude//;
		$_=~s/Scene Center Longitude//;
		$_=~s/Corner Upper Left Latitude//;
		$_=~s/Corner Upper Left Longitude//;
		$_=~s/Corner Upper Right Latitude//;
		$_=~s/Corner Upper Right Longitude//;
		$_=~s/Corner Lower Left Latitude//;
		$_=~s/Corner Lower Left Longitude//;
		$_=~s/Corner Lower Right Latitude//;
		$_=~s/Corner Lower Right Longitude//;
		$_=~s/Full Aperture Calibration//;
		$_=~s/Gain Band 1//;
		$_=~s/Gain Band 2//;
		$_=~s/Gain Band 3//;
		$_=~s/Gain Band 4//;
		$_=~s/Gain Band 5//;
		$_=~s/Gain Band 6 VCID 1//;
		$_=~s/Gain Band 6 VCID 2//;
		$_=~s/Gain Band 7//;
		$_=~s/Gain Band 8//;
		$_=~s/Gain Change Band 1//;
		$_=~s/Gain Change Band 2//;
		$_=~s/Gain Change Band 3//;
		$_=~s/Gain Change Band 4//;
		$_=~s/Gain Change Band 5//;
		$_=~s/Gain Change Band 6 VCID 1//;
		$_=~s/Gain Change Band 6 VCID 2//;
		$_=~s/Gain Change Band 7//;
		$_=~s/Gain Change Band 8//;
		$_=~s/Browse Exists//;
		$_=~s/Data Category//;
		
		$_=~s/ \([0-9]{2}\&deg\;[0-9]{2}\'[0-9]{2}\&quot\;N\)//;
		$_=~s/ \([0-9]{2}\&deg\;[0-9]{2}\'[0-9]{2}\&quot\;W\)//;
		$_=~s/ \([0-9]{2}\&deg\;[0-9]{2}\'[0-9]{2}\&quot\;S\)//;
		
		$_=~s/_quadrant_lower_right Quadrant Lower Right//;
		$_=~s/_quadrant_upper_left Quadrant Upper Left//;
		$_=~s/_quadrant_upper_right Quadrant Upper Right//;
		$_=~s/_quadrant_lower_left Quadrant Lower Left//;
		
		$_=~s/%//;
		$_ =~ s/\n//;
	}
                      
	
	
#	$file =~ s/\.meta//;

	$file =~ s/showmetadata\.cgi\@scene_id\=//;
	print META2 ("$file");
	for ($x=80; $x<=121; $x++) {
		print META2  (",$meta[$x]");
	}
	print META2 ("\n");
	
	close META2;
}