sub publish_html {

	my $q = new CGI; 
	&get_DTG;
	$header_name = "header.dat";
	@header = ('BEGIN','XFER',$tar_file,$DESTINATIONS,'R','U','001','040','NONE',$DTG,'NONE','MPU','END');

	# Ignore bad extensions if good extensions is specified.
	undef @bad_extensions if @good_extensions;

	print header;
	print start_html(-title=>$title_tag,-bgcolor=>$bg_color,-text=>$text_color);
	print font({-color=>'lime'},h2({-align=>CENTER},'MPU UPLOAD PROGRESS')),br,br;

	# Create DPS Header for routing
	if(open(OUTHEADER, "> $TEMP_DIR/$header_name") || die("Cannot Open File $header_file for reading: $!")) {
		print font({-color=>'white',-size=>$content_font_size},'Creating HEADER... '),br;
	   foreach $line( @header ){
	   	print OUTHEADER $line."\n";
	   	print font({-color=>'white',-size=>$content_font_size},'Writing... '.$line),br;
	   	}
	   close (OUTHEADER);
	   print font({-color=>'white',-size=>$content_font_size},'Header file saved to... '.$TEMP_DIR."/".$header_name),br,br;
	   }

	############################################
	#PERFORM FILE CHECKING AND UPLOAD IMAGES
 	foreach $file ($q->param) {
		if ($file ne "" & $file =~ /image/){
 			$path = param($file);
 			
 			# PARSE AREA HTML NAME FOR IMAGE NAME PREPEND
 			# areafile is a param that contains the area html page name
 			# this is used to prepend the areaname to the image file to
 			# ensure all images are unique per area.
 			$htmlfile = param('areafile');
 			if ($htmlfile =~ m!^(.*)\.(.*)$!) {
 				$html_lead = $1;
 				$html_ext = $2;
 				}

			# PARSE OUT PATH FOR BUILDING PUBLISHED IMAGE NAMES
			if ($path =~ m!^(.*)\\(.*)$!) {
				$leadpath = $1;
				$filename = $2;
				
				if ($filename =~ m!^(.*)\.(.*)$!) {
					$name = $1;
					$file_ext = ".".$2;
					}
				}

			elsif ($filename =~ m!^(.*)/(.*)$!) {
					$name = $1;
					$file_ext = ".".$2;
					}

			else {
				$leadpath = ".";
				$filename = $path;
				}
	
 			print font({-color=>'white',-size=>$content_font_size},'PROCESSING FILE... '.$path),br;
			$path =~ s/^.*(\\|\/)//;

			my $proceed_type = 0;

			if(@good_extensions) {
				foreach(@good_extensions) {
					my $ext = $_;
					$ext =~ s/\.//g;

					if($path =~ /\.$ext$/) {
						print font({-color=>'white',-size=>$content_font_size},'VERIFIED FILE TYPE OF... '.$path),br;
						$proceed_type = 1;
						last;
						}
					}

				unless($proceed_type) {
					push(@was_not_good_type, $path);
					}
				}
			elsif(@bad_extensions) {
				$proceed_type = 1;
				foreach(@bad_extensions) {
					my $ext = $_;
					$ext =~ s/\.//g;						
				
					if($path =~ /\.$ext$/) {
						$proceed_type = 0;
						last;
						}
					}

				unless($proceed_type) {
					push(@was_a_bad_type, $path);
					}
				}

			else {
				$proceed_type = 1;
				}


			# WRITE IMAGE TO SERVER USING FORM FIELD NAME .EXTENSION TO THE $TEMP_DIR
			# THIS PROCESS INSURES THAT NO 2 AREAS WILL HAVE THE SAME IMAGE NAME
		  	if($proceed_type) {
		  		if(open(OUTFILE, "> $TEMP_DIR/$html_lead$file$file_ext") || die("Cannot Open File $TEMP_DIR/$html_lead$file$file_ext for writing: $!")) {
		  			print font({-color=>'white',-size=>$content_font_size},'UPLOADING... '.$path),br;
						if(open(READFILE, "< $path") || die("Cannot Open File $path for reading: $!")) {
			  				while (my $bytesread = read(READFILE, my $buffer, 1024)) {
			  					syswrite(OUTFILE, my $buffer, 1024);
	    						}
	    					}
	    			close (INFILE);
	    			close (OUTFILE);
					}
		  		}		  		
	
		  		
	
	  		
					
			if($max_size) {
				if((-s "$TEMP_DIR/$html_lead$file$file_ext") > ($max_size * 1024)) {
					push(@was_too_big, $path);
					unlink("$TEMP_DIR/$html_lead$file$file_ext");
					}
				}

			print font({-color=>'white',-size=>$content_font_size},'FILE SAVED TO... '.$TEMP_DIR.'/'.$html_lead.$file.$file_ext),br,br;
			push(@file_did_save, $path);
			&results;	
			}

		else {
			push(@did_not_save, $path);
			}
		
		}

		

	print start_form(-action=>$SCRIPT_NAME);
	print center submit(-value=>'BACK TO FORM',-onclick=>'history.go(-2)');
	close_form();
	print end_html;
	}