1 |
/* macmpack.c -- Mac user interface to mpack routines |
2 |
* |
3 |
* (C) Copyright 1993-1995 by Carnegie Mellon University |
4 |
* All Rights Reserved. |
5 |
* |
6 |
* Permission to use, copy, modify, distribute, and sell this software |
7 |
* and its documentation for any purpose is hereby granted without fee, |
8 |
* provided that the above copyright notice appear in all copies and |
9 |
* that both that copyright notice and this permission notice appear in |
10 |
* supporting documentation, and that the name of Carnegie Mellon University |
11 |
* not be used in advertising or publicity pertaining to distribution of the |
12 |
* software without specific, written prior permission. Carnegie |
13 |
* Mellon University makes no representations about the suitability of |
14 |
* this software for any purpose. It is provided "as is" without |
15 |
* express or implied warranty. |
16 |
* |
17 |
* CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO |
18 |
* THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY |
19 |
* AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE |
20 |
* FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES |
21 |
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN |
22 |
* AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING |
23 |
* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS |
24 |
* SOFTWARE. |
25 |
* |
26 |
* NOTE: a good GUI requires a lot of work... This needs more. |
27 |
*/ |
28 |
|
29 |
#include <Folders.h> |
30 |
#include <Script.h> |
31 |
#include <GestaltEqu.h> |
32 |
|
33 |
#include <stdio.h> |
34 |
#include <time.h> |
35 |
#include <string.h> |
36 |
#include <ctype.h> |
37 |
#include "version.h" |
38 |
#include "part.h" |
39 |
#include "macnapp.h" |
40 |
#include "macmpack.h" |
41 |
#include "macICTypes.h" |
42 |
#include "macICAPI.h" |
43 |
#include "macICKeys.h" |
44 |
|
45 |
/* ThinkC's internal stdio functions: */ |
46 |
#include <ansi_private.h> |
47 |
|
48 |
/* window types: */ |
49 |
#define DECODELIST 1 |
50 |
#define PREFWIN 2 |
51 |
|
52 |
/* save watch cursor */ |
53 |
Cursor watch; |
54 |
|
55 |
/* preferences */ |
56 |
struct pref_folder *pfolder = NULL; |
57 |
struct mpack_preferences **mpack_prefs = NULL; |
58 |
static ICInstance icinst = NULL; |
59 |
|
60 |
/* flag for active help window */ |
61 |
static WindowPtr helpw = NULL; |
62 |
|
63 |
/* active decode status window */ |
64 |
static na_win *curstatwin = NULL; |
65 |
short didchat; |
66 |
|
67 |
/* MacTCP started: -1 = error, 1 = active, 0 = unknown */ |
68 |
static short tcpstart = 0; |
69 |
|
70 |
/* this is used for opening TEXT files */ |
71 |
SFTypeList textList = { 'TEXT', 0, 0, 0 }; |
72 |
|
73 |
/* next two types are used in the dialog used to select files to decode |
74 |
*/ |
75 |
typedef struct filelist { |
76 |
short vRefNum; |
77 |
long dirID; |
78 |
PCstr fname[65]; |
79 |
} filelist; |
80 |
typedef struct listwin { |
81 |
na_win win; |
82 |
int count; |
83 |
filelist **hflist; |
84 |
ListHandle l; |
85 |
} listwin; |
86 |
|
87 |
/* this is the status window for decoding |
88 |
*/ |
89 |
typedef struct statuswin { |
90 |
na_win win; |
91 |
RgnHandle urgn; /* user region */ |
92 |
Rect urect; /* user rectangle */ |
93 |
Rect frect; /* frame rectangle */ |
94 |
short row; /* row at top of scroll area */ |
95 |
short nrow; /* rows of status text */ |
96 |
long size, used; /* bytes of status text & amount used */ |
97 |
Handle text; /* status text */ |
98 |
ControlHandle sb; /* scroll bar control */ |
99 |
short height, ascent; /* font height and ascent */ |
100 |
} statuswin; |
101 |
|
102 |
/* this is for the encode window |
103 |
*/ |
104 |
typedef struct encodewin { |
105 |
nate_win w; |
106 |
Boolean nateon; /* cursor in Desc edit field */ |
107 |
Boolean useemail; /* sending email */ |
108 |
long partsize; /* max part size (0 = no limit) */ |
109 |
OSType ftype; /* type of file to encode */ |
110 |
FSSpec fspec; /* file to encode */ |
111 |
FSSpec ofile; /* output file */ |
112 |
} encodewin; |
113 |
|
114 |
/* show progress |
115 |
*/ |
116 |
typedef struct progresswin { |
117 |
natcp_win w; |
118 |
short percent; |
119 |
} progresswin; |
120 |
|
121 |
/* send mail |
122 |
*/ |
123 |
typedef struct mailwin { |
124 |
progresswin w; |
125 |
Handle headers; /* email headers */ |
126 |
Handle envelope; /* envelope */ |
127 |
short state; /* state */ |
128 |
short remaining; /* messages remaining */ |
129 |
Boolean sending; /* flag for active SMTP task */ |
130 |
Boolean useemail; /* sending email */ |
131 |
Boolean gothost; /* got the hostname */ |
132 |
long partsize; /* max part size (0 = no limit) */ |
133 |
long dirID; /* ID for temp dir */ |
134 |
OSType ftype; /* type of file to encode */ |
135 |
FSSpec fspec; /* file to be encoded */ |
136 |
FSSpec ofile; /* output file */ |
137 |
FILE *dfile; /* desc file */ |
138 |
PCstr server[257]; /* SMTP server */ |
139 |
PCstr subj[257]; /* subject */ |
140 |
CInfoPBRec cpb; |
141 |
} mailwin; |
142 |
|
143 |
/* mailwin states */ |
144 |
#define MS_MACTCP 0 /* Starting MacTCP */ |
145 |
#define MS_GETHOST 1 /* Getting hostname */ |
146 |
#define MS_ENCODE 2 /* Do encoding */ |
147 |
#define MS_SENDING 3 /* Sending email */ |
148 |
|
149 |
/* some prototypes */ |
150 |
void warn(char *str); |
151 |
void stattext(Str255, unsigned char); |
152 |
static void do_decodefiles(na_win *); |
153 |
static void addfile(listwin *, FSSpec *); |
154 |
static void removefile(listwin *); |
155 |
static short listclose(na_win *); |
156 |
static short listmouse(na_win *, Point, short, short); |
157 |
static short listctrl(na_win *, Point, short, short, ControlHandle); |
158 |
static short listupdate(na_win *, Boolean); |
159 |
static short listinit(na_win *,long *); |
160 |
static short prefsctrl(na_win *, Point, short, short, ControlHandle); |
161 |
static short prefsinit(na_win *, long *); |
162 |
static void do_decode(FSSpec *); |
163 |
static void do_encode(FSSpec *, OSType); |
164 |
static short mainmenu(struct na_win*, WORD, WORD); |
165 |
|
166 |
#define dwin ((listwin *) win) |
167 |
#define swin ((statuswin *) win) |
168 |
#define ewin ((encodewin *) win) |
169 |
#define twin ((nate_win *) win) |
170 |
#define prwin ((progresswin *) win) |
171 |
#define mwin ((mailwin *) win) |
172 |
|
173 |
/* Get a FILE* to a Macintosh file |
174 |
******************************* ############################### |
175 |
* KLUDGE ALERT! KLUDGE ALERT! * # KLUDGE ALERT! KLUDGE ALERT! # |
176 |
******************************* ############################### |
177 |
* Mac files are specified by name/vRefNum/dirID combo, but the portable |
178 |
* portions of mpack use FILE* to do I/O. We need a way to get an open FILE* |
179 |
* from a file specified by name/vRefNum/dirID. Here we use the proper Macintosh |
180 |
* routines to open a file, then hack together a FILE* using ThinkC's internal |
181 |
* routines. The major trouble is that we have no way to get at the FILE action |
182 |
* procedure (fp->proc), so we need a sample FILE* to be passed in. Bleargh! |
183 |
******************************* ############################### |
184 |
* KLUDGE ALERT! KLUDGE ALERT! * # KLUDGE ALERT! KLUDGE ALERT! # |
185 |
******************************* ############################### |
186 |
*/ |
187 |
FILE *Macopen(FILE *sample, Str255 name, short vRefNum, long dirID, |
188 |
short binary_flag, short res_fork, SignedByte permission) |
189 |
{ |
190 |
FILE *fp = NULL; |
191 |
short refnum; |
192 |
long curEOF; |
193 |
OSErr err; |
194 |
|
195 |
if ((!res_fork && (err = HOpen(vRefNum, dirID, name, permission, &refnum)) == noErr) |
196 |
|| (res_fork && (err = HOpenRF(vRefNum, dirID, name, permission, &refnum)) == noErr)) { |
197 |
if ((fp = __getfile()) == NULL) { |
198 |
FSClose(refnum); |
199 |
} else { |
200 |
if (permission == fsWrPerm) { |
201 |
/* if we're writing to the file, truncate it */ |
202 |
SetEOF(refnum, curEOF = 0); |
203 |
} else { |
204 |
GetEOF(refnum, &curEOF); |
205 |
} |
206 |
fp->refnum = refnum; |
207 |
fp->len = (fpos_t) curEOF; |
208 |
fp->binary = binary_flag; |
209 |
setvbuf(fp, NULL, _IOFBF, BUFSIZ); |
210 |
fp->proc = sample->proc; |
211 |
} |
212 |
} |
213 |
|
214 |
return (fp); |
215 |
} |
216 |
|
217 |
|
218 |
/* warn the user |
219 |
*/ |
220 |
void warn(char *str) |
221 |
{ |
222 |
PCstr wstr[257]; |
223 |
|
224 |
CtoPCstrncpy(wstr, str, 255); |
225 |
ParamText(P(wstr), NULL, NULL, NULL); |
226 |
NAalert(warnALRT); |
227 |
} |
228 |
|
229 |
/* yell at the user |
230 |
*/ |
231 |
void yell(char *str) |
232 |
{ |
233 |
PCstr wstr[257]; |
234 |
|
235 |
CtoPCstrncpy(wstr, str, 255); |
236 |
ParamText(P(wstr), NULL, NULL, NULL); |
237 |
NAalert(errorALRT); |
238 |
} |
239 |
|
240 |
/* chat with user |
241 |
*/ |
242 |
chat(char *str) |
243 |
{ |
244 |
PCstr tmpstr[257]; |
245 |
|
246 |
CtoPCstrcpy(tmpstr, str); |
247 |
stattext(P(tmpstr), 0); |
248 |
} |
249 |
|
250 |
/* returns NA_ALLCLOSED if appropriate, else NA_CLOSED |
251 |
*/ |
252 |
static short alldone(na_win *win) |
253 |
{ |
254 |
if (win->next == NULL && win->afterp == NULL && (*mpack_prefs)->quit_finished |
255 |
&& RecoverHandle((Ptr) win) == (Handle) NAhead) { |
256 |
return (NA_ALLCLOSED); |
257 |
} |
258 |
|
259 |
return (NA_CLOSED); |
260 |
} |
261 |
|
262 |
/* update procedure for status dialog box |
263 |
*/ |
264 |
static short statupdate(na_win *win, Boolean newsize) |
265 |
{ |
266 |
RgnHandle savergn; |
267 |
unsigned char *s; |
268 |
short row, top; |
269 |
Rect tmpr; |
270 |
|
271 |
FrameRect(&swin->frect); |
272 |
savergn = NewRgn(); |
273 |
if (savergn) { |
274 |
GetClip(savergn); |
275 |
SetClip(swin->urgn); |
276 |
} |
277 |
|
278 |
/* redraw text area */ |
279 |
HLock(swin->text); |
280 |
s = * (unsigned char **) swin->text; |
281 |
top = swin->urect.top; |
282 |
for (row = 0; row < swin->row; ++row) { |
283 |
s += s[1] + 2; |
284 |
} |
285 |
for (; row < swin->nrow && top + swin->height <= swin->urect.bottom; ++row) { |
286 |
MoveTo(swin->urect.left, top + swin->ascent); |
287 |
if (*s) TextFace(1); |
288 |
DrawString(s + 1); |
289 |
if (*s) TextFace(0); |
290 |
/* advance to next string */ |
291 |
top += swin->height; |
292 |
s += s[1] + 2; |
293 |
} |
294 |
HUnlock(swin->text); |
295 |
|
296 |
if (savergn) { |
297 |
SetClip(savergn); |
298 |
DisposeRgn(savergn); |
299 |
} |
300 |
|
301 |
return (NA_NOTPROCESSED); |
302 |
} |
303 |
|
304 |
/* refresh status window |
305 |
*/ |
306 |
void statrefresh() |
307 |
{ |
308 |
na_win *win = curstatwin; |
309 |
|
310 |
Draw1Control(swin->sb); |
311 |
statupdate(win, false); |
312 |
} |
313 |
|
314 |
/* add text to the status window |
315 |
*/ |
316 |
void stattext(Str255 str, unsigned char bold) |
317 |
{ |
318 |
na_win *win = curstatwin; |
319 |
short i, len; |
320 |
unsigned char *s, *start; |
321 |
RgnHandle rgn; |
322 |
Rect tmpr; |
323 |
|
324 |
if (!win) return; |
325 |
didchat = 1; |
326 |
|
327 |
/* advance to next row */ |
328 |
if (swin->height * (swin->nrow++ - swin->row) |
329 |
>= swin->urect.bottom - swin->urect.top) { |
330 |
SetCtlMax(swin->sb, ++swin->row); |
331 |
SetCtlValue(swin->sb, swin->row); |
332 |
if ((rgn = NewRgn()) != NULL) { |
333 |
tmpr = swin->urect; |
334 |
ScrollRect(&tmpr, 0, -swin->height, rgn); |
335 |
DisposeRgn(rgn); |
336 |
} |
337 |
} |
338 |
|
339 |
/* add the text */ |
340 |
len = * (unsigned char *) str; |
341 |
if (swin->size - swin->used < len + 1) { |
342 |
SetHandleSize(swin->text, swin->size * 2); |
343 |
if (MemError() == 0) swin->size *= 2; |
344 |
} |
345 |
HLock(swin->text); |
346 |
s = start = * (unsigned char **) swin->text; |
347 |
for (i = 1; i < swin->nrow; ++i) { |
348 |
s += s[1] + 2; |
349 |
} |
350 |
if (len + 2 + s < start + swin->size) { |
351 |
*s = bold; |
352 |
memcpy(s + 1, str, len + 1); |
353 |
swin->used = s + len + 2 - start; |
354 |
} |
355 |
HUnlock(swin->text); |
356 |
statupdate(win, false); |
357 |
} |
358 |
|
359 |
/* scroll the status dialog |
360 |
*/ |
361 |
static void statscroll(na_win *win, short rows) |
362 |
{ |
363 |
RgnHandle rgn; |
364 |
|
365 |
if ((rgn = NewRgn()) != NULL) { |
366 |
SetCtlValue(swin->sb, swin->row += rows); |
367 |
ScrollRect(&swin->urect, 0, - swin->height * rows, rgn); |
368 |
EraseRgn(rgn); |
369 |
DisposeRgn(rgn); |
370 |
} |
371 |
statupdate(win, false); |
372 |
} |
373 |
|
374 |
/* scroll bar procedure |
375 |
*/ |
376 |
static pascal void statscollbar(ControlHandle ctrlh, short part) |
377 |
{ |
378 |
na_win *win = (na_win *) GetCRefCon(ctrlh); |
379 |
short max, new, page; |
380 |
|
381 |
max = GetCtlMax(ctrlh); |
382 |
page = (swin->urect.bottom - swin->urect.top) / swin->height - 1; |
383 |
switch (part) { |
384 |
case inUpButton: |
385 |
page = 1; |
386 |
/* fall through */ |
387 |
case inPageUp: |
388 |
if (swin->row > 0) { |
389 |
statscroll(win, - (swin->row < page ? swin->row : page)); |
390 |
} |
391 |
break; |
392 |
case inDownButton: |
393 |
page = 1; |
394 |
/* fall through */ |
395 |
case inPageDown: |
396 |
if (swin->row < max) { |
397 |
statscroll(win, max - swin->row < page ? max - swin->row : page); |
398 |
} |
399 |
break; |
400 |
case inThumb: |
401 |
break; |
402 |
} |
403 |
} |
404 |
|
405 |
/* control procedure for status dialog box |
406 |
*/ |
407 |
static short statctrl(na_win *win, Point p, short item, short mods, ControlHandle ctrlh) |
408 |
{ |
409 |
short value; |
410 |
|
411 |
if (ctrlh == swin->sb) { |
412 |
ctrlh = swin->sb; |
413 |
if (item != inThumb) { |
414 |
SetCRefCon(ctrlh, (long) win); |
415 |
TrackControl(ctrlh, p, statscollbar); |
416 |
} else { |
417 |
TrackControl(ctrlh, p, nil); |
418 |
value = GetCtlValue(ctrlh); |
419 |
if (value != swin->row) statscroll(win, value - swin->row); |
420 |
} |
421 |
} else if (item == iOk) { |
422 |
return (NA_REQCLOSE); |
423 |
} |
424 |
|
425 |
return (NA_NOTPROCESSED); |
426 |
} |
427 |
|
428 |
/* close procedure for status dialog box |
429 |
*/ |
430 |
static short statclose(na_win *win) |
431 |
{ |
432 |
DisposeRgn(swin->urgn); |
433 |
DisposHandle(swin->text); |
434 |
DisposeControl(swin->sb); |
435 |
|
436 |
return (alldone(win)); |
437 |
} |
438 |
|
439 |
/* init procedure for status dialog box |
440 |
*/ |
441 |
static short statinit(na_win *win, long *data) |
442 |
{ |
443 |
Rect tmpr; |
444 |
FontInfo finfo; |
445 |
|
446 |
/* disable OK button while working */ |
447 |
NAhiliteDItem(win->pwin, iOk, 255); |
448 |
|
449 |
/* set up status text area & font */ |
450 |
if ((swin->urgn = NewRgn()) == NULL) return (NA_CLOSED); |
451 |
TextFont(geneva); |
452 |
TextSize(9); |
453 |
GetFontInfo(&finfo); |
454 |
swin->ascent = finfo.ascent; |
455 |
swin->height = finfo.ascent + finfo.descent + finfo.leading; |
456 |
NAgetDRect(win->pwin, iStatus, &swin->frect); |
457 |
swin->urect = swin->frect; |
458 |
InsetRect(&swin->urect, 2, |
459 |
2 + ((swin->urect.bottom - swin->urect.top - 4) % swin->height) / 2); |
460 |
RectRgn(swin->urgn, &swin->urect); |
461 |
|
462 |
/* set up text storage */ |
463 |
if ((swin->text = NewHandle(swin->size = 1024)) == NULL) { |
464 |
DisposeRgn(swin->urgn); |
465 |
return (NA_CLOSED); |
466 |
} |
467 |
**(char **)swin->text = '\0'; |
468 |
|
469 |
/* set up scrollbar */ |
470 |
NAgetDRect(win->pwin, iStatScroll, &tmpr); |
471 |
swin->sb = NewControl(win->pwin, &tmpr, "\p", true, 0, 0, 0, scrollBarProc, 0); |
472 |
if (!swin->sb) { |
473 |
DisposeRgn(swin->urgn); |
474 |
DisposHandle(swin->text); |
475 |
return (NA_CLOSED); |
476 |
} |
477 |
|
478 |
/* set up procedures */ |
479 |
win->closep = statclose; |
480 |
win->ctrlp = statctrl; |
481 |
win->updatep = statupdate; |
482 |
|
483 |
/* keep window locked until decoding is done */ |
484 |
++win->locks; |
485 |
curstatwin = win; |
486 |
|
487 |
return (NA_NOTPROCESSED); |
488 |
} |
489 |
|
490 |
/* process the files in the file list |
491 |
*/ |
492 |
static void do_decodefiles(na_win *win) |
493 |
{ |
494 |
int count = dwin->count; |
495 |
filelist *fl; |
496 |
FILE *dfile, *tmpf; |
497 |
extern long _ftype, _fcreator; |
498 |
long ticks; |
499 |
int result; |
500 |
|
501 |
MapTypeCreator("text/plain", 0); |
502 |
SetCursor(&watch); |
503 |
if (NAwindow(0, NA_DIALOGWINDOW | NA_TITLEBAR | NA_DEFBUTTON | NA_USERESOURCE |
504 |
| NA_CLOSEBOX | NA_HASCONTROLS, |
505 |
0, dstatDLOG, 0, sizeof (statuswin), statinit) == NA_CLOSED) { |
506 |
warn("Not enough memory to decode"); |
507 |
return; |
508 |
} |
509 |
MoveHHi((Handle) dwin->hflist); |
510 |
HLock((Handle) dwin->hflist); |
511 |
fl = *dwin->hflist; |
512 |
tmpf = tmpfile(); |
513 |
while (count--) { |
514 |
stattext(fl->fname, 1); |
515 |
didchat = 0; |
516 |
if (dfile = Macopen(tmpf, fl->fname, fl->vRefNum, fl->dirID, 0, 0, 1)) { |
517 |
result = handleMessage(part_init(dfile), "text/plain", |
518 |
0, (*mpack_prefs)->extract_text); |
519 |
if (result != 0 || didchat <= 0) { |
520 |
if (didchat < 0) { |
521 |
chat("Decoding cancelled"); |
522 |
} else { |
523 |
chat("Found nothing to decode"); |
524 |
} |
525 |
} |
526 |
fclose(dfile); |
527 |
} else { |
528 |
chat("Couldn't find source file"); |
529 |
} |
530 |
++fl; |
531 |
} |
532 |
fclose(tmpf); |
533 |
HUnlock((Handle) dwin->hflist); |
534 |
NAhiliteDItem(curstatwin->pwin, iOk, 0); |
535 |
NAunlockWindow(curstatwin); |
536 |
curstatwin = NULL; |
537 |
SetCursor(&arrow); |
538 |
DisposHandle((Handle) dwin->hflist); |
539 |
} |
540 |
|
541 |
/* return non-zero if two filenames have the same prefix |
542 |
*/ |
543 |
static int fprefixMatch(char *base, PCstr *match) |
544 |
{ |
545 |
PCstr temp[257]; |
546 |
char *scan; |
547 |
short prefixlen; |
548 |
|
549 |
PtoPCstrcpy(temp, base); |
550 |
scan = C(temp) + PCstrlen(temp) - 1; |
551 |
while (isdigit(*scan) && scan > C(temp)) --scan; |
552 |
prefixlen = scan - C(temp) + 1; |
553 |
if (strncmp(C(temp), C(match), prefixlen)) return (0); |
554 |
scan = C(match) + prefixlen; |
555 |
while (isdigit(*scan)) ++scan; |
556 |
|
557 |
return (!*scan); |
558 |
} |
559 |
|
560 |
/* do the add of a file to a list |
561 |
*/ |
562 |
static void addit(listwin *dw, short vRefNum, long dirID, char *fname) |
563 |
{ |
564 |
long size = GetHandleSize((Handle) dw->hflist) / sizeof (filelist); |
565 |
filelist *fl; |
566 |
char *bp; |
567 |
Cell c; |
568 |
int i; |
569 |
PCstr fbuf[42]; |
570 |
|
571 |
if (size == dw->count) { |
572 |
SetHandleSize((Handle) dw->hflist, (++size * sizeof (filelist))); |
573 |
if (MemError() != noErr) return; |
574 |
} |
575 |
MoveHHi((Handle) dw->hflist); |
576 |
HLock((Handle) dw->hflist); |
577 |
fl = *dw->hflist; |
578 |
for (i = dw->count; i; --i, ++fl) { |
579 |
if (fl->vRefNum == vRefNum && fl->dirID == dirID && |
580 |
*fl->fname == *fname && !strncmp(C(fl->fname), C(fname), *fl->fname)) { |
581 |
break; |
582 |
} |
583 |
} |
584 |
if (!i) { |
585 |
fl->vRefNum = vRefNum; |
586 |
fl->dirID = dirID; |
587 |
PtoPCstrcpy(fl->fname, fname); |
588 |
SetPt(&c, 0, dw->count); |
589 |
LAddRow(1, ++dw->count, dw->l); |
590 |
LSetCell((Ptr) C(fname), (short) Pstrlen(fname), c, dw->l); |
591 |
} |
592 |
HUnlock((Handle) dw->hflist); |
593 |
} |
594 |
|
595 |
/* add file set to file list |
596 |
*/ |
597 |
static void addfile(dw, fspec) |
598 |
listwin *dw; |
599 |
FSSpec *fspec; |
600 |
{ |
601 |
CInfoPBRec cipbr; |
602 |
HFileInfo *fpb = (HFileInfo *)&cipbr; |
603 |
PCstr fbuf[42]; |
604 |
short idx, foundone = 0; |
605 |
long procid; |
606 |
|
607 |
/* remove working directory stuff */ |
608 |
if (fspec->parID == 0) { |
609 |
GetWDInfo(fspec->vRefNum, &fspec->vRefNum, &fspec->parID, &procid); |
610 |
} |
611 |
|
612 |
/* loop through directory */ |
613 |
for (idx = 1; ; ++idx) { |
614 |
fpb->ioVRefNum = fspec->vRefNum; |
615 |
fpb->ioNamePtr = P(fbuf); |
616 |
fpb->ioDirID = fspec->parID; |
617 |
fpb->ioFDirIndex = idx; |
618 |
if (PBGetCatInfoSync(&cipbr)) break; |
619 |
SetClen(fbuf); |
620 |
|
621 |
if (!(fpb->ioFlAttrib & 16) && fprefixMatch((char *)fspec->name, fbuf)) { |
622 |
addit(dw, fspec->vRefNum, fspec->parID, (char *) P(fbuf)); |
623 |
foundone = 1; |
624 |
} |
625 |
} |
626 |
if (!foundone) { |
627 |
addit(dw, fspec->vRefNum, fspec->parID, (char *) fspec->name); |
628 |
} |
629 |
} |
630 |
|
631 |
/* remove file from file list |
632 |
*/ |
633 |
static void removefile(dw) |
634 |
listwin *dw; |
635 |
{ |
636 |
filelist *fl; |
637 |
int count; |
638 |
Cell c; |
639 |
|
640 |
c.h = c.v = 0; |
641 |
if (LGetSelect(TRUE, &c, dw->l)) { |
642 |
MoveHHi((Handle) dw->hflist); |
643 |
HLock((Handle) dw->hflist); |
644 |
fl = *dw->hflist + c.v; |
645 |
count = dw->count - c.v; |
646 |
while (--count) { |
647 |
fl[0] = fl[1]; |
648 |
++fl; |
649 |
} |
650 |
HUnlock((Handle) dw->hflist); |
651 |
--dw->count; |
652 |
LDelRow(1, c.v, dw->l); |
653 |
} |
654 |
} |
655 |
|
656 |
/* close list window |
657 |
*/ |
658 |
static short listclose(win) |
659 |
na_win *win; |
660 |
{ |
661 |
LDispose(dwin->l); |
662 |
|
663 |
return (alldone(win)); |
664 |
} |
665 |
|
666 |
/* mouse procedure |
667 |
*/ |
668 |
static short listmouse(na_win *win, Point p, short type, short mods) |
669 |
{ |
670 |
Cell c; |
671 |
|
672 |
if (!(type & 1)) { |
673 |
LClick(p, mods, dwin->l); |
674 |
c.h = c.v = 0; |
675 |
NAhiliteDItem((DialogPtr)win->pwin, iRemove, LGetSelect(TRUE, &c, dwin->l) ? 0 : 255); |
676 |
} |
677 |
|
678 |
return (NA_NOTPROCESSED); |
679 |
} |
680 |
|
681 |
/* control procedure |
682 |
*/ |
683 |
static short listctrl(na_win *win, Point p, short item, short mods, ControlHandle ctrlh) |
684 |
{ |
685 |
StandardFileReply reply; |
686 |
|
687 |
switch (item) { |
688 |
case iAdd: |
689 |
NAgetFile(NULL, 1, textList, &reply); |
690 |
if (reply.sfGood) { |
691 |
if (!dwin->count) { |
692 |
NAhiliteDItem((DialogPtr)win->pwin, iOk, 0); |
693 |
} |
694 |
addfile(dwin, &reply.sfFile); |
695 |
} |
696 |
return (NA_PROCESSED); |
697 |
|
698 |
case iRemove: |
699 |
removefile(dwin); |
700 |
NAhiliteDItem((DialogPtr)win->pwin, iRemove, 255); |
701 |
if (!dwin->count) { |
702 |
NAhiliteDItem((DialogPtr)win->pwin, iOk, 255); |
703 |
} |
704 |
return (NA_PROCESSED); |
705 |
|
706 |
case iOk: |
707 |
win->afterp = do_decodefiles; |
708 |
case iCancel: |
709 |
return (NA_REQCLOSE); |
710 |
} |
711 |
|
712 |
return (NA_NOTPROCESSED); |
713 |
} |
714 |
|
715 |
/* update the list window |
716 |
*/ |
717 |
static short listupdate(na_win *win, Boolean resize) |
718 |
{ |
719 |
Rect r; |
720 |
|
721 |
NAgetDRect(win->pwin, iFileList, &r); |
722 |
FrameRect(&r); |
723 |
LUpdate(win->pwin->visRgn, dwin->l); |
724 |
|
725 |
return (NA_NOTPROCESSED); |
726 |
} |
727 |
|
728 |
/* initialize the list window |
729 |
*/ |
730 |
static short listinit(win, data) |
731 |
na_win *win; |
732 |
long *data; |
733 |
{ |
734 |
FSSpec *fspec = (FSSpec *) data; |
735 |
Rect r, zrect; |
736 |
Point p; |
737 |
Handle hand; |
738 |
short type; |
739 |
|
740 |
GetDItem((DialogPtr)win->pwin, iFileList, &type, &hand, &r); |
741 |
InsetRect(&r, 1, 1); |
742 |
zrect.top = zrect.bottom = zrect.left = p.h = p.v = 0;\ |
743 |
zrect.right = 1; |
744 |
dwin->l = LNew(&r, &zrect, p, 0, win->pwin, 0, 0, 0, 1); |
745 |
if (!dwin->l) return (NA_CLOSED); |
746 |
(*dwin->l)->selFlags = lOnlyOne; |
747 |
dwin->hflist = (filelist **) NewHandle(sizeof (filelist)); |
748 |
if (!dwin->hflist) { |
749 |
LDispose(dwin->l); |
750 |
return (NA_CLOSED); |
751 |
} |
752 |
dwin->count = 0; |
753 |
addfile(dwin, fspec); |
754 |
win->closep = listclose; |
755 |
win->updatep = listupdate; |
756 |
win->ctrlp = listctrl; |
757 |
win->mousep = listmouse; |
758 |
win->type = DECODELIST; |
759 |
NAhiliteDItem((DialogPtr)win->pwin, iRemove, 255); |
760 |
ShowWindow(win->pwin); |
761 |
LDoDraw(TRUE, dwin->l); |
762 |
|
763 |
return (NA_NOTPROCESSED); |
764 |
} |
765 |
|
766 |
/* Decode procedure: first get a file, then open decode window |
767 |
*/ |
768 |
static void do_decode(FSSpec *fspec) |
769 |
{ |
770 |
StandardFileReply infile; |
771 |
na_win **wh, *wp; |
772 |
|
773 |
if (!fspec) { |
774 |
NAgetFile(NULL, 1, textList, &infile); |
775 |
if (!infile.sfGood) return; |
776 |
fspec = &infile.sfFile; |
777 |
} else { |
778 |
/* file supplied by drag & drop, look for existing decode window: */ |
779 |
for (wh = NAhead; wh && (*wh)->type != DECODELIST; wh = (*wh)->next); |
780 |
if (wh && (wp = NAlockWindow(wh)) != NULL) { |
781 |
addfile((listwin *) wp, fspec); |
782 |
NAunlockWindow(wp); |
783 |
return; |
784 |
} |
785 |
} |
786 |
NAwindow(0, NA_DIALOGWINDOW | NA_USERESOURCE | NA_DEFBUTTON | |
787 |
NA_HASCONTROLS | NA_CLOSEBOX, NULL, decodeDLOG, (long *) fspec, |
788 |
sizeof (listwin), listinit); |
789 |
} |
790 |
|
791 |
/* Map MIME type to/from Macintosh file types |
792 |
*/ |
793 |
void MapTypeCreator(char *contenttype, OSType type) |
794 |
{ |
795 |
extern long _ftype, _fcreator; |
796 |
PCstr tstr[257]; |
797 |
Handle h; |
798 |
ICAttr attr; |
799 |
long size = 0; |
800 |
Ptr map; |
801 |
ICMapEntry *ment; |
802 |
unsigned char *scan, *end, *pstr; |
803 |
short mapcount, i, foundit = 0; |
804 |
OSType temp; |
805 |
|
806 |
if (!type) CtoPCstrncpy(tstr, contenttype, 255); |
807 |
|
808 |
/* first try a lookup via Internet Config */ |
809 |
if (icinst && ICBegin(icinst, icReadOnlyPerm) == noErr) { |
810 |
if (ICGetPref(icinst, kICMapping, &attr, nil, &size) == noErr |
811 |
&& size > 0 && (map = NewPtr(size)) != nil) { |
812 |
if (ICGetPref(icinst, kICMapping, &attr, map, &size) == noErr) { |
813 |
scan = (unsigned char *) map; |
814 |
end = scan + size; |
815 |
while (scan < end) { |
816 |
ment = (ICMapEntry *) scan; |
817 |
pstr = scan + ment->fixed_length; |
818 |
scan += ment->total_length; |
819 |
if (type && ment->file_type != type) continue; |
820 |
pstr += *pstr + 1; /* skip over extension */ |
821 |
pstr += *pstr + 1; /* skip over creator app name */ |
822 |
pstr += *pstr + 1; /* skip over post app name */ |
823 |
if (type) { |
824 |
PtoPCstrcpy((PCstr *) contenttype, (char *) pstr); |
825 |
foundit = 1; |
826 |
break; |
827 |
} else if (EqualString(P(tstr), pstr, false, true)) { |
828 |
_ftype = ment->file_type; |
829 |
_fcreator = ment->file_creator; |
830 |
foundit = 1; |
831 |
break; |
832 |
} |
833 |
} |
834 |
} |
835 |
DisposPtr(map); |
836 |
} |
837 |
ICEnd(icinst); |
838 |
} |
839 |
|
840 |
/* if we didn't find it, try our quick&dirty mappings */ |
841 |
if (!foundit) { |
842 |
if (type) { |
843 |
mapcount = CountResources('TyCr'); |
844 |
for (i = 1; i <= mapcount; ++i) { |
845 |
h = GetIndResource('TyCr', i); |
846 |
if (h && **(OSType **)h == type) { |
847 |
GetResInfo(h, &i, &temp, P(contenttype)); |
848 |
if (ResError() == noErr) break; |
849 |
} |
850 |
} |
851 |
SetClen((PCstr *) contenttype); |
852 |
} else { |
853 |
h = GetNamedResource('TyCr', P(tstr)); |
854 |
if (h) { |
855 |
_ftype = (*(OSType **)h)[0]; |
856 |
_fcreator = (*(OSType **)h)[1]; |
857 |
} else { |
858 |
_ftype = '????'; |
859 |
_fcreator = 'mPAK'; |
860 |
} |
861 |
} |
862 |
} |
863 |
} |
864 |
|
865 |
/* get internet config string prefs |
866 |
*/ |
867 |
static short getICprefs(na_win *win, PCstr *eaddr, PCstr *smtphost) |
868 |
{ |
869 |
char *scan, *end; |
870 |
ICAttr attr; |
871 |
long size; |
872 |
ICError err = noErr; |
873 |
|
874 |
*C(eaddr) = '\0'; |
875 |
SetPlen(eaddr); |
876 |
*C(smtphost) = '\0'; |
877 |
SetPlen(smtphost); |
878 |
if (icinst && ICBegin(icinst, icReadOnlyPerm) == noErr) { |
879 |
size = 256; |
880 |
if (ICGetPref(icinst, kICEmail, &attr, (Ptr) eaddr, &size) == noErr |
881 |
&& win && (attr & ICattr_locked_mask)) { |
882 |
NAenableDItem(win->pwin, iEmailAddr, 0); |
883 |
} |
884 |
SetClen(eaddr); |
885 |
size = 256; |
886 |
if (ICGetPref(icinst, kICSMTPHost, &attr, (Ptr) smtphost, &size) == noErr |
887 |
&& win && (attr & ICattr_locked_mask)) { |
888 |
NAenableDItem(win->pwin, iMailServer, 0); |
889 |
} |
890 |
SetClen(smtphost); |
891 |
ICEnd(icinst); |
892 |
} else { |
893 |
HLock((Handle) mpack_prefs); |
894 |
end = (char *) (*mpack_prefs) + GetHandleSize((Handle) mpack_prefs); |
895 |
scan = (*mpack_prefs)->internet_host; |
896 |
while (scan < end && *scan++); |
897 |
if (scan < end) CtoPCstrcpy(eaddr, scan); |
898 |
while (scan < end && *scan++); |
899 |
if (scan < end) CtoPCstrcpy(smtphost, scan); |
900 |
HUnlock((Handle) mpack_prefs); |
901 |
} |
902 |
} |
903 |
|
904 |
/* copy desc file, with word-wrap |
905 |
*/ |
906 |
static short copydesc(FILE *out, TEHandle hTE) |
907 |
{ |
908 |
char c; |
909 |
short i, count, word, col, reset; |
910 |
char **htxt; |
911 |
|
912 |
count = (*hTE)->teLength; |
913 |
htxt = (char **) (*hTE)->hText; |
914 |
for (i = word = col = 0; i < count; ++i) { |
915 |
c = (*htxt)[i]; |
916 |
reset = i - word == 80 || c == '\r'; |
917 |
if (reset || c == ' ') { |
918 |
while (word < i) putc((*htxt)[word], out), ++word; |
919 |
} |
920 |
if (reset || ++col == 80) { |
921 |
putc('\r', out); |
922 |
c = (*htxt)[word]; |
923 |
if (c == ' ' || c == '\r') ++word; |
924 |
col = 0; |
925 |
} |
926 |
} |
927 |
while (word < i) putc((*htxt)[word], out), ++word; |
928 |
rewind(out); |
929 |
} |
930 |
|
931 |
/* start up MacTCP callback |
932 |
*/ |
933 |
static void mytcpinit(short status) |
934 |
{ |
935 |
static DialogPtr dialog = NULL; |
936 |
GrafPtr save; |
937 |
Rect box; |
938 |
|
939 |
if (status < 0) { |
940 |
tcpstart = -1; |
941 |
} else if (status == 0) { |
942 |
tcpstart = 1; |
943 |
} else { |
944 |
if (!dialog && status < 100) { |
945 |
dialog = GetNewDialog(progDLOG, nil, (WindowPtr) -1); |
946 |
NAsetIText(dialog, iWorkText, "\pWaiting for MacTCP to finish. Press \021. to stop."); |
947 |
} |
948 |
if (dialog) { |
949 |
GetPort(&save); |
950 |
SetPort(dialog); |
951 |
NAgetDRect(dialog, iProgress, &box); |
952 |
FrameRect(&box); |
953 |
InsetRect(&box, 1, 1); |
954 |
box.right = box.left + (box.right - box.left) * status / 100; |
955 |
FillRect(&box, qd.dkGray); |
956 |
SetPort(save); |
957 |
if (status == 100) { |
958 |
DisposDialog(dialog); |
959 |
dialog = NULL; |
960 |
} |
961 |
} |
962 |
} |
963 |
} |
964 |
|
965 |
/* update the progress bar |
966 |
*/ |
967 |
static short progressupdate(na_win *win, Boolean newsize) |
968 |
{ |
969 |
Rect box; |
970 |
|
971 |
if (prwin->percent >= 0) { |
972 |
NAgetDRect(win->pwin, iProgress, &box); |
973 |
FrameRect(&box); |
974 |
InsetRect(&box, 1, 1); |
975 |
if (prwin->percent) { |
976 |
box.right = box.left + (box.right - box.left) * prwin->percent / 100; |
977 |
FillRect(&box, qd.dkGray); |
978 |
} else { |
979 |
EraseRect(&box); |
980 |
} |
981 |
} |
982 |
|
983 |
return (NA_NOTPROCESSED); |
984 |
} |
985 |
|
986 |
/* handle the cancel button |
987 |
*/ |
988 |
static short progressctrl(na_win *win, Point p, short item, short mods, |
989 |
ControlHandle ctrlh) |
990 |
{ |
991 |
return (item == iCancel ? NA_REQCLOSE : NA_NOTPROCESSED); |
992 |
} |
993 |
|
994 |
/* close progress window |
995 |
*/ |
996 |
static short progressclose(na_win *win) |
997 |
{ |
998 |
NAmodalMenus(0); |
999 |
|
1000 |
return (NA_CLOSED); |
1001 |
} |
1002 |
|
1003 |
/* make/go directory under prefs and return directory number |
1004 |
*/ |
1005 |
static OSErr prefsubdir(PCstr *name, long *dirID) |
1006 |
{ |
1007 |
CInfoPBRec cipbr; |
1008 |
DirInfo *dpb = &cipbr.dirInfo; |
1009 |
long subdir, dir; |
1010 |
short vref = pfolder->fspec.vRefNum; |
1011 |
OSErr err; |
1012 |
|
1013 |
err = DirCreate(vref, dir = pfolder->fspec.parID, P(name), &subdir); |
1014 |
if (err == dupFNErr) { |
1015 |
dpb->ioVRefNum = vref; |
1016 |
dpb->ioNamePtr = P(name); |
1017 |
dpb->ioDrDirID = dir; |
1018 |
dpb->ioFDirIndex = 0; |
1019 |
if ((err = PBGetCatInfoSync(&cipbr)) != noErr) return (err); |
1020 |
subdir = dpb->ioDrDirID; |
1021 |
} else if (err != noErr) { |
1022 |
return (err); |
1023 |
} |
1024 |
*dirID = subdir; |
1025 |
|
1026 |
return (noErr); |
1027 |
} |
1028 |
|
1029 |
/* smtp status task |
1030 |
*/ |
1031 |
static void smtpstat(void *wh, short code, short err, long num, char *errstr) |
1032 |
{ |
1033 |
na_win *win, **winh; |
1034 |
char msg[256]; |
1035 |
OSErr oserr = noErr; |
1036 |
|
1037 |
/* verify win is valid */ |
1038 |
for (winh = NAhead; winh && winh != wh; winh = (*winh)->next); |
1039 |
if (!winh) return; |
1040 |
|
1041 |
/* handle SMTP callback */ |
1042 |
win = NAlockWindow((na_win **) wh); |
1043 |
if (code == NASMTP_progress) { |
1044 |
prwin->percent = err; |
1045 |
progressupdate(win, false); |
1046 |
} else if (code == NASMTP_badaddr) { |
1047 |
sprintf(msg, "Invalid address: <%s>. Email will be sent to valid recipients.", |
1048 |
errstr); |
1049 |
yell(msg); |
1050 |
} else { |
1051 |
switch (code) { |
1052 |
case NASMTP_nomem: |
1053 |
yell("Not enough memory to send email"); |
1054 |
break; |
1055 |
case NASMTP_tcpfail: |
1056 |
yell("Failed to connect to mail host"); |
1057 |
break; |
1058 |
case NASMTP_temperr: |
1059 |
case NASMTP_permerr: |
1060 |
sprintf(msg, "Delivery failed: %s", errstr); |
1061 |
yell(msg); |
1062 |
break; |
1063 |
default: |
1064 |
yell("Mail delivery failed."); |
1065 |
case NASMTP_completed: |
1066 |
break; |
1067 |
} |
1068 |
mwin->sending = false; |
1069 |
oserr = HDelete(mwin->fspec.vRefNum, mwin->fspec.parID, mwin->fspec.name); |
1070 |
} |
1071 |
if (oserr != noErr && oserr != fnfErr) { |
1072 |
if (mwin->remaining) ++mwin->cpb.hFileInfo.ioFDirIndex; |
1073 |
yell("Unable to remove temporary email file."); |
1074 |
} |
1075 |
NAunlockWindowh((na_win **) wh, win); |
1076 |
} |
1077 |
|
1078 |
/* Get the email hostname |
1079 |
*/ |
1080 |
static void mailhost(void *user, na_tcp s, short status, long size, char *data) |
1081 |
{ |
1082 |
struct mpack_preferences *mp; |
1083 |
char *ihost; |
1084 |
na_win *win, **winh; |
1085 |
long len, oldsize; |
1086 |
|
1087 |
/* first make sure our window still exists */ |
1088 |
for (winh = NAhead; winh && winh != user; winh = (*winh)->next); |
1089 |
if (!winh) return; |
1090 |
win = NAlockWindow(winh); |
1091 |
|
1092 |
/* check for errors */ |
1093 |
if (status != NATCP_connect) { |
1094 |
warn("Failed to get hostname from MacTCP"); |
1095 |
} else { |
1096 |
mwin->gothost = true; |
1097 |
if (data[size - 1] == '.') --size; |
1098 |
|
1099 |
/* update internet_host preference */ |
1100 |
len = strlen((*mpack_prefs)->internet_host); |
1101 |
oldsize = GetHandleSize((Handle) mpack_prefs); |
1102 |
if (len < size) { |
1103 |
SetHandleSize((Handle) mpack_prefs, oldsize + (size - len)); |
1104 |
if (MemError() != noErr) return; |
1105 |
} |
1106 |
HLock((Handle) mpack_prefs); |
1107 |
mp = *mpack_prefs; |
1108 |
ihost = mp->internet_host; |
1109 |
memmove(ihost + size + 1, ihost + len + 1, |
1110 |
oldsize - len - 1 - ((char *) ihost - (char *) mp)); |
1111 |
memcpy(ihost, data, size); |
1112 |
ihost[size] = '\0'; |
1113 |
HUnlock((Handle) mpack_prefs); |
1114 |
} |
1115 |
NAunlockWindowh(winh, win); |
1116 |
} |
1117 |
|
1118 |
/* clean up mail task |
1119 |
*/ |
1120 |
static short mailclose(na_win *win) |
1121 |
{ |
1122 |
if (mwin->dfile != NULL) fclose(mwin->dfile); |
1123 |
if (mwin->envelope) DisposeHandle(mwin->envelope); |
1124 |
if (mwin->headers) DisposeHandle(mwin->headers); |
1125 |
NAmodalMenus(0); |
1126 |
|
1127 |
return (alldone(win)); |
1128 |
} |
1129 |
|
1130 |
/* send email |
1131 |
*/ |
1132 |
static short mailtask(na_win *win) |
1133 |
{ |
1134 |
short vrefnum, encoding, refnum, result; |
1135 |
long procid; |
1136 |
FILE *tmpf, *fp, *resfork; |
1137 |
OSErr err; |
1138 |
CInfoPBRec cipbr; |
1139 |
HFileInfo *fpb = (HFileInfo *)&cipbr; |
1140 |
PCstr tstr[257], mtype[257], fname[257]; |
1141 |
extern long _ftype, _fcreator; |
1142 |
|
1143 |
switch (mwin->state) { |
1144 |
case MS_MACTCP: |
1145 |
if (tcpstart < 0) { |
1146 |
yell("Couldn't find MacTCP"); |
1147 |
return (NA_REQCLOSE); |
1148 |
} |
1149 |
if (tcpstart == 0) break; |
1150 |
++mwin->state; |
1151 |
NAsetIText(win->pwin, iWorkText, "\pGetting Hostname"); |
1152 |
mwin->gothost = false; |
1153 |
NATCPgethost(mailhost, (void *) GetWRefCon(win->pwin)); |
1154 |
/* fall through */ |
1155 |
case MS_GETHOST: |
1156 |
if (!mwin->gothost) break; |
1157 |
++mwin->state; |
1158 |
/* fall through */ |
1159 |
case MS_ENCODE: |
1160 |
NAsetIText(win->pwin, iWorkText, "\pEncoding file"); |
1161 |
|
1162 |
/* get temp output filename for email */ |
1163 |
if (mwin->useemail) { |
1164 |
mwin->ofile.vRefNum = pfolder->fspec.vRefNum; |
1165 |
memcpy(mwin->ofile.name, "\pemail", 6); |
1166 |
if (prefsubdir("\poutgoing-email", &mwin->ofile.parID) != noErr) { |
1167 |
yell("Failed to write encoded file"); |
1168 |
return (NA_REQCLOSE); |
1169 |
} |
1170 |
} |
1171 |
|
1172 |
/* set file type */ |
1173 |
SetCursor(&watch); |
1174 |
MapTypeCreator((char *) mtype, mwin->ftype); |
1175 |
|
1176 |
/* Determine the correct encoding */ |
1177 |
encoding = (*mpack_prefs)->encoding; |
1178 |
fpb->ioVRefNum = mwin->fspec.vRefNum; |
1179 |
fpb->ioNamePtr = mwin->fspec.name; |
1180 |
fpb->ioDirID = mwin->fspec.parID; |
1181 |
fpb->ioFDirIndex = 0; |
1182 |
if (PBGetCatInfoSync(&cipbr) != noErr) { |
1183 |
SetCursor(&arrow); |
1184 |
yell("File disappeared before being encoded!"); |
1185 |
return (NA_REQCLOSE); |
1186 |
} |
1187 |
if (encoding == EN_AUTO) { |
1188 |
encoding = EN_DOUBLE; |
1189 |
if (!fpb->ioFlRLgLen && *mtype != '\0') encoding = EN_DATA; |
1190 |
} |
1191 |
if (!fpb->ioFlLgLen) encoding = EN_SINGLE; |
1192 |
|
1193 |
/* do applesingle/appledouble encoding */ |
1194 |
tmpf = tmpfile(); |
1195 |
fp = Macopen(tmpf, mwin->fspec.name, mwin->fspec.vRefNum, mwin->fspec.parID, |
1196 |
strcmp(C(mtype), "text/plain") ? 1 : 0, 0, fsRdPerm); |
1197 |
if (!fp) { |
1198 |
fclose(tmpf); |
1199 |
SetCursor(&arrow); |
1200 |
yell("Couldn't save encoded file"); |
1201 |
return (NA_REQCLOSE); |
1202 |
} |
1203 |
if (encoding == EN_DATA) { |
1204 |
fclose(tmpf); |
1205 |
tmpf = NULL; |
1206 |
} else { |
1207 |
/* open resource fork & output file for applesingle/double encoding */ |
1208 |
resfork = Macopen(tmpf, mwin->fspec.name, mwin->fspec.vRefNum, |
1209 |
mwin->fspec.parID, 1, 1, 1); |
1210 |
if (encode_applefile(tmpf, fpb, resfork, encoding == EN_SINGLE ? fp : NULL) < 0) { |
1211 |
SetCursor(&arrow); |
1212 |
yell("Couldn't save encoded file"); |
1213 |
return (NA_REQCLOSE); |
1214 |
} |
1215 |
rewind(tmpf); |
1216 |
if (encoding == EN_SINGLE) { |
1217 |
fp = tmpf; |
1218 |
tmpf = NULL; |
1219 |
strcpy(C(mtype), "application/applefile"); |
1220 |
SetPlen(mtype); |
1221 |
} |
1222 |
} |
1223 |
|
1224 |
/* generate output files */ |
1225 |
_fcreator = 'mPAK'; |
1226 |
_ftype = 'TEXT'; |
1227 |
GetVol(0, &vrefnum); |
1228 |
err = OpenWD(mwin->ofile.vRefNum, mwin->ofile.parID, 0, &refnum); |
1229 |
SetVol(0, err == noErr ? refnum : mwin->ofile.vRefNum); |
1230 |
PtoPCstrcpy(tstr, (char *) mwin->ofile.name); |
1231 |
PtoPCstrcpy(fname, (char *) mwin->fspec.name); |
1232 |
result = encode(fp, tmpf, C(fname), mwin->dfile, C(mwin->subj), NULL, |
1233 |
mwin->partsize, PCstrlen(mtype) ? C(mtype) : NULL, C(tstr)); |
1234 |
if (err == noErr) CloseWD(refnum); |
1235 |
SetVol(0, vrefnum); |
1236 |
if (tmpf) fclose(tmpf); |
1237 |
fclose(fp); |
1238 |
if (mwin->dfile) { |
1239 |
fclose(mwin->dfile); |
1240 |
mwin->dfile = NULL; |
1241 |
} |
1242 |
SetCursor(&arrow); |
1243 |
if (!mwin->useemail) return (NA_REQCLOSE); |
1244 |
prwin->percent = 0; |
1245 |
progressupdate(win, false); |
1246 |
++mwin->state; |
1247 |
|
1248 |
/* count files */ |
1249 |
mwin->cpb.dirInfo.ioVRefNum = mwin->ofile.vRefNum; |
1250 |
mwin->cpb.dirInfo.ioDrDirID = mwin->dirID = mwin->ofile.parID; |
1251 |
mwin->cpb.dirInfo.ioFDirIndex = -1; |
1252 |
if (PBGetCatInfoSync(&mwin->cpb) != noErr) { |
1253 |
return (NA_CLOSED); |
1254 |
} |
1255 |
mwin->remaining = mwin->cpb.dirInfo.ioDrNmFls; |
1256 |
mwin->cpb.dirInfo.ioFDirIndex = 1; |
1257 |
/* fall through */ |
1258 |
case MS_SENDING: |
1259 |
if (mwin->sending) break; |
1260 |
if (!mwin->remaining) return (NA_REQCLOSE); |
1261 |
sprintf(C(tstr), "Email parts remaining to submit: %d", mwin->remaining--); |
1262 |
SetPlen(tstr); |
1263 |
NAsetIText(win->pwin, iWorkText, tstr); |
1264 |
prwin->percent = 0; |
1265 |
progressupdate(win, false); |
1266 |
mwin->cpb.hFileInfo.ioDirID = mwin->dirID; |
1267 |
mwin->cpb.hFileInfo.ioNamePtr = (StringPtr) &mwin->fspec.name; |
1268 |
if (PBGetCatInfoSync(&mwin->cpb) != noErr) { |
1269 |
yell("Email disappeared before submission!"); |
1270 |
return (NA_REQCLOSE); |
1271 |
} |
1272 |
mwin->sending = true; |
1273 |
mwin->fspec.vRefNum = mwin->cpb.hFileInfo.ioVRefNum; |
1274 |
mwin->fspec.parID = mwin->dirID; |
1275 |
NASMTPsubmit(smtpstat, C(mwin->server), &mwin->fspec, |
1276 |
mwin->headers, mwin->envelope, |
1277 |
NASMTP_crtrans, (void *) GetWRefCon(win->pwin)); |
1278 |
break; |
1279 |
} |
1280 |
|
1281 |
return (NA_NOTPROCESSED); |
1282 |
} |
1283 |
|
1284 |
/* Following routine stolen from Mark Crispin's c-client library: |
1285 |
* |
1286 |
* Write current time in RFC 822 format |
1287 |
* Accepts: destination string |
1288 |
* |
1289 |
* This depends upon the ReadLocation() call in System 7 and the |
1290 |
* user properly setting his location/timezone in the Map control |
1291 |
* panel. |
1292 |
* 2/95 - I added support for dlsDelta & compatibility checking |
1293 |
*/ |
1294 |
void rfc822_date(char *string) |
1295 |
{ |
1296 |
long tz, tzm; |
1297 |
time_t ti = time (0); |
1298 |
struct tm *t = localtime (&ti); |
1299 |
MachineLocation loc; |
1300 |
|
1301 |
/* output date */ |
1302 |
strcpy(string, "Date: "); |
1303 |
string += 6; |
1304 |
strftime (string,1024,"%a, %d %b %Y %H:%M:%S ",t); |
1305 |
/* now output time zone, if we can get it */ |
1306 |
tz = 0; |
1307 |
if (Gestalt(gestaltScriptMgrVersion, &tz) == noErr && tz >= 200) { |
1308 |
ReadLocation(&loc); /* get location/timezone */ |
1309 |
/* get sign-extended time zone */ |
1310 |
tz = (loc.gmtFlags.gmtDelta & 0x00ffffff) | |
1311 |
((loc.gmtFlags.gmtDelta & 0x00800000) ? 0xff000000 : 0); |
1312 |
tz /= 60; /* get timezone in minutes */ |
1313 |
tzm = tz % 60; /* get minutes from the hour */ |
1314 |
sprintf (string += strlen(string),"%+03ld%02ld", |
1315 |
tz/60,tzm >= 0 ? tzm : -tzm); |
1316 |
if (!tzm && tz <= -240 && tz >= -660) { |
1317 |
string += strlen(string); |
1318 |
if (loc.gmtFlags.dlsDelta & 0x80) { |
1319 |
sprintf(string, " (%cDT)", "AECMPYHB"[- (tz / 60) - 3]); |
1320 |
} else { |
1321 |
sprintf(string, " (%cST)", "AECMPYHB"[- (tz / 60) - 4]); |
1322 |
} |
1323 |
} |
1324 |
} else { |
1325 |
sprintf(string + strlen(string), "+0000 (Local Time Zone Unknown)"); |
1326 |
} |
1327 |
} |
1328 |
|
1329 |
/* init mail sending |
1330 |
*/ |
1331 |
static short mailinit(na_win *win, long *data) |
1332 |
{ |
1333 |
encodewin *ew = (encodewin *) data; |
1334 |
WindowPtr pwin = ew->w.winp.pwin; |
1335 |
ControlHandle ctrlh; |
1336 |
PCstr tstr[257], email[257]; |
1337 |
|
1338 |
/* copy values from encode window */ |
1339 |
NAgetIText(pwin, iSubj, mwin->subj); |
1340 |
NAgetIText(pwin, iEmailto, email); |
1341 |
mwin->partsize = ew->partsize; |
1342 |
mwin->useemail = ew->useemail; |
1343 |
mwin->fspec = ew->fspec; |
1344 |
mwin->ftype = ew->ftype; |
1345 |
mwin->ofile = ew->ofile; |
1346 |
|
1347 |
/* copy desc file */ |
1348 |
mwin->dfile = NULL; |
1349 |
if ((*ew->w.hTE)->teLength && (mwin->dfile = tmpfile()) != NULL) { |
1350 |
copydesc(mwin->dfile, ew->w.hTE); |
1351 |
} |
1352 |
|
1353 |
/* set procedures */ |
1354 |
win->taskp = mailtask; |
1355 |
win->updatep = progressupdate; |
1356 |
win->ctrlp = progressctrl; |
1357 |
win->closep = mailclose; |
1358 |
|
1359 |
/* Customize Progress window, set up envelope & headers for email */ |
1360 |
prwin->percent = -1; |
1361 |
NAgetDHandle(win->pwin, iCancel, &ctrlh); |
1362 |
SetCTitle(ctrlh, "\pStop"); |
1363 |
NAmodalMenus(1); |
1364 |
if (!mwin->useemail) { |
1365 |
mwin->state = MS_ENCODE; |
1366 |
} else { |
1367 |
if (!tcpstart) NATCPinit(mytcpinit); |
1368 |
NAsetIText(win->pwin, iWorkText, "\pLooking for MacTCP"); |
1369 |
mwin->state = MS_MACTCP; |
1370 |
|
1371 |
/* create envelope, get server */ |
1372 |
getICprefs(NULL, tstr, mwin->server); |
1373 |
if (PtrToHand(C(tstr), &mwin->envelope, PCstrlen(tstr) + 1) != noErr |
1374 |
|| PtrAndHand(C(email), mwin->envelope, PCstrlen(email) + 1) != noErr) { |
1375 |
if (mwin->envelope) DisposeHandle(mwin->envelope); |
1376 |
return (NA_CLOSED); |
1377 |
} |
1378 |
|
1379 |
/* create headers */ |
1380 |
if ((mwin->headers = NewHandle(1024)) == NULL) { |
1381 |
DisposeHandle(mwin->envelope); |
1382 |
return (NA_CLOSED); |
1383 |
} |
1384 |
HLock(mwin->headers); |
1385 |
rfc822_date((char *) *mwin->headers); |
1386 |
sprintf((char *) (*mwin->headers) + strlen((char *) (*mwin->headers)), |
1387 |
"\r\nFrom: %s\r\nTo: %s\r\n", C(tstr), C(email)); |
1388 |
HUnlock(mwin->headers); |
1389 |
SetHandleSize(mwin->headers, strlen((char *) (*mwin->headers))); |
1390 |
} |
1391 |
|
1392 |
return (NA_NOTPROCESSED); |
1393 |
} |
1394 |
|
1395 |
/* update the encode window |
1396 |
*/ |
1397 |
static short encodeupdate(na_win *win, Boolean newsize) |
1398 |
{ |
1399 |
Rect btmp; |
1400 |
ControlHandle ctrlh; |
1401 |
|
1402 |
/* draw double-line */ |
1403 |
NAgetDRect(win->pwin, iBar, &btmp); |
1404 |
FrameRect(&btmp); |
1405 |
|
1406 |
/* draw disabled edittext boxes */ |
1407 |
NAgetDHandle(win->pwin, iLimit, &ctrlh); |
1408 |
if (!GetCtlValue(ctrlh)) { |
1409 |
NAhiliteDItem(win->pwin, iPartLimit, 255); |
1410 |
} |
1411 |
if (NAradioGet(win->pwin, iEmail, iSavefile) == iSavefile) { |
1412 |
NAhiliteDItem(win->pwin, iEmailto, 255); |
1413 |
} |
1414 |
|
1415 |
return (NATEupdatep(win, newsize)); |
1416 |
} |
1417 |
|
1418 |
/* select desc text |
1419 |
*/ |
1420 |
static short seldesctext(na_win *win) |
1421 |
{ |
1422 |
win->activep = NATEactivep; |
1423 |
win->idlep = NATEidlep; |
1424 |
NATEactivep(win, true); |
1425 |
ewin->nateon = true; |
1426 |
SelIText(win->pwin, iDescEdit, 0, 0); |
1427 |
TESetSelect(32767, 32767, twin->hTE); |
1428 |
} |
1429 |
|
1430 |
/* encode control proc |
1431 |
*/ |
1432 |
static short encodectrl(na_win *win, Point p, short item, |
1433 |
short mods, ControlHandle ctrlh) |
1434 |
{ |
1435 |
short value; |
1436 |
DialogPeek dpeek = (DialogPeek) win->pwin; |
1437 |
char *scan; |
1438 |
Boolean good; |
1439 |
StandardFileReply reply; |
1440 |
PCstr tstr[257]; |
1441 |
|
1442 |
if (ctrlh == twin->vctrl) { |
1443 |
return (NATEctrlp(win, p, item, mods, ctrlh)); |
1444 |
} |
1445 |
switch (item) { |
1446 |
case iOk: |
1447 |
/* get part size */ |
1448 |
ewin->partsize = 0; |
1449 |
NAgetDHandle(win->pwin, iLimit, &ctrlh); |
1450 |
if (GetCtlValue(ctrlh)) { |
1451 |
NAgetIText(win->pwin, iPartLimit, tstr); |
1452 |
ewin->partsize = atol(C(tstr)) * 1000; |
1453 |
} |
1454 |
NAgetIText(win->pwin, iEmailto, tstr); |
1455 |
ewin->useemail = NAradioGet(win->pwin, iEmail, iSavefile) == iEmail; |
1456 |
if (ewin->useemail) { |
1457 |
/* verify email address */ |
1458 |
if (!strchr(C(tstr), '@')) { |
1459 |
yell("Invalid Email address, please re-enter"); |
1460 |
SelIText(win->pwin, iEmailto, 0, 32767); |
1461 |
break; |
1462 |
} |
1463 |
} else { |
1464 |
/* get output filename */ |
1465 |
PtoPCstrcpy(tstr, (char *) ewin->fspec.name); |
1466 |
if (PCstrlen(tstr) > 23) { |
1467 |
PCstrlen(tstr) = 23; |
1468 |
SetClen(tstr); |
1469 |
} |
1470 |
strcat(C(tstr), ".mime"); |
1471 |
SetPlen(tstr); |
1472 |
do { |
1473 |
NAputFile(ewin->partsize ? "\pPart prefix" : "\pEmail file:", |
1474 |
tstr, &reply); |
1475 |
good = true; |
1476 |
if (reply.sfGood |
1477 |
&& EqualString(reply.sfFile.name, |
1478 |
ewin->fspec.name, true, false)) { |
1479 |
good = false; |
1480 |
yell("The output filename must be different from the input filename"); |
1481 |
} |
1482 |
} while (!good); |
1483 |
if (!reply.sfGood) break; |
1484 |
ewin->ofile = reply.sfFile; |
1485 |
} |
1486 |
if (NAwindow(0, NA_DIALOGWINDOW | NA_TITLEBAR | NA_HASTASK |
1487 |
| NA_USERESOURCE | NA_MODAL, NULL, progDLOG, |
1488 |
(long *) win, sizeof (mailwin), mailinit) == NA_CLOSED) { |
1489 |
warn("Not enough memory to proceed"); |
1490 |
break; |
1491 |
} |
1492 |
case iCancel: |
1493 |
return (NA_REQCLOSE); |
1494 |
case iEmail: |
1495 |
case iSavefile: |
1496 |
NAradioSet(win->pwin, iEmail, iSavefile, item); |
1497 |
NAenableDItem(win->pwin, iEmailto, item == iEmail ? 1 : 0); |
1498 |
NAhiliteDItem(win->pwin, iEmailto, item == iEmail ? 0 : 255); |
1499 |
if (item == iEmail || dpeek->editField == iEmailto - 1) { |
1500 |
SelIText(win->pwin, item == iEmail ? iEmailto : iSubj, 0, 32767); |
1501 |
} |
1502 |
break; |
1503 |
case iLimit: |
1504 |
SetCtlValue(ctrlh, value = !GetCtlValue(ctrlh)); |
1505 |
NAenableDItem(win->pwin, iPartLimit, value ? 1 : 0); |
1506 |
NAhiliteDItem(win->pwin, iPartLimit, value ? 0 : 255); |
1507 |
if (value || dpeek->editField == iPartLimit - 1) { |
1508 |
SelIText(win->pwin, value ? iPartLimit : iSubj, 0, 32767); |
1509 |
} |
1510 |
break; |
1511 |
case iDescEdit: |
1512 |
case iSubj: |
1513 |
case iEmailto: |
1514 |
case iPartLimit: |
1515 |
if (!ewin->nateon && dpeek->editField == iDescEdit - 1) { |
1516 |
seldesctext(win); |
1517 |
} |
1518 |
break; |
1519 |
} |
1520 |
if (ewin->nateon && dpeek->editField != iDescEdit - 1) { |
1521 |
win->activep = NULL; |
1522 |
win->idlep = NULL; |
1523 |
NATEactivep(win, false); |
1524 |
ewin->nateon = false; |
1525 |
} |
1526 |
|
1527 |
return (NA_NOTPROCESSED); |
1528 |
} |
1529 |
|
1530 |
/* encode key proc |
1531 |
*/ |
1532 |
static short encodekey(na_win *win, long c, short mods) |
1533 |
{ |
1534 |
if (!(mods & cmdKey)) { |
1535 |
if (ewin->nateon && c != '\t' && c != '\n' && c != '\3' && c != '\033') { |
1536 |
return (NATEkeyp(win, c, mods)); |
1537 |
} |
1538 |
} |
1539 |
|
1540 |
return (NA_NOTPROCESSED); |
1541 |
} |
1542 |
|
1543 |
/* menu proc for encode window |
1544 |
*/ |
1545 |
static short encodemenu(na_win *win, WORD menu, WORD item) |
1546 |
{ |
1547 |
StandardFileReply descfile; |
1548 |
MenuHandle mf = NAmenuh(mFile); |
1549 |
short result = NA_NOTPROCESSED; |
1550 |
short refnum; |
1551 |
long size; |
1552 |
Ptr text; |
1553 |
Boolean success; |
1554 |
|
1555 |
switch (menu) { |
1556 |
case 0: |
1557 |
EnableItem(mf, iInsert); |
1558 |
/* fall through */ |
1559 |
case mEdit: |
1560 |
result = ewin->nateon ? NATEmenup(win, menu, item) |
1561 |
: NAdialogMenu(win, menu, item); |
1562 |
break; |
1563 |
case mFile: |
1564 |
if (item != iInsert) break; |
1565 |
result = NA_PROCESSED; |
1566 |
NAgetFile(NULL, 1, textList, &descfile); |
1567 |
if (!descfile.sfGood) break; |
1568 |
if (HOpen(descfile.sfFile.vRefNum, descfile.sfFile.parID, |
1569 |
descfile.sfFile.name, fsRdPerm, &refnum) != noErr) { |
1570 |
warn("Failed to open file"); |
1571 |
break; |
1572 |
} |
1573 |
text = NULL; |
1574 |
success = GetEOF(refnum, &size) == noErr && (text = NewPtr(size)) != NULL |
1575 |
&& FSRead(refnum, &size, text) == noErr; |
1576 |
if (success) { |
1577 |
TEInsert(text, size, twin->hTE); |
1578 |
TESelView(twin->hTE); |
1579 |
NATEsetscroll(win, false, (Rect*) NULL, (Rect*) NULL); |
1580 |
} else { |
1581 |
warn("Failed to read file"); |
1582 |
} |
1583 |
if (text) DisposPtr(text); |
1584 |
FSClose(refnum); |
1585 |
break; |
1586 |
} |
1587 |
if (menu != 0) DisableItem(mf, iInsert); |
1588 |
|
1589 |
return (result); |
1590 |
} |
1591 |
|
1592 |
/* mouse proc for encode window |
1593 |
*/ |
1594 |
static short encodemouse(na_win *win, Point p, short type, short mods) |
1595 |
{ |
1596 |
if (p.v >= twin->topoff && !ewin->nateon) seldesctext(win); |
1597 |
|
1598 |
return (NATEmousep(win, p, type, mods)); |
1599 |
} |
1600 |
|
1601 |
/* close the encode window |
1602 |
*/ |
1603 |
static short encodeclose(na_win *win) |
1604 |
{ |
1605 |
NATEclosep(win); |
1606 |
|
1607 |
return (NA_CLOSED); |
1608 |
} |
1609 |
|
1610 |
/* init the encode window |
1611 |
*/ |
1612 |
static short encodeinit(na_win *win, long *data) |
1613 |
{ |
1614 |
StandardFileReply *sf = (StandardFileReply *) data; |
1615 |
Rect rtmp, btmp; |
1616 |
FontInfo finfo; |
1617 |
|
1618 |
/* copy data */ |
1619 |
ewin->fspec = sf->sfFile; |
1620 |
ewin->ftype = sf->sfType; |
1621 |
|
1622 |
/* set sizing limits */ |
1623 |
NAgetDRect(win->pwin, iBar, &btmp); |
1624 |
rtmp = win->pwin->portRect; |
1625 |
win->minw = win->maxw = rtmp.right - rtmp.left; |
1626 |
win->minh = btmp.bottom + 64; |
1627 |
twin->topoff = btmp.bottom; |
1628 |
|
1629 |
/* init text area */ |
1630 |
TextFont(monaco); |
1631 |
TextSize(9); |
1632 |
GetFontInfo(&finfo); |
1633 |
NATEinit(win, NATE_NOHSCROLL, 80 * finfo.widMax + 2, NULL, 0); |
1634 |
ewin->nateon = 0; |
1635 |
TextFont(0); |
1636 |
TextSize(0); |
1637 |
|
1638 |
/* set control values */ |
1639 |
NAradioSet(win->pwin, iEmail, iSavefile, iSavefile); |
1640 |
if (tcpstart < 0) NAhiliteDItem(win->pwin, iEmail, 255); |
1641 |
NAenableDItem(win->pwin, iEmailto, 0); |
1642 |
NAenableDItem(win->pwin, iPartLimit, 0); |
1643 |
NAsetIText(win->pwin, iSubj, ewin->fspec.name); |
1644 |
SelIText(win->pwin, iSubj, 0, 32767); |
1645 |
SetWTitle(win->pwin, ewin->fspec.name); |
1646 |
ShowWindow(win->pwin); |
1647 |
|
1648 |
/* set window procedures */ |
1649 |
win->updatep = encodeupdate; |
1650 |
win->closep = encodeclose; |
1651 |
win->keyp = encodekey; |
1652 |
win->ctrlp = encodectrl; |
1653 |
win->mousep = encodemouse; |
1654 |
win->menup = encodemenu; |
1655 |
win->idlep = NULL; |
1656 |
win->activep = NULL; |
1657 |
|
1658 |
return (NA_NOTPROCESSED); |
1659 |
} |
1660 |
|
1661 |
/* Encode procedure: first get a file, then open encode save window |
1662 |
*/ |
1663 |
static void do_encode(FSSpec *fspec, OSType ftype) |
1664 |
{ |
1665 |
StandardFileReply infile; |
1666 |
|
1667 |
if (!fspec) { |
1668 |
NAgetFile(NULL, -1, NULL, &infile); |
1669 |
if (!infile.sfGood) return; |
1670 |
} else { |
1671 |
infile.sfFile = *fspec; |
1672 |
infile.sfType = ftype; |
1673 |
} |
1674 |
NAwindow(NULL, NA_DIALOGWINDOW | NA_TITLEBAR | NA_GROWBOX | NA_USERESOURCE |
1675 |
| NA_DEFBUTTON | NA_HASCONTROLS, |
1676 |
NULL, sendDLOG, (long *) &infile, sizeof (encodewin), encodeinit); |
1677 |
} |
1678 |
|
1679 |
/* Open a file via drag&drop |
1680 |
*/ |
1681 |
static short openfile(short message, FSSpec *fspec, FInfo *finfo) |
1682 |
{ |
1683 |
if (message != appOpen) return (-1); |
1684 |
|
1685 |
/* open file */ |
1686 |
if (finfo->fdType == 'TEXT') { |
1687 |
do_decode(fspec); |
1688 |
} else { |
1689 |
do_encode(fspec, finfo->fdType); |
1690 |
} |
1691 |
|
1692 |
return (0); |
1693 |
} |
1694 |
|
1695 |
#define hwinfo ((nate_win *)win) |
1696 |
|
1697 |
/* help close procedure |
1698 |
*/ |
1699 |
static short helpclose(na_win *win) |
1700 |
{ |
1701 |
helpw = NULL; |
1702 |
|
1703 |
return (NATEclosep(win)); |
1704 |
} |
1705 |
|
1706 |
/* help window procedure |
1707 |
*/ |
1708 |
static short helpwindow(na_win *win, long *data) |
1709 |
{ |
1710 |
Rect rtemp, vtemp; |
1711 |
Handle h, hs; |
1712 |
long len; |
1713 |
TEHandle hTE; |
1714 |
|
1715 |
rtemp = win->pwin->portRect; |
1716 |
vtemp = rtemp; |
1717 |
vtemp.right = vtemp.left + (hwinfo->docwidth = 475); |
1718 |
win->mousep = NATEmousep; |
1719 |
win->idlep = NATEidlep; |
1720 |
win->menup = NATEmenup; |
1721 |
win->activep = NATEactivep; |
1722 |
win->updatep = NATEupdatep; |
1723 |
win->ctrlp = NATEctrlp; |
1724 |
win->closep = helpclose; |
1725 |
win->cursorRgn = NewRgn(); |
1726 |
hwinfo->vctrl = hwinfo->hctrl = NULL; |
1727 |
|
1728 |
TEAutoView(true, hTE = hwinfo->hTE = TEStylNew(&vtemp, &rtemp)); |
1729 |
h = GetResource('TEXT', helpTEXT); |
1730 |
hs = GetResource('styl', helpSTYL); |
1731 |
len = GetHandleSize(h); |
1732 |
HLock(h); |
1733 |
TEStylInsert(*h, len, (StScrpHandle) hs, hTE); |
1734 |
HUnlock(h); |
1735 |
TESetSelect(0, 0, hTE); |
1736 |
hwinfo->lheight = TEGetHeight((*hTE)->nLines, 0, hTE) / (*hTE)->nLines; |
1737 |
ShowWindow(helpw = win->pwin); |
1738 |
|
1739 |
return (NA_NOTPROCESSED); |
1740 |
} |
1741 |
|
1742 |
/* Set the hostname: TCP callback |
1743 |
*/ |
1744 |
static void sethost(void *user, na_tcp s, short status, long size, char *data) |
1745 |
{ |
1746 |
PCstr host[65]; |
1747 |
Rect box; |
1748 |
na_win *win, **winh; |
1749 |
|
1750 |
/* first make sure our window still exists */ |
1751 |
for (winh = NAhead; winh && (*winh)->type != PREFWIN; winh = (*winh)->next); |
1752 |
if (!winh || (*winh)->child != user) return; |
1753 |
win = NAlockWindow((na_win **) user); |
1754 |
|
1755 |
/* check for errors */ |
1756 |
if (status != NATCP_connect) { |
1757 |
warn("Failed to get hostname from MacTCP"); |
1758 |
} else { |
1759 |
if (data[size - 1] == '.') --size; |
1760 |
PCstrlen(host) = size; |
1761 |
memcpy(C(host), data, size); |
1762 |
NAsetIText((*winh)->pwin, iHost, host); |
1763 |
SelIText((*winh)->pwin, iHost, 0, 32767); |
1764 |
} |
1765 |
prwin->percent = 100; |
1766 |
progressupdate(win, false); |
1767 |
NAunlockWindowh(winh, win); |
1768 |
} |
1769 |
|
1770 |
/* if TCP is active, get hostname |
1771 |
*/ |
1772 |
static short settask(na_win *win) |
1773 |
{ |
1774 |
if (tcpstart == 0 && !prwin->percent) { |
1775 |
NAsetIText(win->pwin, iWorkText, "\pLooking for MacTCP"); |
1776 |
prwin->percent = 1; |
1777 |
progressupdate(win, false); |
1778 |
NATCPinit(mytcpinit); |
1779 |
} else if (tcpstart == 1 && prwin->percent < 50) { |
1780 |
NAsetIText(win->pwin, iWorkText, "\pLooking up Internet hostname"); |
1781 |
prwin->percent = 50; |
1782 |
progressupdate(win, false); |
1783 |
NATCPgethost(sethost, (void *) GetWRefCon(win->pwin)); |
1784 |
} |
1785 |
progressupdate(win, false); |
1786 |
if (tcpstart == -1) { |
1787 |
warn("MacTCP not available"); |
1788 |
NAhiliteDItem((*win->parent)->pwin, iSet, 255); |
1789 |
} |
1790 |
|
1791 |
return (tcpstart == -1 || prwin->percent == 100 ? NA_CLOSED : NA_NOTPROCESSED); |
1792 |
} |
1793 |
|
1794 |
/* set the Internet host via MacTCP |
1795 |
*/ |
1796 |
static short setinit(na_win *win, long *data) |
1797 |
{ |
1798 |
win->taskp = settask; |
1799 |
win->updatep = progressupdate; |
1800 |
win->closep = progressclose; |
1801 |
NAmodalMenus(1); |
1802 |
|
1803 |
return (NA_NOTPROCESSED); |
1804 |
} |
1805 |
|
1806 |
/* preference control procedure |
1807 |
*/ |
1808 |
static short prefsctrl(na_win *win, Point p, short item, short mods, ControlHandle ctrlh) |
1809 |
{ |
1810 |
PCstr tmpstr[257]; |
1811 |
short encoding, extract_text, quit_finished, result = NA_NOTPROCESSED; |
1812 |
ControlHandle ctrl; |
1813 |
char *scan, *end; |
1814 |
short changed, len, i, useic; |
1815 |
static short prefitem[3] = { iHost, iEmailAddr, iMailServer }; |
1816 |
|
1817 |
switch (item) { |
1818 |
case iOk: |
1819 |
HLock((Handle) mpack_prefs); |
1820 |
changed = 0; |
1821 |
encoding = NAradioGet(win->pwin, iAuto, iDouble) - iAuto; |
1822 |
NAgetDHandle(win->pwin, iTextEncode, &ctrl); |
1823 |
extract_text = GetCtlValue(ctrl); |
1824 |
NAgetDHandle(win->pwin, iQuitFinish, &ctrl); |
1825 |
quit_finished = GetCtlValue(ctrl); |
1826 |
if (encoding != (*mpack_prefs)->encoding |
1827 |
|| extract_text != (*mpack_prefs)->extract_text |
1828 |
|| quit_finished != (*mpack_prefs)->quit_finished) { |
1829 |
changed = 1; |
1830 |
} |
1831 |
if (changed) { |
1832 |
(*mpack_prefs)->encoding = encoding; |
1833 |
(*mpack_prefs)->extract_text = extract_text; |
1834 |
(*mpack_prefs)->quit_finished = quit_finished; |
1835 |
ChangedResource((Handle) mpack_prefs); |
1836 |
changed = 0; |
1837 |
} |
1838 |
len = 1; |
1839 |
scan = (*mpack_prefs)->internet_host; |
1840 |
end = (char *) *mpack_prefs + GetHandleSize((Handle) mpack_prefs); |
1841 |
for (i = 0; i < 3; ++i) { |
1842 |
NAgetIText(win->pwin, prefitem[i], P(tmpstr)); |
1843 |
SetClen(tmpstr); |
1844 |
len += PCstrlen(tmpstr); |
1845 |
if (scan == end || strcmp(C(tmpstr), scan)) { |
1846 |
changed = 1; |
1847 |
} |
1848 |
while (scan < end && *scan++); |
1849 |
} |
1850 |
if (changed) { |
1851 |
HUnlock((Handle) mpack_prefs); |
1852 |
/* update the preferences resource */ |
1853 |
SetHandleSize((Handle) mpack_prefs, sizeof (struct mpack_preferences) |
1854 |
+ len); |
1855 |
HLock((Handle) mpack_prefs); |
1856 |
scan = (*mpack_prefs)->internet_host; |
1857 |
useic = icinst && ICBegin(icinst, icReadWritePerm) == noErr; |
1858 |
for (i = 0; i < 3; ++i) { |
1859 |
NAgetIText(win->pwin, prefitem[i], P(tmpstr)); |
1860 |
SetClen(tmpstr); |
1861 |
strcpy(scan, C(tmpstr)); |
1862 |
scan += PCstrlen(tmpstr) + 1; |
1863 |
if (i && useic) { |
1864 |
ICSetPref(icinst, i == 1 ? kICEmail : kICSMTPHost, |
1865 |
ICattr_no_change, (Ptr) P(tmpstr), PCstrlen(tmpstr) + 1); |
1866 |
} |
1867 |
} |
1868 |
if (useic) ICEnd(icinst); |
1869 |
ChangedResource((Handle) mpack_prefs); |
1870 |
} |
1871 |
HUnlock((Handle) mpack_prefs); |
1872 |
case iCancel: |
1873 |
result = NA_REQCLOSE; |
1874 |
NAmodalMenus(0); |
1875 |
break; |
1876 |
case iAuto: |
1877 |
case iData: |
1878 |
case iSingle: |
1879 |
case iDouble: |
1880 |
NAradioSet(win->pwin, iAuto, iDouble, item); |
1881 |
break; |
1882 |
case iTextEncode: |
1883 |
case iQuitFinish: |
1884 |
SetCtlValue(ctrlh, !GetCtlValue(ctrlh)); |
1885 |
break; |
1886 |
case iSet: |
1887 |
NAwindow(0, NA_DIALOGWINDOW | NA_TITLEBAR | NA_HASTASK | NA_USERESOURCE |
1888 |
| NA_MODAL | NA_CHILDWINDOW, |
1889 |
NULL, progDLOG, NULL, sizeof (progresswin), setinit); |
1890 |
break; |
1891 |
} |
1892 |
|
1893 |
return (result); |
1894 |
} |
1895 |
|
1896 |
/* update preferences dialog |
1897 |
*/ |
1898 |
static short prefsupdate(na_win *win, Boolean newsize) |
1899 |
{ |
1900 |
Handle hn; |
1901 |
Rect box; |
1902 |
short type; |
1903 |
|
1904 |
/* draw disabled items */ |
1905 |
GetDItem(win->pwin, iEmailAddr, &type, &hn, &box); |
1906 |
if (type == statText) NAhiliteDItem(win->pwin, iEmailAddr, 255); |
1907 |
GetDItem(win->pwin, iMailServer, &type, &hn, &box); |
1908 |
if (type == statText) NAhiliteDItem(win->pwin, iMailServer, 255); |
1909 |
|
1910 |
return (NA_NOTPROCESSED); |
1911 |
} |
1912 |
|
1913 |
/* initialize preferences dialog |
1914 |
*/ |
1915 |
static short prefsinit(na_win *win, long *data) |
1916 |
{ |
1917 |
PCstr tmpstr[257], eaddr[257]; |
1918 |
ControlHandle ctrl; |
1919 |
|
1920 |
win->type = PREFWIN; |
1921 |
win->ctrlp = prefsctrl; |
1922 |
win->menup = NAdialogMenu; |
1923 |
win->updatep = prefsupdate; |
1924 |
HLock((Handle) mpack_prefs); |
1925 |
strcpy(C(tmpstr), (*mpack_prefs)->internet_host); |
1926 |
HUnlock((Handle) mpack_prefs); |
1927 |
SetPlen(tmpstr); |
1928 |
NAsetIText(win->pwin, iHost, P(tmpstr)); |
1929 |
SelIText(win->pwin, iHost, 0, 32767); |
1930 |
getICprefs(win, eaddr, tmpstr); |
1931 |
NAsetIText(win->pwin, iEmailAddr, P(eaddr)); |
1932 |
NAsetIText(win->pwin, iMailServer, P(tmpstr)); |
1933 |
NAradioSet(win->pwin, iAuto, iDouble, (*mpack_prefs)->encoding + iAuto); |
1934 |
NAsetIval(win->pwin, iTextEncode, (*mpack_prefs)->extract_text); |
1935 |
NAsetIval(win->pwin, iQuitFinish, (*mpack_prefs)->quit_finished); |
1936 |
if (tcpstart == -1) NAhiliteDItem(win->pwin, iSet, 255); |
1937 |
NAmodalMenus(1); |
1938 |
ShowWindow(win->pwin); |
1939 |
|
1940 |
return (NA_NOTPROCESSED); |
1941 |
} |
1942 |
|
1943 |
/* Main menu procedure |
1944 |
*/ |
1945 |
static short mainmenu(na_win *win, WORD menuid, WORD itemno) |
1946 |
{ |
1947 |
short status = NA_NOTPROCESSED; |
1948 |
MenuHandle mh; |
1949 |
PCstr version[32]; |
1950 |
|
1951 |
switch (menuid) { |
1952 |
case 0: |
1953 |
NAenableMItem(mApple, iAbout); |
1954 |
return (status); |
1955 |
case mApple: |
1956 |
if (itemno == iAbout) { |
1957 |
CtoPCstrcpy(version, MPACK_VERSION); |
1958 |
ParamText(P(version), NULL, NULL, NULL); |
1959 |
return (NA_NOTPROCESSED); |
1960 |
} |
1961 |
break; |
1962 |
|
1963 |
case mFile: |
1964 |
switch (itemno) { |
1965 |
case iEncode: |
1966 |
do_encode(NULL, 0); |
1967 |
status = NA_PROCESSED; |
1968 |
break; |
1969 |
|
1970 |
case iDecode: |
1971 |
do_decode(NULL); |
1972 |
status = NA_PROCESSED; |
1973 |
break; |
1974 |
|
1975 |
case iClose: |
1976 |
break; |
1977 |
|
1978 |
case iPrefs: |
1979 |
status = NAwindow(0, NA_DIALOGWINDOW | NA_USERESOURCE |
1980 |
| NA_MODAL | NA_DEFBUTTON | NA_TITLEBAR, |
1981 |
NULL, prefsDLOG, (long *) NULL, 0, prefsinit); |
1982 |
break; |
1983 |
|
1984 |
case iQuit: |
1985 |
status = NA_REQCLOSEALL; |
1986 |
break; |
1987 |
} |
1988 |
break; |
1989 |
|
1990 |
case mEdit: |
1991 |
break; |
1992 |
|
1993 |
case mHelp: |
1994 |
if (!helpw) { |
1995 |
NAwindow(0, NA_USERESOURCE | NATEflags | NATE_READONLY | NA_SMARTSIZE, |
1996 |
NULL, helpWIND, (long *) NULL, sizeof (nate_win), helpwindow); |
1997 |
} else { |
1998 |
SelectWindow(helpw); |
1999 |
} |
2000 |
break; |
2001 |
} |
2002 |
NAdisableMItem(mApple, iAbout); |
2003 |
|
2004 |
return (status); |
2005 |
} |
2006 |
|
2007 |
/* make preferences folder/file |
2008 |
* returns -1 on failure. |
2009 |
*/ |
2010 |
static short makepref() |
2011 |
{ |
2012 |
Handle hpref = NULL, htmpl; |
2013 |
long dirID; |
2014 |
short vRefNum; |
2015 |
char *scan, *end; |
2016 |
PCstr dname[257]; |
2017 |
CInfoPBRec cpb; |
2018 |
DirInfo *dp = &cpb.dirInfo; |
2019 |
ParamBlockRec pb; |
2020 |
VolumeParam *vp = &pb.volumeParam; |
2021 |
FInfo finfo; |
2022 |
static unsigned char pname[] = "\pprefs"; |
2023 |
|
2024 |
/* set up pref folder storage */ |
2025 |
pfolder = (struct pref_folder *) NewPtr(sizeof (struct pref_folder)); |
2026 |
if (!pfolder) return (-1); |
2027 |
end = scan = (char *) pfolder->prefs + sizeof (pfolder->prefs) - 1; |
2028 |
*scan = '\0'; |
2029 |
|
2030 |
/* get pref folder */ |
2031 |
if (FindFolder(kOnSystemDisk, kPreferencesFolderType, |
2032 |
kCreateFolder, &vRefNum, &pfolder->fspec.parID) != noErr) { |
2033 |
return (-1); |
2034 |
} |
2035 |
|
2036 |
/* create subfolder, if needed */ |
2037 |
PtoPCstrcpy(dname, (char *) "\pMpack"); |
2038 |
(void) DirCreate(vRefNum, pfolder->fspec.parID, P(dname), &dirID); |
2039 |
|
2040 |
/* get mpack prefs folder info */ |
2041 |
dp->ioNamePtr = P(dname); |
2042 |
dp->ioVRefNum = vRefNum; |
2043 |
dp->ioFDirIndex = 0; |
2044 |
dp->ioDrDirID = pfolder->fspec.parID; |
2045 |
if (PBGetCatInfoSync(&cpb) != noErr) return (-1); |
2046 |
pfolder->fspec.parID = dirID = dp->ioDrDirID; |
2047 |
pfolder->fspec.vRefNum = vRefNum; |
2048 |
|
2049 |
/* generate pathname */ |
2050 |
dp->ioFDirIndex = -1; |
2051 |
for (;;) { |
2052 |
*--scan = ':'; |
2053 |
if (scan - (char *) pfolder->prefs < 1 + PCstrlen(dname)) return (-1); |
2054 |
scan -= PCstrlen(dname); |
2055 |
memcpy(scan, C(dname), PCstrlen(dname)); |
2056 |
if ((dp->ioDrDirID = dp->ioDrParID) == 2) break; |
2057 |
if (PBGetCatInfoSync(&cpb) != noErr) return (-1); |
2058 |
} |
2059 |
vp->ioVolIndex = 0; |
2060 |
vp->ioNamePtr = P(dname); |
2061 |
vp->ioVRefNum = vRefNum; |
2062 |
if (PBGetVInfoSync(&pb) != noErr) return (-1); |
2063 |
*--scan = ':'; |
2064 |
if (scan - (char *) pfolder->prefs < 16 + PCstrlen(dname)) return (-1); |
2065 |
PtoPCstrcpy(pfolder->prefs, (char *) P(dname)); |
2066 |
CtoPCstrcat(pfolder->prefs, scan); |
2067 |
|
2068 |
/* Get/Create preferences file */ |
2069 |
HCreateResFile(vRefNum, dirID, pname); |
2070 |
if (ResError() == noErr) { |
2071 |
HGetFInfo(vRefNum, dirID, pname, &finfo); |
2072 |
finfo.fdType = 'pref'; |
2073 |
finfo.fdCreator = 'mPAK'; |
2074 |
HSetFInfo(vRefNum, dirID, pname, &finfo); |
2075 |
hpref = GetResource('mPRF', prefsID); |
2076 |
DetachResource(hpref); |
2077 |
htmpl = GetResource('TMPL', IDnaID); |
2078 |
DetachResource(htmpl); |
2079 |
} |
2080 |
pfolder->refnum = HOpenResFile(vRefNum, dirID, pname, fsRdWrPerm); |
2081 |
if (pfolder->refnum < 0) return (-1); |
2082 |
if (hpref) { |
2083 |
AddResource(hpref, 'mPRF', prefsID, "\p"); |
2084 |
AddResource(htmpl, 'TMPL', IDnaID, "\pIDna"); |
2085 |
ReleaseResource(htmpl); |
2086 |
} else { |
2087 |
hpref = GetResource('mPRF', prefsID); |
2088 |
} |
2089 |
if (!hpref) return (-1); |
2090 |
mpack_prefs = (struct mpack_preferences **) hpref; |
2091 |
|
2092 |
return (0); |
2093 |
} |
2094 |
|
2095 |
/* cleanup shared resources |
2096 |
*/ |
2097 |
void maccleanup() |
2098 |
{ |
2099 |
if (pfolder) { |
2100 |
CloseResFile(pfolder->refnum); |
2101 |
DisposPtr((Ptr) pfolder); |
2102 |
} |
2103 |
if (icinst) ICStop(icinst); |
2104 |
if (tcpstart == 1) NATCPdone(120); /* give 2 seconds to go away */ |
2105 |
} |
2106 |
|
2107 |
main() |
2108 |
{ |
2109 |
CursHandle cursH; |
2110 |
|
2111 |
if (NAinit(128, 2, openfile, mainmenu, 3, 1, 0, iClose) == 0) { |
2112 |
/* set up preferences */ |
2113 |
if (makepref() < 0) { |
2114 |
yell("Couldn't create preferences file"); |
2115 |
} else { |
2116 |
/* set up internet config */ |
2117 |
if (ICStart(&icinst, 'mPAK') == noErr) { |
2118 |
(void) ICFindConfigFile(icinst, 0, NULL); |
2119 |
} |
2120 |
/* save watch cursor */ |
2121 |
cursH = GetCursor(watchCursor); |
2122 |
watch = **cursH; |
2123 |
/* enter main loop, cleanup on exit */ |
2124 |
NAmainloop(); |
2125 |
maccleanup(); |
2126 |
} |
2127 |
} |
2128 |
} |