Monitor.ps1

# Name  :   Monitor.ps1
# Org   :   LARA - MPI
# Date  :   11.02.2014
# Author:   Mikaël Mayer
# website:  http://lara.epfl.ch
# Function: Semi-automatic File renaming Monitoring as Windows
#           Run it after running "Powershell -sta" on Powershell
#           To stop monitoring event, run:
#           "Get-EventSubscriber | Unregister-Event"
#           It requires python installed and available at the command line.

# CHANGE HERE : Enter the root path you want to monitor.
$folder = '' 
foreach($argument in $args){
  $folder = $argument
}
If ($folder -eq '') { 
echo "Syntax: .\Monitor.ps1 FOLDER_NAME"
echo "Checks FOLDER_NAME for renamings and generalizes them."
Exit 1
}
echo "Checking for renames in $folder..."
echo 'To stop monitoring, please run:'
echo '  Get-EventSubscriber | Unregister-Event'
echo 'To stop the remote server, please run:'
echo '  "stop" | Send-TcpRequest localhost 12345'

$IsSTAEnabled = $host.Runspace.ApartmentState -eq 'STA'
If ($IsSTAEnabled -eq $false) { 
echo "You need to run this script with -STA switch or inside ISE"
Exit 1
}

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Timers")
[void] [System.Reflection.assembly]::loadwithpartialname("System.Drawing")
  
# Unregister all other events
Get-EventSubscriber | Unregister-Event


$filter = '*' # You can enter a wildcard filter here.
# In the following line, you can change 'IncludeSubdirectories to $true if required. 
$fsw = New-Object IO.FileSystemWatcher $folder, $filter -Property @{
  IncludeSubdirectories = $true;
  NotifyFilter = [System.IO.NotifyFilters]'FileName, LastWrite'}
$fsw.EnableRaisingEvents = $true

$global:workingdir = "Global value of workingdir"
$global:tmpworkingdir = $null
$global:watchingsystem = $null
$global:balloon = $null
Set-Variable -Name watchingsystem -Value $fsw -Scope Global

$RenamedAction = {
  function getRelativePath([string]$from, [string]$to) {
    $pathto = $to -replace "\\", "/"
    $pathfrom = $from -replace "\\", "/"
    return python -c "import os.path; print os.path.relpath('$pathto', '$pathfrom')" ;
  }

  $tmpwdir = Get-Location
  $oldabspath = $Event.SourceEventArgs.OldFullPath
  $newabspath = $Event.SourceEventArgs.FullPath
  $wdir = Split-Path -parent $oldabspath
  Set-Location $wdir
  
  $oldpath = getRelativePath -From $wdir -To $oldabspath
  $newpath = getRelativePath -From $wdir -To $newabspath
  
  $out = "mv --mintwoexamples --workingdir $wdir --explain --test $oldpath $newpath" | Send-TcpRequest localhost 12345
  
  # $out | Out-File C:\Users\Mikael\Dropbox\workspace\StringSolver\logrename.txt -Append

  $OUTPUT = "NO" #[System.Windows.Forms.MessageBox]::Show("Do you want to rename the files according to the following pattern:`r`n $out ?" , "File renaming suggestion" , 4)
  Set-Location $tmpwdir
  
  if($out.Contains("->")) {
    $title = "File renaming suggestion" 
	$msg = "Rename?`r`n $out" 
	$timeout = 10000
	$icon = [System.Windows.Forms.ToolTipIcon]::Info
	$Balloon = new-object System.Windows.Forms.NotifyIcon  
	$Balloon.Icon = [System.Drawing.SystemIcons]::Question
	$Balloon.Visible = $true; 
	Unregister-Event -SourceIdentifier click_event -ErrorAction SilentlyContinue 
	Set-Variable -Name workingdir -Value $wdir -Scope Global
	Set-Variable -Name tmpworkingdir -Value $tmpwdir -Scope Global
	Set-Variable -Name balloon -Value $Balloon -Scope Global

    Register-ObjectEvent -InputObject $Balloon -EventName BalloonTipClicked -sourceIdentifier click_event `
	-Action {
	    $tmpwdir = $global:tmpworkingdir
	    $wdir = $global:workingdir
	    $fsw = $global:watchingsystem

	    Set-Location $wdir;
		$fsw.EnableRaisingEvents = $false;
		"mv --workingdir $wdir --all" | Send-TcpRequest localhost 12345 | Out-String
     	# java -jar $stringsolver move --mintwoexamples --all;
     	$fsw.EnableRaisingEvents = $true;
    	Set-Location $tmpwdir;
		$balloon.dispose()
   }.GetNewClosure() 

    $Balloon.ShowBalloonTip($timeout, $title, $msg, $icon); 
    wait-event -timeout 1 -sourceIdentifier click_event > $null
    Remove-Event click_event -ea SilentlyContinue
  }
  Set-Location $tmpwdir
}


# See http://msdn.microsoft.com/en-us/library/system.io.filesystemwatcher.renamed(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2
Register-ObjectEvent -InputObject $fsw -EventName Renamed -SourceIdentifier FileRenamed1 -Action $RenamedAction
Get-EventSubscriber
# To stop the monitoring, run the following commands: 
# Unregister-Event FileRenamed1