filemorph

Check-in [d6928c2ee5]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Update to installer
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d6928c2ee580ddbda1cbd57127dd88b07207c28d
User & Date: kevin 2017-01-16 01:30:25
Context
2017-01-16
02:30
Tweak version check check-in: 679025187c user: kevin tags: trunk
01:30
Update to installer check-in: d6928c2ee5 user: kevin tags: trunk
2017-01-15
01:50
Further refinements for 2.8 check-in: fecc9759b9 user: kevin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Added build/readme.txt.





1
2
3
4
+
+
+
+
To install FileMorph, drag and drop the FileMorph  icon onto the Applications folder. You also can drag the FileMorph icon from Applications to your Dock in order to make FileMorph  more easily accessible.

Email us with questions and comments: kw@codebykevin.com

Changes to buildapp.sh.

1
2
3
4
5
6
7
8
9
10
11
12
13

14
15

16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32






33
34
35
36
37
38
39
1
2
3
4
5
6
7
8
9
10
11
12

13
14

15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45












-
+

-
+

















+
+
+
+
+
+







#!/bin/sh

TMPDIR=/tmp

perltidy filemorph.pl
mv filemorph.pl.tdy filemorph.pl

chmod 777 filemorph.pl

echo "Starting build process..."

#clean up old builds
if [ -a /tmp/createdmg ]
if [ -a FileMorph.dmg ]
 then
    rm /tmp/createdmg
    rm FileMorph.dmg
fi

if [ -a build/FileMorph.zip ]
 then
    rm build/FileMorph.zip
fi

if [ -a FileMorph.app ]
	then
	rm -rf FileMorph.app
fi

	
if [ -a build/FileMorph.app ]
	then
	rm -rf build/FileMorph.app
fi

if [ -a /tmp/FileMorph-dmg-creation ]
    then
    rm -rf  /tmp/FileMorph-dmg-creation
fi


   
#generate new plist file
echo "Generating plist file..."


cat << EOT > Info-cbk.plist
156
157
158
159
160
161
162


163












































162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215







+
+

+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

#make website build and appstore build
echo "Making website build..."
ditto --rsrc  --arch x86_64 FileMorph.app build/FileMorph.app
cp -f Info-cbk.plist build/FileMorph.app/Contents/Info.plist


find build/FileMorph.app -type f -name "*.bundle"  -exec codesign --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" {} \;
find build/FileMorph.app -type f -name "*.dylib"  -exec codesign --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" {} \; 

codesign  --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" build/FileMorph.app/Contents/Frameworks/Tk.framework/Versions/8.6/Resources/Wish.app/Contents/MacOS/Wish
codesign  --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" build/FileMorph.app/Contents/Frameworks/Tk.framework/Versions/Current
codesign --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" build/FileMorph.app/Contents/Frameworks/Tcl.framework/Versions/Current
codesign  --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" build/FileMorph.app/Contents/MacOS/perl

xattr -cr build/FileMorph.app

codesign  --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" --verbose=2  build/FileMorph.app

echo "Creating and signing DMG file..."

hdiutil create  -srcfolder build -fs HFS+ -volname FileMorph FileMorph.dmg

codesign  --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" --verbose=2  FileMorph.dmg

echo "Uploading DMG..."

cp -f FileMorph.dmg /Users/kevin/share/kevin/Sites/codebykevin/updates/FileMorph.dmg

echo "Done."

 
# cd build
# zip -r -y FileMorph.zip FileMorph.app

# cp FileMorph.zip /Users/kevin/share/kevin/Sites/codebykevin/FileMorph.zip

# cd ../

#pwd

cp -f filemorph-changes.tcl /Users/kevin/share/kevin/Sites/codebykevin/filemorph-changes.tcl
cp -f filemorph-version.tcl /Users/kevin/share/kevin/Sites/codebykevin/filemorph-version.tcl

#echo "Copying zip to Amazon S3..."
#aws s3 cp build/FileMorph.zip s3://codebykevin/FileMorph.zip --acl public-read

cd ../

#create archive of entire source tree
tar cvfz FileMorph-$1.tgz FileMorph


echo "Done."

Changes to filemorph.pl.

655
656
657
658
659
660
661
662
663
664
665
666







667
668
669
670
671
672
673
674
675
655
656
657
658
659
660
661





662
663
664
665
666
667
668
669

670
671
672
673
674
675
676







-
-
-
-
-
+
+
+
+
+
+
+

-








    }
}

#"about application"command
sub Tkx::tkAboutDialog {

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


#handle errors in Tk
sub errlog {
    my $msg = shift;
    if ($IS_AQUA) {
        system("syslog -s -l Error FileMorph: An error occurred: $msg\n");
    }
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1094
1095
1096
1097
1098
1099
1100

1101
1102
1103
1104
1105
1106
1107







-







}

#check version of installed software
sub checkUpdate {

    &Tkx::softwareupdate__setIcon($icon);
    &Tkx::softwareupdate__checkVersion( $appname, $appversion );


}

#-----AppleScript handlers------$

if ($IS_AQUA) {