use strict;
use warnings;

my $DeviceFileName="";
my $device="";
my $company="";
my $autoconfig="";
my $interface="";
my $amiga="";
my $date="";
my $title="";
my $point="";
my $format="";
my $SFS="";
my $FileInDirectory=0;
my $z=0;
my @dump;
my $directory="test";

###########################
### DirectoryFileSearch ###
###########################


if (substr($directory, -1,1) ne "\\") {
	$directory = "$directory" . "\\";
}
# Instead of using open, opendir takes all files with in a 
# directory and places them inside an array: @FileInDirectory
opendir(DIR, $directory) or die "Cannot open $directory";
my @FileInDirectory;
@FileInDirectory = readdir DIR;
close(DIR);
# removes '.' and '..' from the array. For file systems without
# these objects, comment out the following line.
splice(@FileInDirectory,0,2);
print @FileInDirectory;

#####################################################
### Reads files one file at a time into the array ###
### Each line is processed ne at a time.          ###
#####################################################

foreach $FileInDirectory(@FileInDirectory) {
	my $FilePath="";
	$FilePath = "$directory" . "$FileInDirectory[$z]";
	print "\n\nFile path: $FilePath  \n";
	push (@dump, "\n\n");
	open (SINGLE, $FilePath) or die "Cannot open '$FilePath'";
	while (<SINGLE>) {
		$SFS = $_;
		
		##########################################################
		## Process each each line. Parse required information   ##
		## and place into scalars used to create new HTML file. ##
		##########################################################
		
		##########################################################
		## Captures device name and creates filename for output ##
		##########################################################
		if ( $SFS =~ m:<big>(.*?)</big>: ) {			# looks for <big></big and capturew text inetween
				$device = $1;
				$device =~ s/<[^>]*>//g;		# removes all characters between <> including <>
				$device =~ tr/""//d;			# removes double quotes
				print $device;
				$DeviceFileName = $device;
				$DeviceFileName =~ s/[^a-zA-Z0-9]//g; 	#removes all spaces & special characters
				print $DeviceFileName;
		} 


		###########################
		## Captures company name ##
		###########################
		if ( $SFS =~ m:</font>(.*?)</small>: ) {	# looks for <big></big and capturew text inetween
			$company = $1;
			$company =~ s/<[^>]*>//g;		# removes all characters between <> including <>
			$company =~ tr/""//d;			# removes double quotes
		}

		###################
		## Captures Date ##
		###################
		if ( $SFS =~ m:Date(.*?)</small>: ) {		# looks for <big></big and capturew text inetween
			$date = $1;
			$date =~ s/<[^>]*>//g;			# removes all characters between <> including <>
			$date =~ tr/""//d;			# removes double quotes
		}

		###########################
		## Captures amiga models ##
		###########################
		if ( $SFS =~ m:Amiga(.*?)</small>: ) {		# looks for <big></big and capturew text inetween
			$amiga = $1;
			$amiga =~ s/<[^>]*>//g;			# removes all characters between <> including <>
			$amiga =~ tr/""//d;			# removes double quotes
		}

		########################
		## Captures interface ##
		########################
		if ( $SFS =~ m:Interface(.*?)</small>: ) {	# looks for <big></big and capturew text inetween
			$interface = $1;
			$interface =~ s/<[^>]*>//g;		# removes all characters between <> including <>
			$interface =~ tr/""//d;			# removes double quotes
		}

		#########################
		## Captures autoconfig ##
		#########################
		if ( $SFS =~ m:Autoconfig(.*?)</small>: ) {	# looks for <big></big and capturew text inetween
			$autoconfig = $1;
			$autoconfig =~ s/<[^>]*>//g;		# removes all characters between <> including <>
			$autoconfig =~ tr/""//d;		# removes double quotes
		}

		my $word =0; my $line =0; my $char = 0;
		
		#####################################################
		## HTML main script informaiton with some scalars. ##
		## Date, company and other info in $HTML2          ##
		#####################################################

		my $HTML1='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
		<html>
		<head>
		<title>'. $device .' :: RetroGameAndComputer.com</title>
		<link rel="Shortcut Icon" href="favicon.ico">
		<meta property="fb:admins" content="654435532" />
		<META name="Abstract" content="Retro Amiga Storage Peripherals '. $device .'">
		<META name="Description" content="The '. $device .' with specifications, interface slot and front and back images.">
		<META name="KeyWords" content="'. $device .', '. $company .', Amiga Storage Peripherals, expansion cards">
		<META name="Copyright" content="Copyright &copy; 2011 | RetroGameAndComputer.com || All RightsReserved">
		<META http-equiv="content-language" content="en">
		<META http-equiv="Pragma" content="no-cache">
		<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
		<META name="Robots" content="index,follow">
		<META name="Robots" content="noarchive">
		<META name="Googlebot" content="noarchive">
		<META name="MSNbot" content="noarchive">
		<META name="Security" content="Public">
		<META name="Distribution" content="Global">
		<link rel="StyleSheet" href="css/common-style.css" type="text/css">
		<link rel="StyleSheet" href="css/gray.css" type="text/css">
		<link rel="StyleSheet" href="css/gray-menu.css" type="text/css">
		<script language="JavaScript" type="text/javascript" src="css/css.js"></script>
		<script language="JavaScript" type="text/javascript" src="javascripts.js"></script>
		<script language="JavaScript" type="text/javascript" src="pop-closeup.js"></script>
		<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
		<!-- Start Google Analytics -->
		<script type="text/javascript">
		
		  var _gaq = _gaq || [];
		  _gaq.push([\'_setAccount\', \'UA-21373706-3\']);
		  _gaq.push([\'_trackPageview\']);
		
		  (function() {
		    var ga = document.createElement(\'script\'); ga.type = \'text/javascript\'; ga.async = true;
		    ga.src = (\'https:\' == document.location.protocol ? \'https://ssl\' : \'http://www\') + \'.google-analytics.com/ga.js\';
		    var s = document.getElementsByTagName(\'script\')[0]; s.parentNode.insertBefore(ga, s);
		  })();
		
		</script>
		<!-- End Google Analytics -->
		</head>
		<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
		<!-- Start Outer Page Table -->
		<table bgcolor="#FFFFFF" align="center" cellpadding="0" cellspacing="0" border="1" width="994">
		  <tr>
		    <td align="center" valign="top"><script language="JavaScript" type="text/javascript" src="header.js"></script>
		      <!-- Start Picture Bar Table -->
		      <table cellpadding="0" cellspacing="0" border="0" width="100%">
		        <tr>
		          <td background="picts/home.jpg" class="pictbackground"><img src="img/headers/retrogameandcomputer.jpg" border="0" width="100%" height="80" alt="Image"><br></td>
		        </tr>
		        <tr class="printhide">
		          <td class="pagebars"><img src="picts/spacer.gif" width="10" height="1" alt="image"><br></td>
		        </tr>
		      </table>
		      <!-- End Picture Bar Table -->
		      <script language="JavaScript" type="text/javascript" src="menu.js"></script>
		      <!-- Start Split Table -->
		      <table cellpadding="0" cellspacing="0" border="0" width="100%">
		        <tr>
		          <td align="left" valign="top" class="sidebar-background"><iframe name="Sidebar" src="sidebar.htm" width="187" height="600" frameborder="0" marginheight="0" marginwidth="0" scrolling="no" class="sidebar-frame"> </iframe>
		            <!-- Start Left Sidebar Content Table -->
		            <TABLE cellpadding="10" cellspacing="0" border="0" width="187" class="sidebartext">
		              <tr>
		                <td align="left" valign="top">
		
		<?php include("inc/google.search.inc.php"); ?>
		
		<br>
		<!-- Start Facebook iFrame-->                  
		<iframe src="http://www.facebook.com/plugins/like.php?href=http%3A%2F%2Fretrogameandcomputer.com&amp;layout=button_count&amp;show_faces=true&amp;width=450&amp;action=like&amp;font&amp;colorscheme=light&amp;height=21" scrolling="no" frameborder="0" style="border:none; overflow:hidden; width:167px; height:21px;" allowTransparency="true"></iframe>
		<!-- End Facebook iFrame-->                  
		<br><br><br>
		
		<!-- Place this tag in your head or just before your close body tag -->
		
		
		<!-- Place this tag where you want the +1 button to render -->
		<script type="text/javascript" src="https://apis.google.com/js/plusone.js"></script>
		<g:plusone></g:plusone><br>
		                  <br>
		                  
		                  <p class="sidebartext" align="justify">Retro Game And Computer covers retro game consoles, home computers, classic video games and hardware peripherals.</p>
		                  <p class="sidebartext" align="justify">We cover all computers systems and game forms from the 1970s including Atari, Commodore, ZX Spectrum, Sega, Sony, Nintendo and more.</p>
		                  
		                  <br><div align="center"><a class="sidelink" href="link-to-us.php"><img border="0" src="img/linktous.png" alt="Link To Us"></a></div>
		                  
		                  <br><p class="sidebartitle">Advertise With Us</p>
		                  <p class="sidebartext" align="justify">Find out how to advertise with RetroGameAndComputer.com. It\'s quick and easy and we we have advertising solutions for any budget.</p>
		                  <p class="sidebartext">:: <a class="sidelink" href="advertising.php">Advertise With Us</a></p>
		                  <br>
		
		<br>
		<br>
		<script type="text/javascript"><!--
		google_ad_client = "ca-pub-1786059499637793";
		/* wide game site */
		google_ad_slot = "1105492661";
		google_ad_width = 160;
		google_ad_height = 600;
		//-->
		</script>
		<script type="text/javascript"
		src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
		</script>                
		                  <p class="sidebartitle">Reciprocal Links</p>
		                  <p class="sidebartext">We encourage a reciprocal link policy. If you have a web site that relates to bass fishing please feel free to link to us and let us know. We\'ll link back in return. Visit our <a class="sidelink" href="link-to-us.php">Link To Us</a> page for details on how to link to us.</p>
		                  <p class="sidebartext">:: <a class="sidelink" href="link-to-us.php">Link To Us</a></p></td>
		              </tr>
		            </table>
		            <!-- End Left Sidebar Content Table --></td>
		          <td align="left" valign="top" width="40" class="pageheight"><div id="cornerimage"> <img src="picts/spacer.gif" height="40" width="40" alt="image"><br>
		            </div>
		            <img src="picts/spacer.gif" height="200" width="10" border="0" alt="image"><br></td>
		          <td align="center" valign="top" class="shadow-horizontal"><br>
		            <br>
		            <!-- End Left Sidebar Content Table -->
		';
		
		##############################################
		## All date header information starts here. ##
		## List information is part of $HTML3.      ##
		##############################################
		
		my $HTML2 ='<!--------------------------------------------->
		<!--          Start Main Secrtion            -->
		<!--------------------------------------------->
		
		            <table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\">
		              <tr>
		                <td align=\"left\" valign=\"top\" class=\"just\"><!-- Start Main Content Table -->
		                  <p class=\"smalltext\"><a href=\"index.php\">HOME</a>&gt;&gt; <a href=\"retro-peripherals.php\">Peripherals</a> &gt;&gt; <a href=\"amiga-peripherals.php\">Amiga</a> &gt;&gt; <a href=\"'. $device .'">Storage</a> &gt;&gt; </a> '. $device .'</p>
		                  <h1>Amiga Storage Peripherals</h1>
		                  <hr class=\"page-splits\">
		                  <!-- Start Main Column Content - Single Column -->
		                  <table width=\"100%\" border=\"0\" cellpadding=\"7\">
		                    <tr>
		                      <td>
		
		<h2><strong>'. $device .'</strong></h2>
		
		<p align=\"justify\">> Company: '. $company .'<br>
		> Date: '. $date .'<br>
		> Amiga: '. $amiga .'<br>
		> Interface: '. $interface .'<br>
		> Autoconfig ID: '. $autoconfig .'<br>
		</p>
		<br>
		<br>
		';

		
		if ($SFS =~ m:<UL>(.*?)</I>:g) {
			$title = $1;
			$title = $title . "\n";
			$title =~ s/<[^>]*>//g;			# removes all characters between <> including <>
			$title =~ s/\b(\w)/\u$1/g;
			chomp $title;
			$format = "<UL><I>".$title."</I>\n"; $title = $format;
			print $title;
			push (@dump, $title);
#			print OUTPUT $title;
		}

		if ( $SFS =~ m:<LI>(.*?)$:g ) {			# looks for <big></big and capturew text inetween
			$point = $1;
			$point = "> ". $point . "\n";
			$point =~ s/<[^>]*>//g;			# removes all characters between <> including <>
			$point =~ s/\b(\w)/\u$1/g;		# Capitalises first word
			$format = "<LI>".$point."\n"; 
			$point = $format;
			chomp $point;
			push (@dump, $point);
#			print OUTPUT $point;
			print $point;
		}
			
		open OUTPUT, ">$DeviceFileName.php" or die "Cannot open $DeviceFileName";
		print OUTPUT $HTML1.$HTML2;
		print OUTPUT @dump;
		print OUTPUT "</UL>";
		close OUTPUT;

	}

	close SINGLE;
	$z = $z +1;
}