#!/usr/bin/perl
#pragmas
use strict;
use warnings;

#modules
use Tk;
use Tk::Image;
use Win32;
use Win32::OLE qw(in with); 
use Win32::OLE::Const 'Microsoft Outlook';
use Win32::GUI();
use Config::IniFiles;
use File::Copy;

#load config ini
my $config = new Config::IniFiles( -file => "config.ini" );

#hide DOS box
if($config->val('main','hide_DOS_box')){my $DOS = Win32::GUI::GetPerlWindow();Win32::GUI::Hide($DOS);}

#global status and root path
my $status;
my $root_destination_path=$config->val('main','root_destination_path');

#test mode
my $test_mode=$config->val('main','test_mode');

#create GUI
my $window = MainWindow->new;
$window->title("Monitoring emails");
$window->iconimage($window->Photo(-file => 'ico.gif'));

my $photo=$window->Photo(-file => 'start.gif');
my $left_frame=$window->Frame(-padx=>10,-pady=>10)->pack(-side => 'left', -anchor => 'w');
my $right_frame=$window->Frame(-padx=>10,-pady=>10)->pack(-side => 'right', -anchor => 'e');
my $main_frame_button = $left_frame->Button(-command=>\&main_frame_button_pressed,-image => $photo)->pack();

#set monitor refresh
$window->repeat(1000*$config->val('main','seconds_between_checks'),\&execute_monitor);

#launch monitor on startup
if($config->val('main','run_on_startup')){&start_monitor();&execute_monitor();}

#execute GUI
MainLoop;

#########################################################
#					SUBROUTINES							#
#########################################################

sub start_monitor{
	$status=1;
	$photo->configure(-file=>'stop.gif'); 
}

sub stop_monitor{
	$status=0;
	$photo->configure(-file=>'start.gif'); 
}

sub execute_monitor{
	if($status){
		my $outlook=Win32::OLE->new('Outlook.Application') or die "Cannot create outlook object\nError:";
		my $namespace = $outlook->GetNamespace("MAPI");
		my $folder = $namespace->GetDefaultFolder(olFolderInbox);
		my $items = $folder->Items;
		for my $itemIndex (1..$items->Count){
			my $message = $items->item($itemIndex);
			next if not defined $message;
			my $attach = $message->Attachments();
			if (defined $attach){
				for my $attach_index (1..$attach->Count){
					my $attachment = $attach->item($attach_index);
					my $filename = $attachment->Filename;
					mkdir($root_destination_path.$message->SenderName);
					my $saveas = $root_destination_path.$message->SenderName."/$filename";
					if(! -e $saveas){
						$attachment->SaveAsFile($saveas);
						if($test_mode){
							Win32::MsgBox("Saving attachment from ".$message->SenderName." to $saveas\n");
						}
					}
				}
			}
			if($config->val('main','delete_on_read')){$message->Delete;}
		}
	}
	&apply_rules();
}

sub main_frame_button_pressed(){
	if($status==0){
		&start_monitor();
	}else{
		&stop_monitor();
	}
}

sub apply_rules{
	#define rules for additional file movement
	my %rules = (

	"Senders email name"=>"$root_destination_path/fh",
	"Senders email name"=>"$root_destination_path/so",

	);
	
	#make sure directories exists
	foreach(keys %rules){
		mkdir $rules{$_};
	}

	my @directories_to_search = <$root_destination_path*>;
	foreach my $directory(@directories_to_search){
		$directory=~m/^.*\/(.*?)\s?$/;
		if(-d $directory){
			my $new_root=$rules{"$1"};
			if($new_root){
				my @files_to_move = <"$directory"/*>;
				foreach my $file (@files_to_move){
					my $from_path = $file;
					$file=~s/$directory/$new_root/;
					if($config->val('main','delete_moved_documents_from_drop_box')){
						move($from_path,$file);
					}else{
						copy($from_path,$file);
					}
				}
			}
		}
	}
}