#!/usr/bin/perl
use Modern::Perl;
use RTF::TEXT::Converter;
my $string;
my $object = RTF::TEXT::Converter->new(output => \$string);
$object->parse_stream( '..\Policies\Test\000144028.rtf' );

chomp $string;
my @string = split("\n", $string);

my $number_of_sigs = 0;

foreach my $line (@string) {
    chomp $line;
	if ($line =~ m/Date of Last Update:(.*)/){
	   my $date = $1;
	   $date =~ s/^\s+//;
	   my @date_of_last_update = split (/ /, $date);
	   print "Date of last update is: $date_of_last_update[0]\n";
	}
	if ($line =~ m/Document #:(.*)/){
	   print "\nDocument number is $1\n";
	}
	# Sign-Off Approvals  
    if ($line =~/_____\/_____\/_____/){
	   # print $line;
	   $number_of_sigs ++;
   }
}
print "\nnumber of signatures is $number_of_sigs \n";

##</code><code>##

    use strict;
    use warnings;
	use HTTP::Date;
	use File::stat;
	use Time::localtime;
	use Modern::Perl;
	use RTF::TEXT::Converter;
	
	my $fullpath = my $dir = 'C:\Policies\\';
	my %hash;	
	
	my %months = (
		"Jan" => "1",
		"Feb" => "2",
		"Mar" => "3",
		"Apr" => "4",
		"May" => "5",
		"Jun" => "6",
		"Jul" => "7",
		"Aug" => "8",
		"Sep" => "9",
		"Oct" => "10",
		"Nov" => "11",
		"Dec" => "12"
	);
	
	#print "full path is $fullpath \n";
	
    opendir (DIR, $dir) or die $!;
	#print "dir is $dir \n";
	while (my $dir = readdir(DIR)) {
	    my $file = $fullpath = 'C:\Policies\\' . $dir; 
        		
		opendir (FILE, $file) or die $!;
		while (my $file = readdir(FILE)){
		    # print "7 reading $file\n";
			if (($file =~/RTF/ || $file =~/rtf/ )&& $file !~/^~/ ){
				my $path_file = $fullpath . '\\'. $file;
				#print '\nfullpath = ' . $fullpath . '\\' . $file . '\n';
				my $string;
				my $object = RTF::TEXT::Converter->new(output => \$string);
				$object->parse_stream( $path_file );
				# print ctime(stat($fullpath . '\\' . $file)->mtime);
				my ($wday, $mon, $day, $time, $yr ) = split (/\s+/, ctime(stat($fullpath . '\\' . $file)->mtime)  ); # split on space
				# print "\n$wday, $mon, $day, $time, $yr \n";
				# print "file is $file my date is $months{$mon}/$day/$yr\n\n" ;
				$hash{$dir}{$file}{UPLOAD_DATE} = $months{$mon} . "/" . $day . "/" .$yr;
				chomp $string;
				my @string = split("\n", $string);
				my $line_num =0;
				foreach my $line (@string) {
				    $line_num ++;
   				    #print "Reading line number $line_num in $file\n";
					chomp $line;
					if ($line =~ m/Date of Last Update:(.*)/){
					   my $date = $1;
					   $date =~ s/^\s+//;
					   my @last_update_date = split (/ /, $date);
					   #print "Date of last update is: $last_update_date[0] line number $line_num\n";
					   $hash{$dir}{$file}{LAST_UPDATE_DATE} = $last_update_date[0];
					}
					# print "5 line is $line \n";
					if ($line =~ m/Document #:(.*)/){ # not needed because the file name is the policy number
					    #print "Document number is $1 line number $line_num\n";
						my $Policy_number = $1; 
						$Policy_number =~ s/\t+/ /g; # replace all tabs with spaces
						$Policy_number =~ s/^\s+//; # remove leading spaces
						my @arr = split (/ /, $Policy_number );
						$hash{$dir}{$file}{DOC_NUM_AND_VERSION} = $arr[0];
						# print "array is @arr and element 0 is $arr[0]\n";
						#print "line is $line \n";
						#print "1Path is $fullpath " . "\\" . "$file\n";
					}
					# Sign-Off Approvals  
					if ($line =~/_____\/_____\/_____/){
						#print $line;
						$hash{$dir}{$file}{NUM_OF_SIGS} ++;
					}
				}
				#print "$hash{$dir}{$file}{NUM_OF_SIGS}\n";
			}
		}
		#print "dir is $dir\n";
    }
	closedir(DIR); 
	closedir(FILE);
	
	print_data (\%hash);
	
	sub print_data { 
		my ($h_ref) = @_; 
	
	    open (OUT, '> C:\Dev\Policy_upload_dates.csv') or die ("Can't open the output file $!");
		
		print OUT "Department,File_Name,Date_of_Last_Update,Upload_Date,Policy_Number,Number_of_Signatures\n";
		foreach my $dir (keys %$h_ref){
			foreach my $file (keys $h_ref->{$dir}){
				printf OUT "%s,%s, %s,%s, %s,%s\n",
					$dir,
					$file,
					$h_ref->{$dir}{$file}{LAST_UPDATE_DATE},
					$h_ref->{$dir}{$file}{UPLOAD_DATE},
					$h_ref->{$dir}{$file}{DOC_NUM_AND_VERSION},
					$h_ref->{$dir}{$file}{NUM_OF_SIGS}				
				;
			}
		}		
	}

##</code><code>##


COMPUTER APPLICATION SELECTION
Policy and Procedure                                  

	Document #: 123.456.789	Version #: 6
	Document Owner: 	Date of Last Update: 04/22/2003
	Written by: INFORMATION SYSTEMS	Status: Approved
 

General Description  

Purpose

To establish guidelines for computer application selection.  

Policy


GENERAL INFORMATION

RESPONSIBILITY

Procedure

A.	Pages of text …


DEAPRTMENT – INFORMATION TECHNOLOGY

Document Control  

Revision History  

Ver. 1	02/01/1996 	INITIAL  
                      


Sign-Off Approvals  
The person responsible for this document must verify accuracy and that the steps for this procedure or work instruction have been tested and validated.  After you have approved this document, please sign and date below.  


________________________________________________________________ _____/_____/_____ 



________________________________________________________________ _____/_____/_____ 


##</code><code>##

Department,File_Name,Date_of_Last_Update,Upload_Date,Policy_Number,Number_of_Signatures
Test,000777012.rtf, 08/23/2007,3/29/2010, 000.777.012,3
Test,000777034.rtf, 3/27/2013,6/5/2013, 000.777.034,3
Test,000777056.rtf, 05/10/2013,6/4/2013, 000.777.056,3
Test,000777078.rtf, 3/28/2013,6/13/2013, 000.777.078,3