#!/usr/bin/perl

#Parses web log and reformats




opendir(DIR, 'c:\perl\test');  ##If . is used and .pl is in the same dir as files it works!
@files = readdir(DIR);
close(DIR);
        foreach $file (@files)
	{
		$name = $file;
		@filename = split (/\./, $name);
#               open (MYFILE, ">myfile.txt");
                open( THEFILE,$file ) ;
		@theList = <THEFILE>;   
		close( THEFILE );
		
				foreach( @theList )
					{
					s/\/uid=/,/;
					s/LDAP:\/\///;
					s/ou=//g;
					s/o=//;
					@theLine = split( /\s*,\s*/ );
                                        print "\"$theLine[0]\",\"$theLine[1]\",$theLine[2]\",\"$theLine[3]\",\"$theLine[4]\",\"$theLine[5]\",\"$theLine[6],\"$filename[0]\",\"$filename[1]\",$theLine[7]  \n";
					}
	}	

exit( 0 );