#!/usr/bin/perl

sub printFile($)
{
my $fileHandle = $_[0];
while (<$fileHandle>)
{
my $line = $_;
chomp($line);
#print "parsing file $line\n";

my $wmlcount =0;
my $plaincount =0;
my $htmlcount =0;
my $xhtmlcount =0;
my $ven="";
my $mod="";
my $first = 0;
my $last = 0;
my $opbr = 0;

	open(xmlfile, $line);
	while(<xmlfile>)
	{
	my($xmlline) = $_;
	chomp($xmlline);

		if ($xmlline =~ m/ccppschema-20030226/i)
		{
		$first = 1;
		}
		if ($xmlline =~ m/ccppschema-20020710/i)
		{
		$last = 1;
		print "file $line has 20020710\n";
		}

	}

	if(($first ==1 ) && ($last ==1 ))
	{
		print "FILE $line has both\n";
	}
	close(xmlfile);
}
}
open(MYINPUTFILE, "<filename.in");
printFile(\*MYINPUTFILE);
close(MYINPUTFILE);
