filemorph

# FileMorph: Rename files, edit attributes

#Copyright (C) 2018 WordTech Communications LLC

#MIT license

#let's get started

use FindBin qw($Bin);
use Config;

Tkx::package_require('xplat');

if ($IS_AQUA) {
    Tkx::package_require('fullscreen');
    Tkx::package_require('aem');
    Tkx::package_require('cocoaprint');
    Tkx::package_require('windowlist');
  }

if ($IS_WINDOWS) {
  Tkx::package_require('dde');
  Tkx::dde_servername('FileMorph');
}
  

  

#initialize variables
our $folder;
our $sourceext;
our $targetext;
our $targetstring;
our $srcstring;

if ($IS_AQUA) {
    Tkx::interp_alias( "", "::tk::mac::OpenDocument", "", [ \&openDoc ] );
    Tkx::interp_alias( "", "::tk::mac::ShowHelp",     "", [ \&showHelp ] );
    Tkx::interp_alias( "", "bgerror",                 "", [ \&errlog ] );
}





#draw the GUI
our $mw = Tkx::widget->new(".");
Tkx::wm_title( $mw, "FileMorph" );
$mw->g_wm_withdraw;
if ($IS_WINDOWS) {
    $mw->g_wm_protocol( WM_DELETE_WINDOW => \&shutdown );
    $mw->g_wm_iconphoto( -default => $icon );

sub Tkx::tkAboutDialog {

    Tkx::tk___messageBox(
        -parent  => $mw,
        -title   => "About FileMorph",
        -icon    => "info",
        -message => "FileMorph: File Modification Tool",
        -detail  => "Version 3.0\n(c) 2018 WordTech Communications LLC"
    );
}

#handle errors in Tk
sub errlog {
    my $msg = shift;
    if ($IS_AQUA) {

[fm-timedate]

-------------------
title: Scripting FileMorph
alias: Scripting









FileMorph can be automated on both the Mac and Windows. The list of commands and their parameters is below: 

 * set_directory_path ''path'': Set the directory for operations.
 * set_file_path ''path'': Set the file for operations. 
 * set_old_extension ''old extension'': Set the file extension to be changed. 
 * set_new_extension ''new extension'': Set the new file extension.
 * change_extension: Change the file extension.
 * set_old_text ''text'': Set the old text string to change. 
 * set_new_text ''text'': Set the replacement string. 
 * change_text: Change the text.
 * set_added_text ''text'': Set the text to be added to file names.
 * set_prefix_or_suffix ''0 or 1'': Select whether the text will be added to the beginning or name of the file name.
 * add_text: Add the text.
 * set_time ''MM/DD/YYYY'': Set the time to be changed to in MM/DD/YYYY format. 
 * change_file_time: Change the file modification time. 

'''Mac Scripting'''

Automating the application on macOS can be done via AppleScript. Type this script (with appropriate modification of directories to reflect your system) into AppleScript Editor and run it, or save the script as "test.applescript" and run "osascript test.applescript" from the command line: 

   tell application "Finder"
      try
         delete "Macintosh HD:Users:kevin:Programming:filemorph:unit files:"
         delete "Macintosh HD:Users:kevin:Programming:filemorph:unitfiles:"
      on error
         log
      end try
      make new folder at folder "FileMorph" of folder "Programming" of home with properties {name:"unit files"}
      duplicate every file of folder "testsource" of folder "FileMorph" of folder "Programming" of home to "Macintosh HD:Users:kevin:Programming:filemorph:unit files:"
      make new folder at folder "FileMorph" of folder "Programming" of home with properties {name:"unitfiles"}
      duplicate every file of folder "testsource" of folder "FileMorph" of folder "Programming" of home to "Macintosh HD:Users:kevin:Programming:filemorph:unitfiles:"
   end tell

   tell application "FileMorph.app"
   
      set a to alias "Macintosh HD:Users:kevin:Programming:filemorph:unit files:"
      --file names with spaces are tricky; escape spaces as below
      --set p to quoted form of POSIX path of a
      set p to "/Users/kevin/Programming/filemorph/unit\\ files"
      set_directory_path (p)
      set_old_extension ("jpg")
      set_new_extension ("gif")
      change_extension
      set_old_text ("test")
      set_new_text ("foo")
      change_text
      set_added_text ("bar")
      set_prefix_or_suffix 1
      add_text
      set_time ("12/15/1999")
      change_file_time
   
      tell application "Finder" to open alias "Macintosh HD:Users:kevin:Programming:filemorph:unit files:"
   
      delay 3
   
      set a to alias "Macintosh HD:Users:kevin:Programming:filemorph:unitfiles:"
      set p to "/Users/kevin/Programming/filemorph/unitfiles"
      --open p
      set_directory_path (p)
      set_old_extension ("txt")
      set_new_extension ("sh")
      change_extension
      set_old_text ("test")
      set_new_text ("best")
      change_text
      set_added_text ("my")
      set_prefix_or_suffix 0
      add_text
      set_time ("12/25/2006")
      change_file_time
      
      tell application "Finder" to open alias "Macintosh HD:Users:kevin:Programming:filemorph:unitfiles:"

   end tell


'''Windows Scripting'''
 
Automating the application on Windows can be done using the Dynamic Data Exchange (DDE) protocol. The DDE protocol has several components, including a "Service," "Topic," and "Items." In FileMorph, the Service name is always TclEval (because that is the underlying name that the Tcl interpreter supports), the Topic name is FileMorph, and Items (data or return values) are not currently required. 

There are various programming languages on Windows in which one can write a DDE client to automate a DDE application, including Tcl, Python, VBA, C/C++, and others. An easy way to automate TextSweep from the command line is to install Chris Oldwood's free DDE Command tool from [http://www.chrisoldwood.com/win32.htm]. The tool can then be incorporated into a batch script such as the following: 

-------------------
title: Help
alias: Help

FileMorph provides comprehensive user documentation from the "Help" menu, and also provides tooltips for the toolbar buttons. Additional user support is available via the "Contact Code by Kevin" item in the Help menu; and the website link in the help menu.