#!d:/iw-home/iw-perl/bin/iwperl -wuse TeamSite::CGI_lite;#### # Tad Aalgaard# Only need to invoke the following two commands once ever, they create triggers that # will fire everytime a file is Locked or Updated# This is used in the EXL workarea, they do not want any locks, removes lock on imports, edits and users trying to perform locks# the following two lines need to be run on a new installation to get the iwat commands to respond to any locks# when a lock is found it runs this custom_unlock.ipl file and unlocks the file# iwat Lock "d:\iw-home\iw-perl\bin\iwperl d:\iw-home\custom\custom_unlock.ipl"# iwat Update"d:\iw-home\iw-perl\bin\iwperl d:\iw-home\custom\custom_unlock.ipl"###my $filepath = $ARGV[4] . $ARGV[5];if ($ARGV[4] eq "\\default\\main\\CMG\\EXL_Websites\\DEMO\\WORKAREA\\DEMO"){ $deploy_command = "iwunlock \"". $filepath . "\""; qx/$deploy_command/; # execute the deployment command}